Презентация на тему "Программирование разветвляющихся алгоритмов"

• 1 слайд

  ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ
  
  

• 2 слайд

  Разветвляющиеся алгоритмы
  Задача. Ввести два целых числа и вывести на экран наибольшее из них.
  Идея решения: надо вывести на экран первое число, если оно больше второго, или второе, если оно больше первого.
  Особенность: действия исполнителя зависят от некоторых условий (если … иначе …).
  Алгоритмы, в которых последовательность шагов зависит от выполнения некоторых условий, называются разветвляющимися.
  

• 3 слайд

  Вариант 1. Блок-схема
  max:= b;
  полная форма ветвления
  блок "решение"
  Если a = b?
  ?
  начало
  max:= a;
  ввод a,b
  a > b?
  конец
  да
  нет
  вывод max
  

• 4 слайд

  Вариант 1. Программа
  program qq;
  var a, b, max: integer;
  begin
  writeln('Введите два целых числа');
  read ( a, b );
  if a > b then begin
  
  end
  else begin
  
  end;
  writeln ('Наибольшее число ', max);
  end.
  max := a;
  max := b;
  полная форма условного оператора
  

• 5 слайд

  Вариант 1. Программа
  program qq;
  var a, b, max: integer;
  begin
  writeln('Введите два целых числа');
  read ( a, b );
  if a > b then max := a else max := b;
  
  writeln ('Наибольшее число ', max);
  end.
  

• 6 слайд

  Условный оператор
  if <условие> then begin
  {что делать, если условие верно}
  end
  else begin
  {что делать, если условие неверно}
  end;
  Особенности:
  перед else НЕ ставится точка с запятой
  вторая часть (else …) может отсутствовать (неполная форма)
  если в блоке один оператор, можно убрать слова begin и end
  

• 7 слайд

  Вариант 2. Блок-схема
  неполная форма ветвления
  начало
  max:= a;
  ввод a,b
  max:= b;
  конец
  да
  нет
  b > a?
  вывод max
  

• 8 слайд

  Вариант 2. Программа
  program qq;
  var a, b, max: integer;
  begin
  writeln('Введите два целых числа');
  read ( a, b );
  max := a;
  if b > a then
  
  writeln ('Наибольшее число ', max);
  end.
  max := b;
  неполная форма условного оператора
  

• 9 слайд

  Вариант 2Б. Программа
  program qq;
  var a, b, max: integer;
  begin
  writeln('Введите два целых числа');
  read ( a, b );
  max := b;
  if ??? then
  ???
  writeln ('Наибольшее число ', max);
  end.
  max := a;
  a > b
  

• 10 слайд

  Задания
  Написать программу, проверяющую принадлежит ли число, введенное с клавиатуры интервалу [0;5]
  
  Дано целое число. Верно ли, что оно делится на 5 и 7?
  
  Если целое число М делится нацело на целое число N, то вывести на экран частное от деления. В противном случае вывести сообщение «M на N не делится».