Информационно-справочная система "Киноиндустрия"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
#13,
6. Выдать ФИЛЬМ, где участвовал данный АКТЕР,#10#13,
7. Для указанного ФИЛЬМА выдать СТРАНУ и СТУДИЮ, где он снимался,#10#13,
8. Для данного АКТЕРА указать СТУДИЮ, где он снимался,#10#13,
Esc. Выход);;{menu}zapros1;nstr,nst:string;(введите название страны);(nstr);str^.NAZV<>nstr do:=str^.next;str=nil then
begin(страна не найдена);;;;(Введите название студии );
readln(nst); std^.NAZV<>nst do:=std^.next;std=nil then
begin(Студия не найдена);
break;;;std^.next^.ukaz_fnst do:=std^.next;std=nil then
begin(студия не найдена);;;;(Введите название фильма );
readln(nf); fil^.NAZV<>nf do:=fil^.next;fil=nil then
begin(фильм не найден);
break;;;fil^.next^.ukaz_ac<>fil^.ukaz_ac do(список актеров); (ac^.FIO,ac^.GONORAR);^.ukaz_ac:=fil^.ukaz_ac^.next;;;{zapros2}zapros3;nstr,nst,nf:string;
begin(Введите название страны );
readln(nstr);str^.NAZV<>nstr do:=str^.next;str=nil then
begin(страна не найдена);;;;(Введите название студии );
readln(nst);std^.NAZV<>nst do:=std^.next;std=nil then
begin(Студия не найдена);
break;;;(Введите фильм );(nf);filnst do:=std^.next;std=nil then
begin(студия не найдена);;;;(Введите название фильма );
readln(nf); fil^.NAZV<>nf do:=fil^.next;fil=nil then
begin(Студия не найдена);
break;;;fil^.next^.ukaz_sp<>fil^.ukaz_sp do(sp^.NAZV,sp^.KOLSR,sp^.PRIBUL);^.ukaz_sp:=fil^.ukaz_sp^.next;;;{zapros4}zapros5;nstr:string;:tstudia;
s2:tfilm;(введите название страны);
readln(nstr);str^.NAZV<>nstr do:=str^.next;str=nil then
begin(страна не найдена);
break;;;str^.next^.ukaz_st s2^.ukaz_ac do
begin
writeln(список актеров:);
writeln(ac^.FIO,ac^.GONORAR);^.ukaz_ac:=s2^.ukaz_ac^.next;;;;{zapros5}zapros6;na:string;(Введите ФИО актера );(na); fil^.ukaz_ac^.FIO<>na do^.ukaz_ac:=fil^.ukaz_ac^.next;fil^.ukaz_ac=nil then
begin(актер не найден);;;;(актер снимался в данном фильме: );
writeln(fil^.NAZV,fil^.ZHANR,fil^.BUDGET,fil^.TIMEV); ;{zapros6}zapros7;nf:string;(Введите фильм );(nf); fil^.NAZV<>nf do:=fil^.next;fil=nil then
begin(фильм не найден);
break;;;std^.next^.ukaz_f<>std^.ukaz_f do
begin (фильм снимался на данной студии: );
writeln(std^.NAZV,std^.MESTOS);^.ukaz_f:=std^.ukaz_f^.next;;str^.next^.ukaz_st<>str^.ukaz_st do
begin (фильм снимался в данной стране: );
writeln(str^.NAZV,str^.STOLICA);^.ukaz_st:=str^.ukaz_st^.next;;;{zapros7}zapros8;na:string;(введите ФИО актера);(na);ac^.FIO<>na do:=ac^.next;ac=nil then
begin(актер не найден);
break;;;fil^.next^.ukaz_acstd^.ukaz_f do
begin(актер снимался на данной студии: );
writeln(std^.NAZV,std^.MESTOS);^.ukaz_f:=std^.ukaz_f^.next;;;{zapros8};;:=readkey;key of
#49:begin clrscr; zapros1; readkey; end;
#50:begin clrscr; zapros2; readkey; end;
#51:begin clrscr; zapros3; readkey; end;
#52:begin clrscr; zapros4; readkey; end;
#53:begin clrscr; zapros5; readkey; end;
#54:begin clrscr; zapros6; readkey; end;
#55:begin clrscr; zapros7; readkey; end;
#56:begin clrscr; zapros8; readkey; end;;key=#27;.
ПРИЛОЖЕНИЕ 2
Тексты входных файлов
Файл strstd.dat
Австралия
Канберраpictures
Канада
ОттаваBrothers
США
Вашингтонpictures
США
Вашингтон
Файл actors.dat
Аферисты
Комедия
200
Nike
Мастер Пи
Аферисты
Комедия
Dresscod
Крис Рок
Аферисты
Комедия
Coca-Cola
Мартин Лоуренс
Семь
Триллер
Heineken
Сэмюэл Л.Джексон
Семь
Триллер
Heineken
Бред Питт
Восставшие из ада
Ужасы
Greit
Джессика Симпсон
Восставшие из ада
Ужасы
Уорни Гамбл
Терминатор
Фантастика
Арнольд Шварценеггер
000 лет до нашей эры
Фантастика
Стивен Стрейт
ПРИЛОЖЕНИЕ 3
РУКОВОДСТВО ПРОГРАММИСТА
. Назначение программы
Данная программа написана на языке программирования Turbo Pascal 7.0, она состоит из одного модуля: Kurs.pas.
. Условия применения программы
Для работы с программой необходимо:
- накопитель на жестких или гибких магнитных дисках
- компьютер, совместимый с IBM PC
- монитор не ниже MGA
- свободная оперативная память не менее 200 Кб
- MS-DOS 3.0 или выше.
- 3. Обращение к программе
- Для запуска программы необходимо откомпилировать программу kurs.pas, набрать в командной строке kurs.exe и нажать клавишу ENTER.
- 4. Входные и выходные данные
- Входные данные поступают из входных файлов strstd.dat и actors.dat.
- Файл actors.dat имеет следующую структуру:
- Название фильма
- Жанр фильма
- Бюджет
- Время выхода в прокат
- Название спонсора
- Количество вложенных средств
- Прибыль
- ФИО актера
- Гонорар
- Файл strstd.dat состоит из нескольких следующих структур:
- Название страны
- Столица
- Название студии
- Место съемок
- 5. Сообщения
- Перед оператором могут возникнуть следующие сообщения:
- Введите название студии:
- Введите название фильма:
- Введите название страны:
- Введите ФИО актера:
- На эти сообщения нужно вводить данные, соответствующие запросам.
- Если по какому-либо из запросов не будет ничего не найдено, то выведется сообщение об ошибке:
- Страна не найдена
- Студия не найдена
- Фильм не найден