Типизированный файл с записями о маршрутах поездов.

[denisy4]

Здравствуйте уважаемые форумчане. Столкнулся с проблемой при решении следующей задачи : "Создать типизированный файл. Структура записи: пункт отправления, пункт назначения, время в пути (дробное число), время отправления (два поля записи: часы и минуты), количество остановок в пути. Прочитать данные из файла и вывести на экран информацию о маршрутах поездов, время в пути которых превышает сутки."
Заранее благодарю за помощь

[min@y™]

Столкнулся с проблемой при решении

И в чём проблема?

[Dvoishnik]

так?? всегда беда с записями была у меня

type
  TTim_start=record
    Chas:Byte;
    Minyt:Byte;
  end;
  TPoezd=record
    Punct_A:string;     
    Punct_B:string;	
    Tim_Put:real;
    Tim_start:TTim_start;
  end;

[min@y™]

всегда беда с записями была у меня

и с английским языком.

[denisy4]

ну у меня получилось что-то вроде

Program rasp;
Type poezd = record
pob,prb: string [20];
o,tm,th: integer;
vpt:real;
end;
var zap : poezd;
f: file of poezd;
name: string;
begin
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите пункт отправления');
Readln (zap.pob);
While zap.pob <> ' ' do
Writeln ('Введите пункт прибытия');
Readln (zap.prb);
While zap.prb <> ' ' do
Begin
Writeln ('Введите время в пути');
Readln (zap.vpt);
Writeln ('Введите время отправления через запятую [чч, мм]');
Readln (zap.th,zap.tm);
Writeln ('Введите количество остановок');
Readln (zap.o);
Write (f, zap);
Writeln ('Введите след пункт отправления ');
Readln (zap.pob);
End;
Close(f);
Writeln ('Файл создан');
readln
End.

тут не выполнены условия показа данных и сортировки оп времени в пути, но это не важно пока) время строковая величина и там через иф можно будет.

Дело в том, что при проверке этого кода онлайн интерпретатор на примате виснет, и я думаю что из за ошибок(

[min@y™]

при проверке этого кода онлайн

А зачем онлайн-проверка?

[denisy4]

по многим причинам на рабочем ПК нельзя устанавливать "неправедный" софт, даже портативный. а написанное же надо проверить на работоспособность, поэтому вариант - онлайн интерпретатор.

[min@y™]

по многим причинам на рабочем ПК нельзя устанавливать "неправедный" софт

А можно посмотреть списки причин и неправедных софтов? Очень интересно.
Ведь можно и не ставить ничего, а с флешки запускать или ваще из облака.

поэтому вариант - онлайн интерпретатор

Хреновый вариант. Интерпретатор - это не компилятор, он работает по-другому (от слова "ВАЩЕ").

[Dvoishnik]

что то тут не так

While zap.pob <> ' ' do
Writeln ('Введите пункт прибытия');
Readln (zap.prb);

[Serge_Bliznykov]

угу. там неверное условие + бесконечный цикл.

Тут нужно или исправить условие и добавлять Begin .. End (у Вас readln() оказывается за пределами цикла),

либо писать так:

repeat
  Writeln ('Введите пункт отправления');
  Readln (zap.pob);
until zap.pob<>'';
repeat
  Writeln ('Введите пункт прибытия');
  Readln (zap.prb);
until zap.prb<>'';
...

'Введите время в пути'

я бы уточнил, в чём именно задаётся время в пути - в минутах, часах, сутках?...