Использование циклов в Паскале

Слайд 2

Цикл с параметром For …. Next for i:= 1 to n

Цикл с параметром For …. Next

for i:= 1 to n do
to

- это до n в порядке возрастания
downto – до n в порядке убывания.
Слайд 3

Задача1. Создать программу, которая выводит на экран все натуральные числа от

Задача1.
Создать программу, которая выводит на экран все натуральные числа от

1 до n.

Цикл с параметром For …. Next

Слайд 4

WHILE DO begin End. Цикл с предусловием While … Do

WHILE
<Условие> DO
begin
<Тело цикла>
End.

Цикл с предусловием While … Do

Слайд 5

Цикл с предусловием While … Do Задача2. Вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30

Цикл с предусловием While … Do

Задача2.
Вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ ..

+ 30
Слайд 6

Формат записи, структура цикла: REPEAT UNTIL ; Цикл с постусловием Repeat … Until

Формат записи, структура цикла:
REPEAT
<тело цикла>
UNTIL <условие>;

Цикл с постусловием Repeat … Until

Слайд 7

Цикл с постусловием Repeat … Until Задача 3. Вычислить сумму S=1+2+3+...+n

Цикл с постусловием Repeat … Until

Задача 3.
Вычислить сумму S=1+2+3+...+n

Program zadacha; var n,s,

i : integer;
Begin
readln(n);
s:=0; i:=1;
Repeat
s:=s+i; i:=i+1;
Until i>n;
vvriteln s;
End.