BrdGuest Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: procedure sort(var a, b, c: real);       procedure swap(var a, b: real);     var t: real;     begin         t := a;         a := b;         b := t;     end;   begin     if b < a then swap(a, b);     if c < a then swap(a, c);     if c < b then swap(b, c); end;   var a, b, c: real;   begin     writeln('Write a, b, c: ');     readln(a, b, c);     sort(a, b, c);     writeln('a=', a:10:3, ' b=', b:10:3, ' c=', c:10:3);     readln; end. Всего записей: 43 | Зарегистр. 07-12-2007 | Отправлено: 22:27 19-04-2008 | Исправлено: BrdGuest, 23:35 19-04-2008

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование