Презентация на тему "Цикл FOR в Паскале"

Содержание

• 
  Слайд 1
  

  1 Задача. Вывести на экран 5раз слово «Молодец». Особенность: одинаковые действия выполняются 5 раз. Можно ли решить известными методами? ?

• 
  Слайд 2
  

  2 program z1; begin writeln(‘Молодец'); writeln('Молодец'); writeln('Молодец'); writeln('Молодец'); writeln('Молодец'); end.

• 
  Слайд 3

  Циклы в языке Паскаль. Цикл FOR.

• 
  Слайд 4
  

  4 Циклы Цикл – это многократное выполнение одинаковой последовательности действий. Циклы   Арифметические Итерационные (число повторений заранее (число повторений известно) заранее неизвестно) Цикл FOR Цикл WHILE, REPEAT

• 
  Слайд 5
  

  Общий вид оператора FOR: Цикл FOR 1) For:= to do ; Задача. Напечатать 5 раз слово «молодец». Схема цикла i:=1 to 5 Молодец Да Нет Program z1; var i:integer; begin For i:=1 to 5 do writeln (‘Молодец’); end.

• 
  Слайд 6
  

  Цикл FOR 2) For:= downto do ; i:=5 downto 1 i Да Нет Задача ??? Принцип работы Program z1; var i:integer; begin For i:=5 downto 1 do writeln (i); end.

• 
  Слайд 7
  

  7 Сколько раз выполняется цикл? a:=1; for i:=1to 3 doa:=a+1; a=4 a:=1; for i:=3 to 1 doa:=a+1; a=1 a:=1; for i:=1 downto 3 doa:=a+1; a=1 a:=1; for i:=3 downto 1 doa:=a+1; a=4

• 
  Слайд 8
  

  vars,k: integer; begin S:=9; for k:=1 to 5 do s:=s+12; writeln(s); end. Решение: 9+5*12=69 Ответ: 69 1 9+12 2 (9+12)+12 3 (9+12+12)+12 4 (9+12+12+12)+12 5 (9+12+12+12+12)+12 1)

• 
  Слайд 9
  

  vars,k: integer; begin S:=0; for k:=0 to 11 do s:=s+4; writeln(s); end. Решение: 0+12*4=48 Ответ: 48 2) 3) vars,k: integer; begin S:=3; for k:=12 to 31 do s:=s+8; writeln(s); end. Решение: 3+20*8=163 Ответ: 163

• 
  Слайд 10
  

  vars,k: integer; begin S:=0; for k:=-15 to 5 do s:=s+12; writeln(s); end. Решение: 21*12=252 Ответ: 252 4) 5) vars,k: integer; begin S:=10; for k:=1downto 11 do s:=s+15; writeln(s); end. Решение: цикл не выполнится ни разу, s=10 Ответ: 10

• 
  Слайд 11
  

  vars,k: integer; begin S:=100; for k:=-2 downto -8 do s:=s-10; writeln(s); end. Решение: 100-7*10=30 Ответ: 30 6)

• 
  Слайд 12
  

  7) vars,k: integer; begin S:=0; for k:=1 to 11 do s:=s+k; writeln(s); end. 1 0+1 2 (0+1)+2 3 (0+1+2)+3 4 (0+1+2+3)+4 …. ….. 11(0+1+2+3+4+…+10)+11 Решение: S=0+(1+2+3+…+11)= 0+ Sn=66 Ответ: 66 Sn=

• 
  Слайд 13
  

  8) vars,k: integer; begin S:=12; for k:=1 to 11 do s:=s+(2*k-1); writeln(s); end. Решение: S=12+(1+3+5+…+21)= 12+ Sn= =12+121=133 Ответ: 133 Sn=

• 
  Слайд 14
  

  Практическое задание.