Решение 50 типовых задач по программированию на языке Pascal Дата размещения сборника в сети

Данил Душистов: «Решение 50 типовых задач по программированию на языке Pascal» 
8 
Код:
1.
program MaxOfTwo; 
2.
3.
var 
4.
a, b: integer; 
5.
6.
begin 
7.
readln(a, b); 
8.
if a > b then begin 
9.
writeln(a) 
10.
end 
11.
else begin 
12.
writeln(b) 
13.
end 
14.
end. 
При таком оформлении хорошо видно, какой код выполняется при истинности условия, а ка-
кой – при его ложности. 
Задача № 7. Вывести на экран наибольшее из трех чисел 
Формулировка. Даны три числа. Вывести на экран то из них, которое больше. 
Решение. Даная задача обобщает предыдущую. В ее решении также нужно использовать 
условный оператор if, однако в данном случае для нахождения максимального числа нам нужно 
выполнить минимум два сравнения. Сам механизм выбора в виде условного оператора с вложен-
ными в него двумя другими условными операторами можно легко пояснить следующей блок-схе-
мой: 
Несмотря на то, что выполняется всего одна инструкция вывода, при написании кода мы все 
ветвления будем помещать в отдельный составной оператор. Напомним: это значит, что при движе-
нии от более общего уровня к частному все конструкции нужно смещать на два пробела относи-
тельно родительского блока/оператора. 
Код:
1.
program MaxOfThree; 
2.
3.
var 
4.
a, b, c: integer; 
5.
6.
begin 
7.
readln(a, b, c); 
8.
if a > b then begin 
9.
if a > c then begin 
a > b 
a > c 
b > c 
вывод a 
вывод c 
вывод a 
вывод b 
нет 
да 
да 
да 
нет 
нет 

---