задача на процедуру Опции

[Новичок]

Помогите решить задачу на процедуру. Никогда не решал такого вида задачи
Решал подобную линейную задачу. Вот текст задачи
Оформить процедурой решение задачи на определение наибольшего из двух чисел

program f390;
 var a,x,y,b:real;
 procedure f1(var x,y:real);
 begin
if x>y then writeln ('a')
else writeln ('b');
 end;
 begin
 read(x,y);
 f1(x,y);
 writeln(a);
 writeln(b);
 end.

Теги...

Сообщение отредактировано: volvo - 10.02.2010 9:10

[volvo]

Client, это неправильный совет... Подпрограмма должна найти максимальное число, а не выводить его... Разделение труда, ага... Кто-то находит, кто-то выводит. А ты мешаешь все вместе. А потом, при необходимости внести изменение, ты будешь лазить по всей программе и искать, а где же ты еще выводил "без переменных" какие-то значения, да? Хотя в принципе достаточно было бы проверить только одну процедуру вывода...

Я к чему... Привыкаешь к таким вещам (к неправильным, я имею в виду) очень быстро, потом долго отвыкать приходится...