Паскаль. Цикл WHILE 9 класс

... DO… REPEAT ... UNTIL …

FOR ... TO /
DOWNTO ... DO …

Цикл с параметром (FOR … DO …) является частным случаем цикла с предусловием.

Цикл
с постусловием (до)

да
нет


REPEAT n:=n+1 UNTIL f

Паскале

!

Оператор после do
повторяется до тех пор,
пока логич. условие
истинно

.) многократно выполняет одни и те же действия при истинности

условия, которое изменяется обычно внутри цикла. Истинность условия проверяется перед выполнением операторов. Таким образом, если условие с самого начала оказалось ложным, то операторы тела цикла не будут выполнены ни разу.

Если в цикле необходимо выполнить несколько простых операторов, они объединяются после служебного слова DO в составной оператор операторными скобками BEGIN . . . END (см. задачу 1).

Помните

var a, s: integer;
Begin
writeln

(‘ вычисление суммы ряда’);
a:=0; s:=0;
while a<1000 do
begin
a:=a+2; s:=s+a
end;
writeln (‘сумма ряда равна s=‘, s);
end.

Цикл с предусловием, цикл «пока».

1 до n.

Допол. Вычислить сумму ряда чисел

sum;
var a, s: integer;
Begin

writeln (‘ вычисление суммы ряда’);
a:=0; s:=0;
while a<600 do
begin
a:=a+1; s:=s+1/a
end;
writeln (‘сумма ряда равна s=‘, s);
end.

5,97

writeln (‘

readln (
a:= 1 ; s:=0;
while a< n do
begin
a:=a+1;
s:=s+а;
end;
writeln (‘сумма’ , n, ‘натуральных чисел равна s=‘, s);
end.

writeln (‘

readln (
a:= 1 ; s:=0; s1:=0; s2:=0;
while a< n do
begin
a:=a+1;
if a mod 2=0 do s1:=s1+1/a else s2:=s2-1/a end;
s:=s1+s2;
end;
writeln (‘сумма ряда равна s=‘, s);
end.

writeln (‘ вычисление суммы ряда’);

a:=0; s:=0;
while a<1000 do
begin
a:=a+2; s:=s+a
end;
writeln (‘сумма ряда равна s=‘, s);
end.

Для обсуждения