Похожие презентации:
программирование циклов 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.
Домашнее заданиеВыучить операторы цикла.
Знать, чем они отличаются друг от друга.
Блок-схемы операторов.