ProgramPrim3;

Const n=10;

Var

k,x,s: integer;

begin

k:=0;

s:=0;

while k<n do

begin

k:=k+1;

writeln (‘Введите число,’k);

readln(x);

s:=s+x;

end;

writeln(‘Сумма=’s);

end

Оператор цикла с параметром repeat- оператор цикла с постусловием, реализует алгоритмическую структуру(цикл «пока» с постусловием). Общий вид оператора:

Repeat

Оператор1;

Оператор2;

………….;

Оператор n;

Untilусловие;

Выполняется тело цикла, затем проверяется условие выхода из цикла. Если условие выполняется => выход из цикла, иначе опять вып-ся тело цикла. Для оператора RepeatUntilтело цикла вып-ся хотя бы 1раз.

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

Структура:

For <пар_цикл> := <нач_знач> То <кон_знач> Do <оператор>.

<пар_цикл> - параметр цикла – переменная цикла Integer;

<нач_знач> - начальное значение – выражение того же типа;

<кон_знач> - конечное значение - выражение того же типа.

При выполнении оператора FOR вначале вычисляется выражение <нач_знач> и осуществляется присваивание <пар_цикл> := <нач_знач>.

После этого циклически повторяется:

· Проверка условия <пар_цик> <= <кон_знач>; если условие не выполняется, оператор For завершает работу;

· Выполнение оператора <оператор>;

· Наращивание переменной <пар_цик> на еденицу.

s:=0

for k:=1 to n do begin

writeln(‘введите’,k);

Readln(x);

S:=s+x;

End;

Writeln(s);

End.

Сущ. другая форма оператора:

For <пар.цикл>:=<нач.знач> Downto <кон.знач> Do <оператор>

Замена зарезервированного слова To на Downto означает, что шаг наращивания параметра цикла равен (-1), а управляющее условие приобретает вид <пар.цикл> = <кон.знач>. Теперь можно подсчитывать и отрицательные суммы.

For k:=10 down to 1 do

Begin

y:=k*k

writeln(y);

end;