Оператор цикла с параметром по возрастающим и убывающим значениям параметра. Правила его использования. Специальный выход из цикла. (Пример программы).

Оператор цикла с параметром

Данный оператор используется в двух формах:

1. цикл по возрастающим значениям параметра;
2. цикл по убывающим значениям параметра.

В первом случае оператор имеет вид:

for I: = N1 to N2 do S;

где I - параметр цикла;

N1, N2 - его начальное и конечное значения;

S - простой или составной оператор ("тело" цикла).

В качестве параметра цикла I можно использовать переменную любого простого типа за исключением real, а в качестве N1, N2 - константы, переменные и выражения, совпадающие по типу с параметром цикла I.

          Пример. Дано 5 целых чисел. Найти сумму положительных,

произведение отрицательных и количество нулей.

Program h1;

Var s ,p,a,:integer; n,i:byte;

Begin
S:=0; p:=1; n:=0;

For I:=1 to 5 do

Begin

Writeln (‘Введите числo’);

Readln (a);

If a>0 then s:= s+a

else if a <0 then p:= p*a

else n:=n=1;

end;

Writeln (‘s=’, s ,’p=’, p , ‘n=’,n);

End.

Пример. Напечатать в следующем порядке загл. буквы латинского алфавита

              A

B

C

. . .

Z
Var c: char; n: byte;

begin

n:=1;

for c:=`A` to `Z` do

begin

writeln(c:n);

inc(n);

end;
end.