программирование циклов 9 класс

1. Циклы на языке Паскаль

9 класс

2. Цикл – это команда исполнителю многократно повторить указанную последовательность команд.

3. Программирование циклических алгоритмов

Существуют 3 разновидности циклов:
• Цикл с параметром.
• Цикл с предусловием.
• Цикл с постусловием.

4. Цикл с параметром (для)

в котором тело цикла выполняется
определенное количество раз

5. Цикл с увеличением параметра

FOR I:= A TO B DO оператор;
(Тело цикла)
I – параметр, увеличивается на 1
A – начальное значение
B – конечное значение
Тело цикла – один оператор!!!
Или – скобки BEGIN … END;

6. Цикл с уменьшением параметра

FOR I:=A DOWNTO B DO
оператор (ТЕЛО ЦИКЛА) ;
выполняется аналогичным образом, но
значение параметра уменьшается на 1.

7. Цикл с параметром (для)

I: = A, B
(счетчик)
I≤B
Тело цикла
I>B

8. Цикл с предусловием, «пока».

WHILE условие DO
оператор (тело цикла) ;
Цикл выполняется до тех пор, пока истинно
условие
Если несколько операторов в теле цикла, то
BEGIN …. END

9. Блок-схема цикла с предусловием

условие
да
тело цикла
While x<0 do
x:=x+1;
нет
While i<100 do
begin
writeln(‘i=’,i);
i:=i+1;
end;

10. Цикл с постусловием, цикл «до»

Формат оператора:
REPEAT {повторять}
операторы (Тело цикла)
UNTIL условие ; {до тех пор, пока не}
Цикл выполняется пока условие не
станет истинным!

11. Блок-схема

Тело цикла может содержать
любое количество операторов
без использования операторных
скобок.
• Проверка условия происходит
не до, а после очередного
выполнения цикла.
• Цикл REPEAT выполняется хотя
бы один раз, цикл WHILE может
не выполниться ни разу.
• Условие в цикле «до» является
условием выхода из цикла, а в
цикле пока – условием
продолжения цикла.
тело цикла
нет
условие
да

12. Программирование циклов на Паскале Решение задач

13.

№1. Составить программу нахождения
суммы первых 10 натуральных чисел.
Program Summ;
Var i, S : integer;
Begin
S := 0;
for i:=1 to 10 do
begin
S := S + i;
writeln (’S = ’, S);
end;
End.
Что надо изменить в программе, чтобы выводилась
только последняя сумма?

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

Program proisv;
Var I,p,N:integer;
Begin
Writeln(’введите N’);
Readln(N);
p := 1;
for i:=1 to N do
P := p* i;
writeln (’P = ’, P);
End.

15. №2. Найти сумму всех положительных целых чисел, не превышающих данного натурального числа N.

Цикл с предусловием
Program Summa1;
Var S, N, a: integer;
Begin
Writeln(’Введите N’);
Readln(N);
a:=1; S:=0;
While a<=N do
begin
S:=S+a;
a:=a+1;
end;
Write(‘сумма =’, S);
End.

16.

Домашнее задание
Выучить операторы цикла.
Знать, чем они отличаются друг от друга.
Блок-схемы операторов.