Сколько раз выполнится цикл при изменении параметра от Expr1 до Expr2
Пример
Изменение индекса внутри цикла
3; 6; 9; 12; 15; 18; 21; 24; 27; 30; 33; 36; 39; 42; 45; 48; 51; 54; 57; 60; 63; 66; 69; 72; 75; 78; 81; 84; 87; 90; 93; 96; 99; 102; 105; 108; 111; 114; 117; 120; 123; 126; 129; 132; 135; 138; 141; 144; 147; 150; 153;
156; 159; 162; 165; 168; 171; 174; 177; 180; 183; 186; 189; 192; 195; 198; 201; 204; 207; 210; 213;
216; 219; 222; 225; 228; 231; 234; 237; 240; 243; 246; 249; 252; 255; 2; 5;
Изменение конечного значения
Вложенные циклы
Пример
For str:=1 to 10 do begin
For stlb:= 1 to str do write(‘*’); Writeln;
end;
Вложения можно избежать
Sum:=0; k:=1; repeat
fact:=1;
for I := 1 to k do fact:=fact*I;
Sum:=Sum+1/fact;
k:=k+1;
until (1/fact)<eps;
Sum:=0; k:=1; fact:=1; repeat
fact:=fact*k;
Sum:=Sum+1/fact;
k:=k+1;
until (1/fact)<eps;
Управление повторением
BREAK - завершает выполнение цикла
CONTINUE - продолжает оператор
цикла со следующей итерации
Пример
Sum:=0;
For k:=1 to 10 do begin
readln(f);
if f=0 then continue; Sum:=Sum+1/f;
End;
Sum:=0; k:=1; fact:=1; repeat
fact:=fact*k;
Sum:=Sum+1/fact;
k:=k+1;
if k>10 then begin
writeln(‘зацикливание’)
break;
End;
until (1/fact)<eps;
Структурированные
типы данных языка Паскаль.
Массивы.