лабораторная работа / zapisi / zd11

МИНИСТЕРСТВО ОБЩЕГО И ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ РФ

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

факультет: ИС

Отчет

по индивидуальному заданию

на вычислительную практику

Вариант 11.

Выполнил:

студент 2-ого курса

гр. УИТ-22

г. Балаково 2005 г.

Задание:

Составить программу, которая создает на диске файл, содержащий сведения об отправлении поездов с указанием номера поезда, времени отправления и станции назначения и обеспечивает поиск сведений о времени отправления поезда по номеру поезда.

program zd11;

type

poezd=record

st:string[25];

N:integer;

time:string[5];

end;

var

i:integer;

k:integer;

work:poezd;

N_find:integer;

est:boolean;

name:string[12];

f:file of poezd;

begin

write('Введите имя файла данных списка расписании движения поездов:'); readln(name);

assign(f,name);

rewrite(f);

writeln('Создание файла записей ',name);

write('введите число записей:'); readln(k);

for i:=1 to k do

begin

writeln('Ввод записи N',i);

with work do

begin

write('Введите номер поезда:'); readln(N);

write('Введите время отправления (чч:мм):'); readln(time);

write('Введите станцию назначения:'); readln(st);

end;

write(f,work);

writeln; end;

close(f);

assign(f,name);

{$i-}

reset(f);

{$i+}

if ioresult=0 then

begin

writeln('Поиск сведений о расписании поезда по его номеру:');

write('Введите искомый номер поезда: '); readln(N_find);

writeln;

seek(f,0);

est:=false;

while(not eof(f)) do

begin

read(f,work);

with work do

if N=N_find then

begin

writeln('Найдено расписание движения поезда №',N);

writeln('Время отправления: ',time);

writeln('назначение маршрута:',st);

writeln;

est:=true;

end;

end;

if not est then writeln('Записей с таким номером нет.');

end;

close(f);

writeln;

writeln('Для выхода нажмите ENTER...');

readln;

end.