Презентация по информатике на тему "Алгоритмы разветвляющейся структуры, программирование на языке Pascal"

• 1 слайд

  Алгоритмы разветвляющейся структуры, программирование
  на языке Pascal
  

• 2 слайд

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

• 3 слайд

  Алгоритм, представленный словесным способом описания
  Начало
  1. Команда №1
  2. ЕСЛИ условие ТО действие1
  ИНАЧЕ действие2
  3. Команда №2
  Конец
  

• 4 слайд

  Алгоритм, представленный графическим способом описания
  Начало
  Команда №1
  Действие 1
  Действие 2
  Команда №2
  Конец
  Условие
  да
  нет
  

• 5 слайд

  УСЛОВИЕ
  ДЕЙСТВИЕ 1
  ДЕЙСТВИЕ 2
  да
  нет
  Полная форма ветвления
  

• 6 слайд

  УСЛОВИЕ
  ДЕЙСТВИЕ 1
  да
  нет
  Неполная форма ветвления
  

• 7 слайд

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

• 8 слайд

  8
  Сложные условия
  Простые условия (отношения)
  < <= > >= = <>
  Сложное условие – это условие, состоящее из нескольких простых условий (отношений), связанных с помощью логических операций:
  not – НЕ (отрицание, инверсия)
  and – И (логическое умножение, конъюнкция,
  одновременное выполнение условий)
  or – ИЛИ (логическое сложение, дизъюнкция,
  выполнение хотя бы одного из условий)
  xor – исключающее ИЛИ (выполнение только
  одного из двух условий, но не обоих)
  равно
  не равно
  

• 9 слайд

  9
  Сложные условия
  Порядок выполнения (приоритет = старшинство)
  выражения в скобках
  not
  and
  or, xor
  <, <=, >, >=, =, <>
  Особенность – каждое из простых условий обязательно заключать в скобки.
  Пример
  4 1 6 2 5 3
  if not (a > b) or (c <> d) and (b <> a)
  then begin
  ...
  end
  

• 10 слайд

  Примеры
  
  

• 11 слайд

  Написать алгоритм вычисления
  значения у, если
  Начало
  Ввод х ;
  Если х<=16 то
  y=12*x*x
  иначе
  y=3*x-x*x*x;
  Вывод у;
  Конец.
  Функция задана двумя различными аналитическими выражениями на двух участках координатной оси.
  Если х<=16, то у=12*х*х.
  Если же х>16, то у=3*х-х*х*х.
  Второе неравенство является противоположным первому, поэтому достаточно поставить одно первое условие.
  Алгоритм
  

• 12 слайд

  Блок-схема
  начало
  у:= 12*х*х
  ввод х
  х >= 16
  у:= 3*х-х*х*х
  конец
  да
  нет
  вывод у
  

• 13 слайд

  Программа
  program qq;
  var x, у: real;
  begin
  writeln('Введите значение аргумента х');
  read ( x );
  if x >= 16 then
  у:=12*х*х
  else
  у:=3*х-х*х*х;
  writeln ('у=‘, у);
  end.
  

• 14 слайд

  2. Определить является ли треугольник со сторонами
  a, b, c равносторонним треугольником.
  Начало
  Ввод a,b,c ;
  Если a=b и b=c то
  вывод (треугольник равносторонний)
  иначе
  вывод (треугольник неравносторонний);
  Конец.
  Треугольник является равносторонним, если все стороны равны между собой.
  Алгоритм
  

• 15 слайд

  Блок-схема
  начало
  ввод a,b,c
  a=b
  и
  b=c
  конец
  да
  нет
  вывод
  треугольник
  равносторонний
  вывод
  треугольник
  неравносторонний
  

• 16 слайд

  Программа
  program qq;
  var x, у: real;
  begin
  writeln('Введите длины сторон a, b, c');
  read ( a,b,c );
  if (a=b) and (b=c) then
  writeln('треугольник равносторонний')
  else
  writeln('треугольник неравносторонний');
  end.
  

• 17 слайд

  3. Найти наибольшее (максимум) среди трёх чисел.
  Блок-схема
  начало
  ввод a,b,c
  конец
  да
  нет
  a>=b?
  да
  нет
  a >= c?
  да
  нет
  b >= c?
  a>=b
  b>a
  a>=b
  a>=c
  c>a>=b
  
  c>b>a
  
  b>a
  b>=c
  max:=a
  max:=c
  max:=b
  max:=c
  вывод
  max
  

• 18 слайд

  Программа
  program qq;
  var a, b, c, max: real;
  begin
  writeln('Введите числа a, b, c');
  read ( a,b,c );
  if a>=b then
  if a>=c then
  max:=a
  else
  max:=c
  else
  if b>=c then
  max:=b
  else
  max:=c;
  writeln (max);
  end.
  

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

Данная презентация предназначена для объяснения нового материала, а именно по теме "Алгоритмы разветвляющейся структуры, программирование на языке Pascal".

В презентацию включены описания структур условного оператора и оператора выбора, а так же блок - схемы данных операторов, а примеры вышеуказанных структур.