ПроЦедуры

[DomiNik]

Помогите пожалуйста решить задачу...Вот условие:
Пусть процедура maxmin (x, y) присваивает параметру x большее из ве-
щественных чисел x и y, а параметру y – меньшее. Описать данную процедуру и
использовать ее для перераспределения значений вещественных переменных a, b
и c так, чтобы стало a ≥ b ≥ c.

Вот что я написал, дальше увы затрудняюсь...
program lab;
var a,b,c:integer;
procedure maxmin(x,y:integer);
begin
Writeln('Введите x,y');
readln(x,y);
If x>y then begin
a:=x;
b:=y;
else
a:=y;
b:=x;
end;
Begin
.....

[Ol'ga_new]

Здесь все проще, в процедуре меняешь местами(или нет) только два числа х,у. А в самой программе фызываешь процедуру задавая разные параметры (например а,с)...

[Grag]

Ввод исходных данных нужно организовывать в основной программе, а в процедуру их передавать как фактические параметры....

[DomiNik]

Если не тяжело напиши код)

[Ol'ga_new]

program lab;
var a,b,c,x,y:integer;
procedure maxmin(x,y:integer);
var x1:integer;
begin
//Writeln('Введите x,y');
//readln(x,y);
If x<y then begin
x1:=x;
x:=y;
y:=x1;
end;
Begin
Writeln('Введите a,b,c');
readln(a,b,c);
maxmin(a,b);
a:=x;
b:=y;
maxmin(b,c);
b:=x;
c:=y;
maxmin(a,b);
a:=x;
b:=y;
// организуешь вывод...
end.

[DomiNik]

Спасибо, очень признателен)

[DomiNik]

Оно не правильно работает((((

[Ol'ga_new]

А что именно? Может с условием что-то? можно исправить!

[DomiNik]

Результатом программы является 0=>0=>0

[DomiNik]

может там не нужно x,y вводить, это ведь переменные булева типа, или я не прав?