Программирование на языке Паскаль Тема 2. Ветвления

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

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

Программа 1 var a, b, max: real; begin writeln('Введите два числа'); read (a, b); ifthen if a > b then max := a else; else max := b; writeln ('Наибольшее ', max:4:2); end.

Задача 2. Даны три числа. Вывести на экран наибольшее из них.

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