УРОК № 5

Т. АЛГОРИТМОВ - Паскаль

Цикл

Цикл -- это структура, при которой одна и та же группа действий выполняется несколько раз (или ни разу), пока выполняется условие

Подпись: Тело цикла -- это повторяемая группа команд (прямоугольник на блок-схеме)

Подпись: Паскаль While <усл> do <1 оператор>;
 

Подпись:Параметр – переменная, которой задано количество повторений.

Подпись:

Подпись:

Подпись:Подпись:

Пример.

Найти сумму квадратов всех натуральных чисел от 1 до 5.

I. С использованием цикла "Пока".

Подпись:

Program Ex1;
Var
A, S : Integer;
Begin

A:=1; S:=0;
While A<=5 Do
Begin

S:=S+A*A;
A:=A+1

End;
Writeln(‘сумма кв. нат. чисел:’,S)

End.
 

II. С использованием цикла "До".

Program Ex2;
Var
A.,S : Integer;
Begin

A:=1; S:=0;
Repeat

S:=S+A*A;
A:=A+1

Until A>5;
Writeln(‘сумма кв. нат. чисел:’,S)

End.
 
Подпись:

III. С использованием цикла "С параметром".

Подпись: