Составить программу, которая содержит текущую информацию о заявках на авиабилеты.
Каждая заявка содержит:
o Пункт назначения;
o Номер рейса;
o Фамилию и инициалы пассажира;
o Желаемую дату вылета.
Программа должна обеспечивать:
o Хранение всех заявок в виде списка;
o добавление заявок в список;
o Удаление заявок;
o Вывод заявок по заданному номеру рейса и дате вылета;
o Вывод всех заявок.
--------------------------------
program avia;
const kol=10;
type z=record
mesto: string;
fio: string;
name: string;
number: integer;
date: record
day:1..31;
month: 1..12;
year: integer;
end;
end;
var zap: array [byte] of z;
a, b, c, d, r: array [1..10] of string;
i, k, n, h: integer;
zn: string;
procedure generate;
var m:byte;
begin
a[1]:='Андрей';
a[2]:='Иван';
a[3]:='Георгий';
a[4]:='Виктор';
a[5]:='Степан';
a[6]:='Владимир';
a[7]:='Михаил';
a[8]:='Максим';
a[9]:='Василий';
a[10]:='Сергей';
b[1]:='Иванов';
b[2]:='Петров';
b[3]:='Сидоров';
b[4]:='Ушаков';
b[5]:='Крылов';
b[6]:='Соколов';
b[7]:='Соловьев';
b[8]:='Зайцев';
b[9]:='Смирнов';
b[10]:='Кузнецов';
c[1]:='Ирина';
c[2]:='Полина';
c[3]:='Ангелина';
c[4]:='Екатерина';
c[5]:='Татьяна';
c[6]:='Анна';
c[7]:='Ксения';
c[8]:='Любовь';
c[9]:='Надежда';
c[10]:='Светлана';
d[1]:='Иванова';
d[2]:='Петрова';
d[3]:='Сидорова';
d[4]:='Комарова';
d[5]:='Крылова';
d[6]:='Соколова';
d[7]:='Соловьева';
d[8]:='Зайцева';
d[9]:='Смирнова';
d[10]:='Кузнецова';
r[1]:='Москва';
r[2]:='Воронеж';
r[3]:='Ростов';
r[4]:='Россошь';
r[5]:='Уральск';
r[6]:='Батайск';
r[7]:='Киров';
r[8]:='Липецк';
r[9]:='Владивосток';
r[10]:='Омск';
for i:=1 to kol do
begin
h:=random(2);
with zap[i] do
begin
begin
if h=0 then
begin
fio:=b[random(8)+1];
name:=a[random(8)+1];
end
else
begin
fio:=d[random(8)+1];
name:=c[random(8)+1];
end;
end;
date.day:=random(30)+1;
date.month:=random(12)+1;
date.year:=(2)+2010;
number:=random(5)+1001;
mesto:=r[random(8)+1];
end;
end;
end;
begin
generate;
writeln(' № Имя Фамилия Номер рейса Пункт назначения День Месяц Год');
for i:=1 to kol do
with zap[i] do
writeln(i:3,name:10,' ',fio:10,' ',number:8,' ',mesto:20,' ',date.day:3,' ' , date.month:4, date.year:10);
end.
заполнить могу, а как организовать обработку не представляю
Сообщение отредактировано: pre-dawn-haze -