Курсовая работа: Составление алгоритмов, реализованных в алгоритмическом языке Паскаль

write('Времястоянки?');readln(min);

write('Стоимостьпроезда?');readln(price);

end;

{запись значений переменной t в файл MGTS.DAT}

write(f,t);

{ввести ответ на запрос об окончании набора данных}

write('Вводзакончен?');

readln(ans);

{закончить цикл ввода при положительном ответе}

until(ans='Y') or (ans='y');

{закрытьфайл MGTS.DAT}

close(f);

{ввести заданную название остановки}

write('Остановка?');readln(zmhz);

{установить файл MGTS.DAT на начало чтения}

ClrScr; {очистка экрана}

reset(f);

{создать файл MGTS.TXT для хранения результатов обработки}

assign(ft,'mgts.txt');

rewrite(ft);

{проверить достижение конца файла MGTS.DAT}

while not eof(f) do

begin

{считать очередную запись файла MGTS.DAT}

read(f,t);

{если номер остановки больше, то сохраняем запись}

if (t.zmin>m.zmin) then

m:=t;

s:=s+m.min;