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

Алгоритмы с ветвящейся структурой.Программирование ветвлений на Паскале. Рассмотрим несколько задач, решение которых на компьютере получается с помощью ветвящихся алгоритмов.Задача 1. Из двух чисел выбрать большее.алг БИД 1 вещ А,В,Снач ввод А,В если А В то С:=А иначе С:=В кв вывод СконначалоВвод А.ВС:=АА Ввывод СконецС:=АС:=Внетда алг БИД 2 вещ А,В,Снач ввод А,В С:=А если В А то С:=В кв вывод СконначалоВвод А.В С:=А ВАС:=Ввывод Сконецданет Задача 2.Из трёх чисел выбрать наибольшее.алг БИТ 1 вещ А,В,С,Днач ввод А,В,С если А В то Д:=А иначе Д:=В кв если С Д то Д:=С кв вывод ДконначалоВвод А.В,СА ВД:=ВС ДД:=СВывод ДконецД:=Ададанетнет Эту же задачу можно решить с помощью вложенных ветвлений.алг БИТ 2 вещ А,В,С,Днач ввод А,В,С если А В то если А С то Д:=А иначе Д:=С кв иначе если В С то Д:=В иначе Д:=С кв кв вывод Дкон началоконецВвод А.В,СА ВВ СА СД:=СД:=АД:=ВД:=СВывод Ддаданетнетнетда В Паскале присутствуют три основные логические операции: И - 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. Задача 3.Есть среди трёх чисел хотя бы одно отрицательное. if (A>0) or (B>0) or (C>0) then write(‘yes’) else write (‘no’); Если на какой – то из ветвей ветвления находится несколько операторов, то их нужно записывать между служебными словами begin и end.