Презентация по информатике "Цикл с предусловием. Алгоритм Евклида" (8 класс)

• 1 слайд

  Цикл с предусловием
  Алгоритм Евклида
  

• 2 слайд

  Цикл с предусловием («пока»)
  условие
  тело цикла
  да
  нет
  WHILE <условие> DO
  <тело цикла >
  
  Цикл с предусловием используется для программирования процессов, в которых число повторений оператора цикла неизвестно, а задаётся некоторое условие его выполнения.
  
  

• 3 слайд

  Цикл с предусловием («пока»)
  условие
  тело цикла
  да
  нет
  WHILE <условие> DO
  <оператор>
  
  WHILE <условие> DO
  
  <оператор1>;
  <оператор2>;
  …
  <операторN>;
  begin
  
  
  
  
  end;
  ИЛИ
  

• 4 слайд

  Упражнение:
  Сколько раз выполнится оператор цикла:
  
  WHILE true DO <оператор>
  WHILE 1>0 DO <оператор>
   WHILE 1>2 DO <оператор>
  Замечание: В теле цикла обязательно должен быть оператор, влияющий на соблюдение условия, в противном случае произойдет зацикливание.
  

• 5 слайд

  да
  да
  нет
  нет
  Задача 1 (Алгоритм Евклида): Найти наибольший общий делитель двух чисел.
  вывод х
  ввод х, у
  начало
  конец
  х := х - у
  у := у - х
  x <> y
  x > y
  Пример:
  НОД (15, 25) =
  НОД (15, 10) =
  НОД (5, 10) =
  НОД (5, 5) =
  5
  х у
  

• 6 слайд

  program pr1;
  var х, у : integer;
  begin
  write (‘х=’); readln(х);
  write (‘у=’); readln(у);
  while х< >у do
  if х>у then х:=х-у else у:=у-х;
  writeln(‘ НОД = ’, х);
  end.
  
  Задача 1 (Алгоритм Евклида): Найти наибольший общий делитель двух чисел.
  

• 7 слайд

  Задача 2. Найти сумму цифр произвольного числа.
  да
  нет
  начало
  конец
  ввод х
  вывод S
  x <> 0
  S := S + x mod 10
  x := x div 10
  S := 0
  x = 12345
  S:=0
  
  1 шаг
  х mod 10 = 5
  s := 0+5
  x:= 1234
  2 шаг
  х mod 10 = 4
  s := 5+4
  x:= 123
  3 шаг
  х mod 10 = 3
  s := 5+4+3
  x:= 12
  4 шаг ….
  и т. д.
  
  x:= 0
  S:= S + x mod 10
  x := x div 10
  ПОКА x<> 0
  

• 8 слайд

  var x: longint; s:integer;
  begin
  write(‘x=’); readln(x);
  S:=0;
  while x<>0 do
  begin
  S:= S + x mod 10;
  x:= x div 10;
  end;
  writeln(‘сумма цифр: ’, S);
  end.
  
  
  Задача 2. Найти сумму цифр произвольного числа.
  

• 9 слайд

  Задача 3. Составить программу, вычисляющую значения
  функции для 0  x  4 с шагом 0,5.
  x := 0 y := 1
  x := 0.5 y := …
  x := 1 y := …
  ….
  x:= 4 y:=…
  
  
  
  да
  нет
  начало
  конец
  x :=0
  x <= 4
  y :=sqr(sin(x))+cos(x)
  x := x + 0.5
  вывод y
  

• 10 слайд

  program pr3;
  var x, y: real;
  begin
  x:=0;
  while x <= 4 do
  begin
  y:=sqr(sin(x))+cos(x);
  writeln(‘х=’,х:3:1, ‘ y=’,y:5:2);
  x:=x+0.5;
  end;
  end.
  
  
  Задача 3. Составить программу, вычисляющую значения
  функции для 0  x  4 с шагом 0,5.
  

Краткое описание документа:

Презентация, сопровождающая объяснение учителя по теме "Цикл с предусловием" на языке программирования Pascal. Рассматривается формат записи команды повторения, и решение трёх задач.