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

[Новичок]

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

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

[Client]

зачем вообще нужны a и b?

[Новичок]

работать только с переменными а и в?

Добавлено через 3 мин.
извиняюсь х и у

[Lapp]

Оформить процедурой решение задачи на определение наибольшего из двух чисел

Немного странно... Может, все-таки функцией?
Тогда было бы примерно так:

function Max(a,b: real): real;
begin
  if b>a then Max:=b else b:=a
end;

[Client]

procedure f1(x,y:real);
begin
   if x>y then writeln (x:0:3)
   else writeln (y:0:3);
end;

В результате будет выведено на экран макс число. Так можно вообще без переменных работать

[volvo]

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

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

[Новичок]

Спасибо вам большое за помощь в решении задачи

[Lapp]

Спасибо вам большое за помощь в решении задачи

Вот - пустяк, а приятно )).
Жень, тебе +1 в репутацию - за вежливость и благодарность .

[Client]

потом долго отвыкать приходится...

буду исправляться