Программирование циклов Цикл while

Цикл – это многократно выполняемая последовательность операторов (команд).
WHILE ... DO… REPEAT ... UNTIL … FOR ... TO /
DOWNTO ... DO …
Цикл с параметром (FOR … DO …) является частным случаем цикла с предусловием.

3. Цикл
с параметром
1. Цикл
с предусловием (пока)
WHILE x<10 DO x:=x+1;;
2. Цикл
с постусловием (повтори)
Циклические операторы на Паскале
!
Оператор после do
повторяется до тех пор,
пока логическое условие
истинно

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

Найти сумму чисел, вводимых с клавиатуры до первого появления 0.
Алгоритм:
Спрашиваем число
Не 0?
Добавляем в «корзинку»
Идем в п.1
5
5
7
12
3
15
-8
7
0
ЧИСЛОВЫЕ ЗАДАЧИ

Цикл с предусловием, цикл «пока»
Задача 1
Вычислить сумму ряда чисел 2+4+6+…+1000.
Program sum;
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.

Задача 2 (самостоятельно на компьютерах)
Вычислить сумму ряда чисел
Program sum;
var a: integer;
s:real;
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

Program sum;
var a, s: real;
Begin
writeln (‘ вычисление суммы ряда’);
a:=0; s:=0;
while a<1000 do
begin
a:=a+2;
s:=s+a
end;
writeln (‘сумма ряда равна s=‘, s);
end.
Для обсуждения