Домашнее задание:
Напишите программу, которая генерирует числа от 1 до 10 и выдает на печать 15 таких чисел.
Напишите программу, которая генерирует числа от 1 до 100 и останавливается, если находит число 12.
Напишите программу, которая запрашивает целое число от 1 до 100, и печатает целые числа до тех пор, пока не найдет заданное число.
7.3 Итерационные циклы
По сравнению с циклом с параметром итерационные циклы являются универсальными. Для организации итерационных циклов используются операторы цикла с предусловием while и цикла с постусловием repeat..until.
Э
ти
операторы не задают закон изменения
параметра цикла, поэтому необходимо
перед циклом задавать начальное значение
параметра с помощью оператора
присваивания, а внутри цикла изменять
текущее значение этого параметра.
7.4 Оператор цикла с предварительным условием
Формат оператора цикла с "предусловием":
While <логическое выражение> Do
Begin
<предложения тела цикла>
End;
Здесь While (пока) и Do (выполнить) - служебные слова.
Оператор цикла действует следующим образом. Предварительно проверяется значение логического выражения. Пока оно истинно, выполняются предложения циклической части. Как только оно становится ложным, происходит выход из цикла. Если с самого начала значение логического выражения ложно, то тело цикла не выполнится ни разу.
Обратите внимание на то, что предложения циклической части, заключенные в операторные скобки Begin - End, представляют собой составной оператор.
Возможен случай, когда в циклической части стоит оператор перехода Goto, передающий управление за пределы цикла. В такой ситуации цикл может завершиться до его естественного окончания (при истинном значении логического выражения).
Если в циклической части стоит всего одно предложение, то операторные скобки Begin - End можно не использовать и оператор цикла принимает вид:
While <логическое выражение> Do <предложение>;
Число повторений цикла While определяется в ходе работы программы и заранее неизвестно.
Для успешного завершения цикла While в его теле обязательно должны присутствовать инструкции, оказывающие влияние на условие выполнения тела цикла.
После слова While записывается условие продолжения выполнения тела цикла.
Условие- это выражение логического типа, которое может принимать одно из двух значений TRUE или FALSE.
Тело цикла While может не выполниться ни разу, если проверяемое условие ложно с самого начала.
Пример1: Найдем сумму первых ста членов числовой последовательности 1, 2, 3, …
Program Summa;
Var I, Sum : Integer;
Begin
I:=1; S:=0;
While I<=100 do
Begin
S:=S+I;
I:=I+1;
End;
Writeln(S);
End.
Пример 2: Программа, которая печатает строки:
1 2 3 4 5 6 7 8 9 10
10 9 8 7 6 5 4 3 2 1
var i: integer;
вegin
i:=0;
while i<10 do
begin
i:=succ(i); {или штс(i); или i:=i+1}
write(I,’ ‘);
end;
writeln;
i:=10;
while i>0 do
begin
write(I,’ ‘);
i:=pred(i); {или dec(i); или i:=i-1}
end;
end.