Презентация по информатике на тему "Программирование на языке Паскаль-Циклы с условием"

• 1 слайд

  Программирование
  на языке Паскаль
  Циклы с условием
  

• 2 слайд

  Цикл с неизвестным числом шагов
  Пример: Отпилить полено от бревна. Сколько раз надо сделать движения пилой?
  Задача: Ввести целое число (<2000000) и определить число цифр в нем.
  Идея решения: Отсекаем последовательно последнюю цифру, увеличиваем счетчик.
  
  
  
  
  Проблема: Неизвестно, сколько шагов надо сделать.
  Решение: Надо остановиться, когда n = 0, т.е. надо делать "пока n <> 0".
  

• 3 слайд

  Алгоритм
  начало
  count
  конец
  нет
  да
  n <> 0?
  count := 0;
  count := count + 1;
  n := n div 10;
  обнулить счетчик цифр
  ввод n
  выполнять "пока n <> 0"
  

• 4 слайд

  Программа
  program qq;
  var n, count: integer;
  begin
  writeln('Введите целое число');
  read(n);
  count := 0;
  while n <> 0 do begin
  count := count + 1;
  n := n div 10;
  end;
  writeln('В числе ', n, ' нашли ',
  count, ' цифр');
  end.
  while n <> 0 do begin
  count := count + 1;
  n := n div 10;
  end;
  , n1: integer;
  n1 := n;
  n1,
  выполнять "пока n <> 0"
  Что плохо?
  ?
  

• 5 слайд

  Цикл с условием
  while <условие> do begin
  {тело цикла}
  end;
  Особенности:
  можно использовать сложные условия:
  если в теле цикла только один оператор, слова begin и end можно не писать:
  while (a<b) and (b<c) do begin
  {тело цикла}
  end;
  while a < b do
  a := a + 1;
  

• 6 слайд

  Цикл с условием
  Особенности:
  условие пересчитывается каждый раз при входе в цикл
  если условие на входе в цикл ложно, цикл не выполняется ни разу
  если условие никогда не станет ложным, программа зацикливается
  a := 4; b := 6;
  while a > b do
  a := a – b;
  a := 4; b := 6;
  while a < b do
  d := a + b;
  

• 7 слайд

  Сколько раз выполняется цикл?
  a := 4; b := 6;
  while a < b do a := a + 1;
  2 раза
  a = 6
  a := 4; b := 6;
  while a < b do a := a + b;
  1 раз
  a = 10
  a := 4; b := 6;
  while a > b do a := a + 1;
  0 раз
  a = 4
  a := 4; b := 6;
  while a < b do b := a - b;
  1 раз
  b = -2
  a := 4; b := 6;
  while a < b do a := a - 1;
  зацикливание
  

• 8 слайд

  Замена for на while и наоборот
  for i:=1 to 10 do begin
  {тело цикла}
  end;
  i := 1;
  while i <= 10 do begin
  {тело цикла}
  i := i + 1;
  end;
  for i:=a downto b do
  begin
  {тело цикла}
  end;
  i := a;
  while i >= b do begin
  {тело цикла}
  i := i - 1;
  end;
  Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла.
  Замена цикла for на while возможна всегда.
  

• 9 слайд

  Задания
  "4": Ввести целое число и найти сумму его цифр.
  Пример:
  Введите целое число:
  1234
  Сумма цифр числа 1234 равна 10.
  "5": Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры.
  Пример:
  Введите целое число: Введите целое число:
  1234 1224
  Нет. Да.
  

• 10 слайд

  Последовательности
  Примеры:
  1, 2, 3, 4, 5, …
  1, 2, 4, 7, 11, 16, …
  1, 2, 4, 8, 16, 32, …
  
  an = n
  a1 = 1, an+1 = an+1
  a1 = 1, an+1 = an + n
  an = 2n-1
  a1 = 1, an+1 = 2an
  b1 = 1, bn+1 = bn+1
  c1 = 2, cn+1 = 2cn
  

• 11 слайд

  Последовательности
  Задача: найти сумму всех элементов последовательности,
  которые по модулю больше 0,001:
  Элемент последовательности (начиная с №2):
  b := b+1;
  c := 2*c;
  z := -z;
  

• 12 слайд

  Алгоритм
  начало
  S
  конец
  нет
  да
  |a| > 0.001?
  S := S + a;
  S := 0; b := 1;
  c := 2; z := -1;
  a := 1;
  начальные значения
  a := z*b/c;
  b := b + 1;
  c := 2*c; z := -z;
  первый элемент
  a := 1;
  S := 0;
  новый элемент
  изменение
  Перестановка?
  ?
  

• 13 слайд

  Программа
  program qq;
  var b, c, z: integer;
  S, a: real;
  begin
  S := 0; z := -1;
  b := 1; c := 2; a := 1;
  while abs(a) > 0.001 do begin
  S := S + a;
  a := z * b / c;
  z := - z;
  b := b + 1;
  c := c * 2;
  end;
  writeln('S =', S:10:3);
  end.
  z := - z;
  b := b + 1;
  c := c * 2;
  переход к следующему слагаемому
  S := 0; z := -1;
  b := 1; c := 2; a := 1;
  начальные значения
  увеличение суммы
  расчет элемента последовательности
  

• 14 слайд

  Задания
  "4": Найти сумму элементов последовательности с точностью 0,001:
  
  
  Ответ:
  S = 1.157
  "5": Найти сумму элементов последовательности с точностью 0,001:
  
  Ответ:
  S = 1.220
  

• 15 слайд

  Цикл с постусловием
  Задача: Ввести целое положительное число (<2000000) и определить число цифр в нем.
  Проблема: Как не дать ввести отрицательное число или ноль?
  Решение: Если вводится неверное число, вернуться назад к вводу данных (цикл!).
  Особенность: Один раз тело цикла надо сделать в любом случае => проверку условия цикла надо делать в конце цикла (цикл с постусловием).
  Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.
  

• 16 слайд

  Цикл с постусловием: алгоритм
  начало
  конец
  да
  нет
  n > 0?
  тело цикла
  условие ВЫХОДА
  блок "типовой процесс"
  ввод n
  основной
  алгоритм
  

• 17 слайд

  Программа
  program qq;
  var n: integer;
  begin
  repeat
  writeln('Введите положительное число');
  read(n);
  until n > 0;
  ... { основной алгоритм }
  end.
  repeat
  writeln('Введите положительное число');
  read(n);
  until n > 0;
  until n > 0;
  условие ВЫХОДА
  Особенности:
  тело цикла всегда выполняется хотя бы один раз
  после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла
  

• 18 слайд

  Сколько раз выполняется цикл?
  a := 4; b := 6;
  repeat a := a + 1; until a > b;
  3 раза
  a = 7
  a := 4; b := 6;
  repeat a := a + b; until a > b;
  1 раз
  a = 10
  a := 4; b := 6;
  repeat a := a + b; until a < b;
  зацикливание
  a := 4; b := 6;
  repeat b := a - b; until a < b;
  2 раза
  b = 6
  a := 4; b := 6;
  repeat a := a + 2; until a < b;
  зацикливание
  

• 19 слайд

  Задания (с защитой от неверного ввода)
  "4": Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10.
  Пример:
  Введите число >= 0: Введите число >= 0:
  -234 1233
  Нужно положительное число. Нет
  Введите число >= 0:
  1234
  Да
  "5": Ввести натуральное число и определить, какие цифры встречаются несколько раз.
  Пример:
  Введите число >= 0: Введите число >= 0:
  2323 1234
  Повторяются: 2, 3 Нет повторов.