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

Содержание

• 
  Слайд 1

  Циклические конструкции

  • Цикл с предусловием
  • Цикл с постусловием
  • Цикл с параметром
  • Вложенные циклы
• 
  Слайд 2

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

  • Нет
  • Да
  • Условие выполняется

  Тело цикла

• 
  Слайд 3
  

  WHILE <логическое условие> DO

  <оператор цикла> ;

  WHILE <логическое условие> DO BEGIN

  <оператор 1> ;

  <оператор 2> ;

  <оператор N>

  END;

• 
  Слайд 4
  

  Операторы цикла выполняются (DO), пока (WHILE) логическое выражение истинно

• 
  Слайд 5
  

  Фрагмент программы вывода на экран квадратов целых чисел от 5 до 10

  x:=5;

  WHILE X<=10 DO

  BEGIN

  Y:=SQR (X) ;

  WRITELN ('квадрат',X,'=' ,Y );

  X:= X+1;

  END;

• 
  Слайд 6

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

  Тело цикла

  • Условие выполняется
  • Да
  • Нет
• 
  Слайд 7
  

  • REPEAT
  • оператор 1;
  • оператор 2;
  • оператор n
  • UNTIL <логическое условие> ;

  Операторы повторяются (REPEAT) до тех пор (UNTIL), пока значение логического выражения ложно

• 
  Слайд 8
  

  Фрагмент программы вывода на экран квадратов целых чисел от 5 до 10

  x:=5;

  REPEAT

  Y:=SQR (X) ;

  WRITELN ('квадрат',X,'=' ,Y );

  X:= X+1

  UNTIL x >= 10 ;

• 
  Слайд 9

  Цикл с параметром

  i : = n1

  i < = n2

  i : = i + 1

  • Тело цикла
  • Да
  • Нет
• 
  Слайд 10
  

  FOR i : = n1 TO n2 DO

  i - параметр цикла

  n1 -начальное значение(выражение)

  n2 - конечное значение (выражение)

  n1 < n2

  шаг приращения + 1

  количество повторений n2-n1+1

  при n1 = n2 - 1 раз

  при n1 > n2 цикл не выполняется ни разу

• 
  Слайд 11
  

  FOR i : = n1 DOWNTO n2 DO

  n1 > n2

  шаг приращения – 1

  при n1 = n2 - 1 раз

  при n1 < n2 цикл не выполняется ни разу i, n1, n2 – должны быть описаны (порядковый тип)

  i - не переопределяется в цикле

• 
  Слайд 12
  

  Фрагмент программы вывода на экран квадратов целых чисел от 5 до 10

  FOR x:= 5 TO 10DO

  BEGIN

  Y:=SQR (X) ;

  WRITELN ('квадрат',X,'=' ,Y );

  END;

• 
  Слайд 13
  

  Фрагмент программы вывода на экран квадратов целых чисел от 5 до 10

  FOR x:= 10 DOWNTO 5 DO

  BEGIN

  Y:=SQR (X) ;

  WRITELN ('квадрат',X,'=' ,Y );

  END;

• 
  Слайд 14
  

  Примеры вычисления сумм, количеств и произведений

  Алгоритмы подсчета:

  • сумм
  • Первоначальное значение S: =0
  • Подсчет в цикле:
  • S:=S+{meкущee значение}
• 
  Слайд 15
  

  Вычислить: S=l+2+3+...N.

  varn,s,i : integer;

  begin

  writeln ('Введите натуральное число N=');

  readln (n) ;

  s : = 0 ;

  for i : = 1 to n do s : = s + i ;

  writeln ('сумма = ' , s)

  end.

• 
  Слайд 16
  

  количества

  Первоначальное значение k : =0

  Подсчет в цикле:

  k : = K + 1

• 
  Слайд 17
  

  Подсчитать количество нечетных чисел, введенных с клавиатуры

  var k,a,i: integer;

  begin

  k:=0;

  for i:=1 to 5 do

  begin

  write ( 'Введите целое число ' ); readln(a);

  if a mod 2 <> 0 then k:= k +1; end;

  writeln ('Нечетныхчисел ',k);

  readln

  end.

• 
  Слайд 18
  

  произведений

  Первоначальное значение р:=1

  подсчет в цикле: р:=р * {множитель }

• 
  Слайд 19
  

  . Вычислять N!

  var

  n, p, i : integer;

  begin

  writeln ( 'введитечисло n = ') ;

  readln (n) ;

  p:=1;

  for i:=1 to n do

  p:=p*i; .

  writeln ( 'факториалчисла ', n,' = ' ,p)

  end.

• 
  Слайд 20

  Вложенные циклы

  2 3 1 1 1 2 2 n

  Цикл называется сложным (вложенным), если внутри его содержится один или

  несколько других циклов

• 
  Слайд 21
  

  Среди чисел 1< N < 100 найти все пары чисел, для которых их сумма равнялась бы их произведению

• 
  Слайд 22
  

  var k, a, b: integer;

  begin k:=0;

  for a:= 1 to 100 do

  for b:= 1 to 100 do begin

  if a+b=a*b then begin

  k:=k+1; writeln('Числа ', a , b)

  end

  end;

  if k=0 then writeln('Таких чис.нет')else('k=',k)

  end.