Цикл с предусловием
начало условие - + Тело цикла Вывод результатов конец
WHILE B DO S B – условие, S – тело цикла Примечание: Если телом цикла является не один оператор, а несколько, то они заключаются в операторные скобки begin … end;
Алгоритм работы цикла: Проверятся значение выражения В (условие). Если условие – истина, то выполняется тело цикла, изменяется шаг цикла. Затем опять проверяется условие, если условие – истина, то выполняется тело цикла, изменяется шаг цикла и т. д. Как только условие принимает значение – ложь, то происходит выход из цикла. Цикл с предусловием может не выполниться ни разу, если условие принимает изначально значение – ложь.
PROGRAM S 1; VAR I, N: INTEGER; BEGIN WRITELN(‘ВВЕДИТЕ N’); READLN (N); i: =1; WHILE i <= N do begin WRITE (i: 3); i: = i+ 1; end; END.
PROGRAM S 2; VAR I, N: INTEGER; BEGIN WRITELN(‘ВВЕДИТЕ N’); READLN (N); i: =1; WHILE i <= N do begin WRITELN (i); i: = i+ 1; end; END.
PROGRAM S 3; VAR I, N: INTEGER; BEGIN WRITELN(‘ВВЕДИТЕ N’); READLN (N); i: =1; WHILE i <= N do begin If i mod 2 = 0 then WRITELN (i); i: = i+ 1; end; END.
PROGRAM S 4; VAR I, N: INTEGER; BEGIN WRITELN(‘ВВЕДИТЕ N’); READLN (N); i: =1; WHILE i <= N do begin If i mod 2 < > 0 then WRITELN (i); i: = i+ 1; end; END.
PROGRAM S 5; VAR I, N: INTEGER; BEGIN i: =1; WHILE i <= 20 do begin WRITELN (i); i: = i+ 1; end; END.
PROGRAM S 6; VAR I, N: INTEGER; BEGIN i: =2; WHILE i <= 20 do begin WRITELN (i); i: = i+ 2; end; END.
PROGRAM S 7; VAR I, N: INTEGER; BEGIN i: =1; WHILE i <= 20 do begin WRITELN (i); i: = i+ 2; end; END.