Записи, (создание, удаление, сортировка) Опции

[pre-dawn-haze]

Собственно, такое задание

Составить программу, которая содержит текущую информацию о заявках на авиабилеты.
Каждая заявка содержит:
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 - 6.02.2012 19:07

[Федосеев Павел]

Ну так, по мелочи - в начале программы желательно инициализировать генератор случайных чисел - Randomize.

o Хранение всех заявок в виде списка;

Список - это динамическа структура (не массив) - посмотри в FAQ

o добавление заявок в список;

Реализуй процедуру добавления в список нового элемента и заполнение 10-ю случайными элементами будет примерно следующим:

  for i:=1 to 10 do begin
    {заполнение полей записи}
    with zap do begin
        date.day:=random(30)+1;
        date.month:=random(12)+1;
        date.year:=(2)+2010;
        number:=random(5)+1001;
        mesto:=r[random(8)+1];
        ...........для name и fio.................     
    end;
    {сохранение записи в списке}
    AddItem(First, zap);   {First - указатель на первый элемент списка}
  end;

o Удаление заявок;
o Вывод заявок по заданному номеру рейса и дате вылета;
o Вывод всех заявок.

в FAQ рассмотрено. Пожелаю лишь реализовать в виде отдельных процедур.

--------------------------
Sorry, Lapp

Я сли-ишко-ом до-о-олго клацал по кнопкам



Сообщение отредактировано: Федосеев Павел - 6.02.2012 21:18