Паскаль.Функции!!!

[uropb992]

Даны три числа.Упорядочить их в порядке возрастания. Перестановку двух чисел оформить в виде функции.

[ROMA2PVT]

Выкладывайте ваши наработки и тогда ва кто нить и поможет.

[Vikenty]

консольное приложение? вводишь числа и прога выводит их в порядке возрастания?

[uropb992]

НА счет консольное приложение не знаю) а вот про ввод чисел - да!)

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread142630.html
замени

procedure Shwap(var a,b:real);

на

function Shwap(var a,b:real):real;

и готово.

[DoDge_VipeR]

я бы на

function Shwap(var a,b:real):boolean;

поменял)

[uropb992]

Всем Спасибо ))))