Алгоритмы с ветвящейся структурой. Программирование ветвлений на Паскале.

• 1 слайд

  Алгоритмы с ветвящейся структурой.
  Программирование ветвлений на Паскале.
  

• 2 слайд

  Рассмотрим несколько задач, решение которых на компьютере получается с помощью ветвящихся алгоритмов.
  Задача 1. Из двух чисел выбрать большее.
  алг БИД 1
  вещ А,В,С
  нач ввод А,В
  если А В
  то С:=А
  иначе С:=В
  кв
  вывод С
  кон
  
  начало
  Ввод А.В
  С:=А
  А В
  вывод С
  конец
  С:=А
  С:=В
  нет
  да
  

• 3 слайд

  алг БИД 2
  вещ А,В,С
  нач ввод А,В
  С:=А
  если В А
  то С:=В
  кв
  вывод С
  кон
  
  
  начало
  Ввод А.В
  С:=А
  ВА
  С:=В
  вывод С
  конец
  да
  нет
  

• 4 слайд

  Задача 2.Из трёх чисел выбрать наибольшее.
  алг БИТ 1
  вещ А,В,С,Д
  нач ввод А,В,С
  если А В
  то Д:=А
  иначе Д:=В
  кв
  если С Д
  то Д:=С
  кв
  вывод Д
  кон
  
  начало
  Ввод А.В,С
  А В
  Д:=В
  С Д
  Д:=С
  Вывод Д
  конец
  Д:=А
  да
  да
  нет
  нет
  

• 5 слайд

  Эту же задачу можно решить с помощью вложенных ветвлений.
  алг БИТ 2
  вещ А,В,С,Д
  нач ввод А,В,С
  если А В
  то если А С
  то Д:=А
  иначе Д:=С
  кв
  иначе если В С
  то Д:=В
  иначе Д:=С
  кв
  кв
  вывод Д
  кон
  
  

• 6 слайд

  
  начало
  конец
  Ввод А.В,С
  А В
  В С
  А С
  Д:=С
  Д:=А
  Д:=В
  Д:=С
  Вывод Д
  да
  да
  нет
  нет
  нет
  да
  

• 7 слайд

  В Паскале присутствуют три основные логические операции: И - and, или – or, не – not.
  Program BIT 3;
  Var A,B,C,D:real;
  Begin readln(A,B,C);
  if (A>=B) and (A>=C) then D:=A;
  if (B>=A) and (B>=C) then D:=B;
  if (C>=A) and (C>=B) then D:=C;
  writeln(D)
  end.
  

• 8 слайд

  Задача 3.Есть среди трёх чисел хотя бы одно отрицательное.
  if (A>0) or (B>0) or (C>0)
  then write(‘yes’) else write (‘no’);
  
  Если на какой – то из ветвей ветвления находится несколько операторов, то их нужно записывать между служебными словами begin и end.