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

Программа для указанного варианта имеет следующий вид:

Program Task5;

Uses

Crt;{Подключаеммодульграфики}

type

{структура данных}

t_mgts=record

ost:string; {название остановки}

timeh,timem, min:integer; {время прибытия (часы, минуты), время стоянки}

price:real;{стоимость проезда}

end;

var

m:t_mgts;{переменная для хранения данных}

f:file of t_mgts;{файл для хранения данных}

ft:text;{файл для хранения результатов обработки}

ans:char;{переменная для подтверждения конца ввода}

zmin:real;{заданная средняя продолжительность стоянки }

begin

{создать MGTS.DAT для хранения данных}

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

assign(f,'mgts.dat');

rewrite(f);

{начать цикл ввода данных и сохранение их в файле}

repeat

{объявить работу с записью t}

with t do

begin

{заполнение полей переменной t данными с клавиатуры}

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