|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.10.2012, 19:35 | #1 |
Регистрация: 10.10.2012
Сообщений: 5
|
Проблема в написании проги
ВОТ ЧТО ПОКА ЕСТЬ
program Avtobus; var max,nom,bf,bl,otp,pri,vpu:LongInt; begin write('Введите номер автобуса : '); readln(nom); write('Ведите время отправления : '); readln(otp); bf:=nom;max:=0; while otp<>9999 do begin write('Время прибытия : '); readln(pri); {определение ошибок} if otp<0 then writeln('ошибка ') else if pri<0 then writeln('ошибка ') else if pri<otp then writeln('ошибка ') else begin write(' Автобус ',nom,' Отправление ',otp div 100,':'); if otp mod 100<10 then write('0'); write(otp mod 100,' Прибытие ',pri div 100,':'); if pri mod 100<10 then write('0'); write(pri mod 100,' Время в пути '); if pri mod 100<otp mod 100 then begin vpu:=((pri mod 100)+60)-(otp mod 100); dec(pri,100); end else vpu:=(pri mod 100)-(otp mod 100); write((pri div 100)-(otp div 100),':'); if vpu<10 then write('0'); writeln(vpu); if vpu>max then begin max:= vpu;bf:=nom; end; end; writeln; write(' Введите номер автобуса : '); Readln(nom); write(' Ведите время отправления : '); Readln(otp); end; readln; end. как сделать чтобы он выбирал самый длинный рейс???? Последний раз редактировалось Grizzz; 10.10.2012 в 20:17. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
с++ как решить? | annaegorova | Помощь студентам | 0 | 20.05.2012 13:54 |
Как решить? | Богдан1 | Visual C++ | 2 | 03.04.2012 02:01 |
Как решить? | Artem_85 | Microsoft Office Excel | 6 | 13.03.2012 12:45 |
Ко всем кто может хоть как-то подсказать как решить проблему | porfonya | Microsoft Office Access | 1 | 26.05.2009 17:38 |