Дайте наиболее точное общее имя каждой группе объектов 1.канада,сша,мексика- 2.амазонка,енисей,нил- 3.волга,амур,иртыш- 4.лаура,эльба,висла- 5.принтер,монитор,клавиатура- 6.клавиатура,сканер,мышь- 7.берёза,жасмин,ромашка- 8.яблоня,груша,вишня-
1) Страны Северной Америки 2) Крупнейшие реки 3) Реки России 4) Реки Европы 5) Периферийные устройства ПК 6) Устройства ввода 7) Высшие растения 8) Плодовые деревья
function IsPositive(a:integer):boolean; begin result:=(a>-1); end;
procedure work; var min, max, count:integer; begin count:=0; min:=m[0]; max:=0; for i:=0 to 14 do begin if IsPositive(m[i]) then begin inc(count); if m[i]>max then max:=m[i]; if m[i]<min then min:=m[i]; end; end; writeln('MAX: ', max); writeln('MIN: ', min); writeln('Count: ', count); end;
begin for i:=0 to 14 do begin write('n: '); readln(m[i]); end;
Цикл с предусловием это такой цикл, в котором условие проверяется перед выполнением тела цикла. А цикл с постусловием - на оборот, он сначала выполнит, а потом проверит условие и если условие true, то цикл завершится.
Цикл с постусловием, можно использовать в таких ситуациях, когда надо что-то сделать и если чего-то не хватает, то сделать еще раз. Напрмер отправить письмо на email, а если не отправилось, то повторить еще 3 раза. Сначала выполнится тело цикла, в котором находятся функции отправки письма и если отправка удачная, то сообщаем until() true. Иначе тело выполнится еще и еще и еще кучу раз, если мы не задали счетчик в теле цикла, как вариант...
Цикл с предусловием можно использовать, если надо проверять какое-то значение ПЕРЕД выполнением тела цикла и тебе не важно, должно ли оно хоть раз выполниться. Например запросить пароль у пользователя. Но если пользователь уже ввёл пароль, то зачем его запрашивать? Тут можно было бы использовать while
2) Крупнейшие реки
3) Реки России
4) Реки Европы
5) Периферийные устройства ПК
6) Устройства ввода
7) Высшие растения
8) Плодовые деревья