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

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

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

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

Между двумя крупнейшими городами нашей страны Санкт-Петербургом и Москвой ежедневно совершают рейсы 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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 и т.п. В них у вас происходит сравнение строки с числом - отсюда ошибка. Пересмотрите код.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

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

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

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