Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.10.2012, 19:35   #1
Grizzz
 
Регистрация: 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.
Grizzz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
с++ как решить? 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