Разработка программы «Киноафиши» на языке Turbo Pascal 7.1, страница 2

Пункт  New – используем для того, чтобы очистить таблицу и начать работу заново. Load – позволяет загрузить файл, ранее сохраненный с помощью Save. Save text – предназначен для сохранения данных в текстовый файл, с возможностью просмотра таблички в большинстве текстовых редакторах. После его выполнения, в одной директории с файлом программы, будет создан документ “TABL.txt”.  

Подменю Actions содержит пункты Add, Find, Delate, Edit Page.

Пункт Add – добавление нового элемента в таблицу. При активации пункта необходимо  ввести информацию с помощью клавиатуры и однократного нажатия enter после каждого из заполненных информационных полей, до тех пор пока не появится уведомление о том, что элемент был добавлен (Рисунок 3.3).

Рисунок 3.3 – добавление элементов.

При вызове пункта Find появляется возможность выбора параметра поиска(рис.3.4.), Nomer – порядковый номер в списке, Film – название фильма, Origin – страна-производитель фильма, Genre – жанр. После ввода запроса на экране появится либо список всех фильмов, соответствующих параметру поиска, либо сообщение о том, что таких фильмов базе данных нет.

Рисунок 3.4. – Поиск фильма в базе данных по параметру.

Пункт Delate – позволяет удалить из списка предварительно найденный элемент.

Пункт Edit Page – позволяет редактировать предварительно найденный элемент, если вы не желаете изменять какую-либо из характеристик, например, название – Film,  то наберите 0 и переходите к следующему параметру(Рис.3.5.). 

Рисунок 3.5. – Редактирование страницы.

Подменю Actions включает пункты Table, Page, Maximum, Minimum, SrZnach, Sorting.

Пункт Table – просмотр данных в виде таблицы (рис. 3.6.).

Рисунок 3.6. – отображение данных в виде таблицы.

Пункт Page – обеспечивает просмотр каждой записи в отдельности (рис.3.7.). Пролистывание записей клавишей <Enter>.

Рисунок 3.7. – просмотр данных по записям

При вызове пункта Maximum программа выполняет поиск максимального элемента по разным критериям (Duration, Age limit, Rating) (рис.3.8.). Вы можете просмотреть, интересующие вас параметры в табличной форме.

Рисунок 3.8. – максимальные значения.

Аналогичную операцию выполняет пункт Minimum.

C помощью пункта SrZnach вы можете узнать среднюю длительность представленных кинофильмов, или посмотреть совокупный рейтинг.

Последний пункт – Sorting  позволяет просмотреть список картин не в произвольном порядке, а в упорядоченном, согласно рейтингу(Рис.3.9.).

Рисунок 3.9. – Сортировка по рейтингу.

Порядок элементов в списке изменяется лишь при выводе на экран,    сам же список остается в прежнем порядке.

4. Текстпрограммы

program KURSOVIK;

uses crt;

type

zap=record

   nom:integer;

   film:string[8];

   ori:string[5];

   year:word;

   gen:string[6];

   prod:string[8];

   dur:word;

   lim:byte;

   sit:string[10];

   act:string[8];

   rat:real;

  end;

p=^za;

   za=record

     x:zap;

     y:p;

   end;

pzds=^zds;

zds=record

  pred,next,down1,down2:pzds;

  capt:string[15];

  num_k:integer;

 end;

 fz=file of za;

var a:zap; top_za:p; top_menu:pzds; n:integer;

    otv,poz_0,poz_1,poz_2,poz_3,poz_4,tip:integer;

    spisok:fz; tabl:text;  qe,qwe:integer; mas:array[1..30] of zap;

procedure new_fail(var top:p);

var otv:integer;

begin

    window(1,10,20,15);

    writeln(' Clean the table ?');

    write(' 1-Yes/0-No  - '); readln(otv);

    If otv=1 then begin

               top:=nil; writeln;

               writeln(' Table clean !');

               readkey;

             end;

end;

procedure vvod_zn(var a:zap);

begin

  window(1,10,35,30);

  writeln('Enter the information :');

  write('  Film  - '); readln(a.film);

  write('  Origin  - '); readln(a.ori);

  write('  Year  - '); readln(a.year);

  write('  Genre  - '); readln(a.gen);

  write('  Producer   - '); readln(a.prod);

  write('  Duration   - '); readln(a.dur);

  write('  Age limit   - '); readln(a.lim);

  write('  Site   - '); readln(a.sit);

  write('  Actor   - '); readln(a.act);