Презентация на тему: Операторы цикла

Какая геометрическая фигура обозначает в блок-схеме действие? Какая геометрическая фигура обозначает в блок-схеме действие? Прямоугольник Какая геометрическая фигура обозначает в блок-схеме условие? Ромб Какой оператор описывает в программе ввод данных? Read, readln Какой оператор описывает в программе вывод данных? Write, writeln

Цикл с предусловием (цикл - пока) Цикл с предусловием (цикл - пока) While <условие> do <тело цикла>; Цикл с постусловием (цикл - до) Repeat <тело цикла> until <условие>; Цикл с параметром (цикл - для) for i:=In to Ik do <тело цикла>; for i:=In downto Ik do <тело цикла>;

While <условие> do <тело цикла>; While <условие> do <тело цикла>; Пока условие – истинно, выполняется тело цикла. Тело цикла может быть простым или составным оператором.

Repeat <тело цикла> until <условие>; Repeat <тело цикла> until <условие>; Повторяется выполнение тела цикла до истинности условия. Тело цикла с постусловием выполняется хотя бы один раз.

for i:=In to Ik do <тело цикла>; for i:=In to Ik do <тело цикла>; for i:=In downto Ik do <тело цикла>; i – параметр цикла – простая переменная порядкового типа; In – выражение того же типа, определяющее начальное значение параметра; Ik – выражение того же типа, определяющее конечное значение параметра; Цикл повторяется, пока значение параметра лежит в интервале между In и Ik.

1) x:=5; 1) x:=5; for i:=-1 to 5 do x:=x+1; Ответ: 7 2) s:=0; for i:=4 to 1 do s:=s+1; Ответ: ни разу

x:=3; x:=3; while x<10 do x:=x+3; x:=x+1; Ответ: 13

x:=3; x:=3; while x<10 do begin x:=x+3; x:=x+1; end; Ответ: 11

a:=1; b:=1; a:=1; b:=1; While a+b < 8 do begin a:=a+1; b:=b+2; end; S:=a+b; Ответ: 2 раза S=8, a=3, b=5

Var a,S: integer; Var a,S: integer; Begin S:=0; For a:=5 downto 1 do S:=s+2*a; Writeln('S=', S); End. Ответ: S=30

Program summa1; Program summa1; Var N,i,S: integer; Begin Write('N='); readln(N); S:=0; i:=1; While i<=N do begin S:=S+i; i:=i+1; end; Writeln('S=', S); End.

Program summa2; Program summa2; Var N,i,S: integer; Begin Write('N='); readln(N); S:=0; i:=1; Repeat S:=S+i; i:=i+1; Until i>N; Writeln('S=', S); End.

Program summa3; Program summa3; Var N, i, S: integer; Begin Write('N='); readln(N); S:=0; For i:=1 to N do S:=S+i; Writeln('S=', S); End.

Мультимедийный тест по информатике "Язык программирования Pascal. Циклы" Мультимедийный тест по информатике "Язык программирования Pascal. Циклы"

Найти сумму квадратов от 1 до N. (S = 1 + 4 + 9 + … + n2) Найти сумму квадратов от 1 до N. (S = 1 + 4 + 9 + … + n2) Найти произведение 1 ∙ 2 ∙ 3 ∙ … ∙ n. Найти сумму 1! + 2! + 3! +…+ n! (n!= 1 ∙ 2 ∙ 3 ∙ … ∙ n)

Угринович Н.Д. Информатика и ИКТ: учебник для 9 класса. М.:БИНОМ. Лаборатория знаний, 2010 Угринович Н.Д. Информатика и ИКТ: учебник для 9 класса. М.:БИНОМ. Лаборатория знаний, 2010 Семакин И.Г., Хеннер Е.К. Задачник-практикум в 2 т.: Том 1. М.: БИНОМ. Лаборатория знаний, 2010 http://www.uchportal.ru/load/283-1-0-51684 Рисунок из коллекции Microsoft Office.