Быстрый поезд

@l.water. · Регистрация: 22.01.2011

Author24 — интернет-сервис помощи студентам

Быстрый поезд

Между двумя крупнейшими городами нашей страны Санкт-Петербургом и Москвой ежедневно совершают рейсы n поездов. Для каждого поезда известно его время отправления из Санкт-Петербурга и время прибытия в Москву.

Найдите самый быстрый поезд и его скорость в предположении, что длина железной дороги между Санкт-Петербургом и Москвой равна 650 км.
Входные данные

Первая строка входного файла INPUT.TXT содержит целое число n (1 ≤ n ≤ 100). Каждая из последующих n строк описывает ровно один поезд.

Описание поезда состоит из его названия, времени отправления и времени прибытия. Название поезда – строка длиной не более 50 символов, заключенная в кавычки. Она может содержать буквы латинского алфавита, пробелы, цифры, символы тире («–») и подчеркивания («_»). Время отправления и прибытия заданы в формате ЧЧ:ММ. Строчные и заглавные буквы в названиях поездов различаются.

Время в пути для каждого из поездов составляет хотя бы одну минуту и не превышает 24 часов.

Гарантируется, что самый быстрый поезд определяется единственным образом.
Выходные данные

В выходной файл OUTPUT.TXT выведите название самого быстрого поезда и его скорость. Скорость выводите в километрах в час и округляйте до целых. Следуйте формату вывода, приведенному в примерах.
Примеры INPUT.TXT OUTPUT.TXT
3
"ER-200" 06:43 10:40
"Red Arrow" 23:55 07:55
"Express" 23:59 08:00 The fastest train is "ER-200".
It's speed is 165 km/h, approximately.
3
"Train1" 00:00 00:00
"Train2" 00:00 00:01
"Train3" 00:01 00:01 The fastest train is "Train2".
It's speed is 39000 km/h, approximately.
2
"Slow Train 1" 10:00 09:59
"Slow Train 2" 10:00 10:00 The fastest train is "Slow Train 1".
It's speed is 27 km/h, approximately.

Вот что у меня получилось

неработает)

Pascal

Program Fastest_train;
 type
  tstring=array[1..100] of string[52];
  tstring1=array[1..100] of string[5];
  tstring2=array[1..100] of string[5];
  tskor=array[1..100] of integer;
  ts=array[1..5] of string;
 var f,g:text; n,max,i:integer; s:tstring; s1:tstring1; s2:tstring2; v1:tSkor;
 v2:tSkor; ff:tSkor; rate:tSkor; m:ts; ch:char; maxs:string;
Begin
 assign(f,'INPUT.TXT');
 reset(f);
 assign(g,'OUTPUT.TXT');
 rewrite(g);
 read(f,n);
 for i:=1 to n do
  begin
   read(f,s[i],s1[i],s2[i]);
   if (s1[1] < 2) and (s1[4] <= 6)  then
    v1[i]:=s1[1]*600+s1[2]*60+s1[4]*10+s1[5];
   if ((s1[1] = 2) and (s1[2] <= 4)) and (s1[4] <=4) then
    v1[i]:=s1[1]*600+s1[2]*60+s1[4]*10+s1[5];
 
     if (s2[1] < 2) and (s2[4] <= 6)  then
     v2[i]:=s2[1]*600+s2[2]*60+s2[4]*10+s2[5];
     if ((s2[1] = 2) and (s2[2] <= 4)) and (s2[4] <=4) then
     v2[i]:=s2[1]*600+s2[2]*60+s2[4]*10+s2[5];
  end;
 for i:=1 to n do
  begin
   ff[i]:=v2[i]-v1[i];
   if f[i] < 0 then
   ff[i]:=86400-f[i];
   if f[i] = 0 then
   ff[i]:=86400;
   rate[i]:=650/(ff[i]*3600);
  end;
 for i:=1 to n-1 do
  if rate[i] < rate[i+1] then
  begin max:=rate[i+1]; maxs:=s[i+1]; end
  else begin max:=rate[i]; maxs:=s[i]; end;
 m[1]:='The fastest train is '; m[2]:='.'; m[3]:='It' ch:=chr(96);
 m[4]:='s speed is ';
 m[5]:=' km/h, approximately.';
write(g,m[1],maxs,m[2]);
write(g,m[3],ch,m[4],max,m[5]);
close(f);
close(g);
end.

HighPredator · 25.01.2011, 18:22

Что значит "не работает"? Вылетает с ошибкой? Не компилируется? Выдает неверный результат?

@l.water. · 25.01.2011, 22:44 **[ТС]**

Не компилируется

HighPredator · 25.01.2011, 22:53

Строки 19,21 и т.п. В них у вас происходит сравнение строки с числом - отсюда ошибка. Пересмотрите код.

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	25.01.2011, 18:22	2
	Что значит "не работает"? Вылетает с ошибкой? Не компилируется? Выдает неверный результат? 0

@l.water. 0 / 0 / 0 Регистрация: 22.01.2011 Сообщений: 5
	25.01.2011, 22:44 [ТС]	3
	Не компилируется 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	25.01.2011, 22:53	4
	Строки 19,21 и т.п. В них у вас происходит сравнение строки с числом - отсюда ошибка. Пересмотрите код. 0