Организация повторений в Паскале

Поставь в соответствие блок-схемам названия операторов цикла и форматы их записи
For нц:= нз to кз do
For нц:= нз downto кз do
While <условие> do <тело цикла >
Repeat <тело цикла until <условие>
А) Цикл с преусловием
Б) Цикл с постусловием
В) Счетный цикл
*
Сидоренко Е.В., учитель информатики

Проверь себя
4) Repeat <тело цикла>
until <условие>
Б) Цикл с постусловием
3) While <условие>
do <тело цикла >
А) Цикл с предусловием
1) For нц:= нз to кз do
2) For нц:= нз downto кз do
В) Счетный цикл
*
Сидоренко Е.В., учитель информатики

Глоссарий
*
Сидоренко Е.В., учитель информатики

Оператор For(для)
Параметр цикла может быть только дискретного типа. Некорректно менять значение параметра в теле цикла. Значение параметра цикла может меняться только на +1.
Цикл заканчивается, когда достигнуто конечное значение параметра цикла.
Если начальное значение параметра цикла превышает его конечное значение (для варианта to) или меньше его (для варианта downto), то тело цикла не выполняется ни разу.
Если в теле цикла необходимо выполнить несколько действий, то они заключаются в операторные скобки begin и end.
*
Сидоренко Е.В., учитель информатики

Оператор While (пока)
Ограничений на тип параметра нет. Корректно начальное значение параметра цикла присваивать до оператора цикла, а в теле цикла позаботиться об изменении его значения.
Цикл заканчивается, когда условие становится неверным (ложным).
Если условие с самого начала ложно, то тело цикла не выполняется ни разу.
Если в теле цикла необходимо выполнить несколько действий, то они заключаются в операторные скобки begin и end.
*
Сидоренко Е.В., учитель информатики

Оператор Repeat (повторяй)
Ограничений на тип параметра нет. Корректно начальное значение параметра цикла присваивать до оператора цикла, а в теле цикла позаботиться об изменении его значения.
Цикл заканчивается, когда условие становится верным (истинным).
Тело цикла выполняется хотя бы один раз.
*
Сидоренко Е.В., учитель информатики

Переделай цикл с предусловием в цикл с постусловием и назови, что покажет программа
Var k, s: integer;
Begin
S:=0; k: = 0;
While S<1024 do
Begin
s:=s + 10;
K:=k + 1;
End;
Writeln (k);
end.
*
Сидоренко Е.В., учитель информатики

Проверь себя
Var k, s: integer;
Begin
S:=0; k: = 0;
While S<1024 do
Begin
s:=s + 10;
K:=k + 1;
End;
Writeln (k);
end.
Var k, s: integer;
Begin
S:=0; k: = 0;
repeat
Begin
s:=s + 10;
K:=k + 1;
End;
Until s>1024
Writeln (k);
end.
*
Сидоренко Е.В., учитель информатики

Программа покажет к=103
Var k, s: integer;
Begin
S:=0; k: = 0;
While S<1024 do
Begin
s:=s + 10;
K:=k + 1;
End;
Writeln (k);
end.
Var k, s: integer;
Begin
S:=0; k: = 0;
repeat
Begin
s:=s + 10;
K:=k + 1;
End;
Until s>1024
Writeln (k);
end.
*
Сидоренко Е.В., учитель информатики

Напиши этот фрагмент программы с помощью счетного цикла и цикла с предусловием
K:=2000;
Repeat
Writeln (k);
K:= k + 1;
Until k > 2005 ;
*
Сидоренко Е.В., учитель информатики

Проверь себя
K:=2000;
Repeat
Writeln (k);
K:= k + 1;
Until k > 2005 ;
K:=2000;
While k<=2005 do
begin
Writeln (k);
K:= k + 1;
end;
For K:=2000 to 2005 do
Begin
Writeln (k);
K:= k + 1;
End;
*
Сидоренко Е.В., учитель информатики

Для какого алгоритма составлена блок-схема? Напишите программу, используя любой из видов циклов
*
Сидоренко Е.В., учитель информатики