close

Вход

Забыли?

вход по аккаунту

?

14

код для вставкиСкачать
Министерство образования и науки Украины
Национальный горный университет
Кафедра ПЗКС
отчет
по лабораторной работе №14
ТЕМА: Структуры
Выполнил:
студент группы КНит-10-1
Новицкий А.В
Проверили:
Качанов А.В. /_____________/
оценка: ______________
дата: "___"___________
Днепропетровск
2010
Лабораторная работа №14
Вариант 20. 1) Схема алгоритма.
2) листинг программы.
program Project2;
{$APPTYPE CONSOLE}
type reisi=record
nomerreis :string;
punkpriznach:string;
tipsamoleta:string;
chasotleta: string;
chasprileta:string;
trivpoleta:string;
FFF:string;
end;
var lb14:array[1..5] of reisi; // массив из 5 записей
I,K:Integer;
fepas:Text; // тип файл
mark:string;
a:Integer;
b:string;
procedure vvod; // процедура ввода данных
begin
Writeln('vvedite nomer reisu',i);
readln(lb14[i].nomerreis); // ввод номера рейса
Writeln('punk priznach ',i);
readln(lb14[i].punkpriznach); // ввод пункта назначения
Writeln(' tipsamoleta',i);
readln(lb14[i].tipsamoleta); // ввод тип самолета
Writeln('clocotleta',i);
readln(lb14[i].chasotleta); // ввод час отлета
Writeln(' clocprileta',i);
readln(lb14[i].chasprileta); // ввод час прилета
Writeln('trivpoleta',i);
readln(lb14[i].trivpoleta); // ввод длительность полета
end;
procedure zapisvfail; // процедура записи данных в файл
begin
writeln(fepas,lb14[i].nomerreis,'-> nomer reisa'); { запись в файл данные }
writeln(fepas,lb14[i].punkpriznach,'-> punkt naznachenia');
writeln(fepas,lb14[i].tipsamoleta,'-> tipe samoleta');
writeln(fepas,lb14[i].chasotleta,'-> chas otleta');
writeln(fepas,lb14[i].chasprileta,'-> chas prileta');
writeln(fepas,lb14[i].trivpoleta,'-> dlitelnost poleta'); ;
Writeln(fepas,'---------------');
end;
procedure zapisvivod; // процедура чтение из файла + вывод на экран данные
begin
Readln(fepas,lb14[i].nomerreis); // читаем первую строку из файла
Readln(fepas,lb14[i].punkpriznach);// читаем вторую строку из файла
Readln(fepas,lb14[i]. tipsamoleta);
Readln(fepas,lb14[i].chasotleta);
Readln(fepas,lb14[i].chasprileta);
Readln(fepas,lb14[i]. trivpoleta);
Readln(fepas,lb14[i].FFF);
Writeln(lb14[i].nomerreis); // вывод первой строки на экран
Writeln(lb14[i].punkpriznach);
Writeln(lb14[i].tipsamoleta);
Writeln(lb14[i].chasotleta);
Writeln(lb14[i].chasprileta);
Writeln(lb14[i].trivpoleta);
Writeln(lb14[i].FFF);
end;
procedure iskat; // процедура поиска марки автомобиля
begin
K:=Pos(mark,lb14[i].tipsamoleta); // ф-ция ещет марку самолета в lb14[i].tipsamoleta
if K>0 then
writeln(lb14[i].trivpoleta); // вывод длительность полета
end;
begin
Writeln('vvedite 1-esli hotite schitat iz faila svedenia and vvedite 2-esli hotite sami vvodit sevedia');
readln(a);
if a=2 then
begin
Writeln('vvedite svedenia');
for i:=1 to 5 do
begin
vvod// вызов процедуры "vvod"
end;
Assign(fepas,'d:\fedos'); // создане файла
Rewrite(fepas); // перемещение магнитной головки в начало файла для записи
for i:=1 to 5 do
begin
zapisvfail // вызов процедуры "zapisvfail"
end;
Close(fepas); // закрытие файла
Writeln('vvedite mark samoletha dla kotorogo hotite vuvesto obchee vrema');
readln(mark); // ввод марки самолета
for i:=1 to 5 do
begin
iskat // вызов процедуры "iskat"
end;
end
Else
begin
Assign(fepas,'d:\fedos');
Reset(fepas); // перемещение магнитной головки в начало файла для считывания
for I:=1 to 5 do
begin
zapisvivod // чтение из файла и вывод на экран
end;
Close(fepas); // закрытие файла
Writeln('vvedite mark samoletha dla kotorogo hotite vuvesto obchee vrema');
readln(mark); // ввод марки самолета
for i:=1 to 5 do
begin
iskat // вызов процедуры "iskat"
end;
end;
Readln;
Readln;
end.
3) Результаты расчета программы
А
b
Документ
Категория
Рефераты
Просмотров
4
Размер файла
148 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа