Разработка информационно-поисковой системы

Автор работы: Пользователь скрыл имя, 19 Декабря 2013 в 17:16, курсовая работа

Описание работы

Цель работы – закрепление приобретенных навыков алгоритмизации задач с использованием структурного подхода, а так же навыков программирования на языке высокого уровня.
Программа построения базы данных реализована на языке Turbo Pascal.
Этот язык был разработан Н. Виртом первоначально для целей обучения программированию вообще. С этой точки зрения Паскаль имеет некоторое преимущество перед однотипными языками - такими, как, например, язык Си.

Скачать архив (550.61 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

kursovaya_Soldatov.doc

— 939.00 Кб (Скачать файл)

textcolor(yellow);

readln(datavyd);

writeln;

textcolor(green);

write('Vvedite srok, na kotory vydan film ');

textcolor(yellow);

readln(srok);

writeln;

textcolor(green);

write('Vvedite stoimost prokata v sutki ');

textcolor(yellow);

readln(prokat);

writeln;

textcolor(lightred);

writeln('Dobavleno!')

end;

write(f,z);writeln;

textcolor(white);

write('0 - exit, 1 - continue ');

readln(ans);writeln;

until ans=0;

clrscr;

close(f);

end;

procedure display;

const s:array[1..10] of string=

('N','Nazv','Director','Actor','Strana','God','Kod','Vydan','Srok','$');

var i:integer;ans:byte;

begin

repeat

clrscr; textcolor(yellow);

gotoxy(1,1); write(s[1]);

gotoxy(3,1);write(s[2]);

gotoxy(15,1);write(s[3]);

gotoxy(25,1);write(s[4]);

gotoxy(35,1);write(s[5]);

gotoxy(43,1);write(s[6]);

gotoxy(48,1);write(s[7]);

gotoxy(54,1);write(s[8]);

gotoxy(63,1);write(s[9]);

gotoxy(70,1);write(s[10]);

i:=2;

reset(f);textcolor(yellow);

while not eof(f) do

begin read(f,z); i:=i+1;

with z do begin

gotoxy(1,i);write(index);

gotoxy(3,i);write(name);

gotoxy(15,i);write(rezh);

gotoxy(25,i);write(akt);

gotoxy(35,i);write(strana);

gotoxy(43,i);write(god);

gotoxy(48,i);write(kod);

gotoxy(54,i);write(datavyd);

gotoxy(63,i);write(srok);

gotoxy(68,i);write(prokat:0:2);

end;

gotoxy(10,20);textcolor(white);

write('0 - exit ');

read(ans);clrscr;

until ans=0; close(f);

end;

procedure filmb;

var ans,s:byte;buk:char;

begin

clrscr;

textcolor(yellow);

write('Vvedite bukvu ');

textcolor(green);

readln(buk);

writeln;

s:=0;

writeln('Spisok filmov na etu bukvu:');

textcolor(yellow);

repeat

reset(f);

while not eof(f) do begin

read(f,z);

if ((copy(z.name,1,1)=buk) or (copy(z.name,1,1)=upcase(buk))) then

begin

writeln(z.name);

s:=s+1;

end;

if s=0 then writeln('Filmov na etu bukvu net!');

writeln;

textcolor(white);

write('0 - exit ');

readln(ans)

until ans=0;

close(f);

clrscr;

end;

procedure godvyp;

var ans,s,i,j:byte;vyp:integer;c:string;a:array[1..30]of string;

begin

clrscr;

textcolor(green);

writeln('Vvedite god vypuska filmov');

readln(vyp);

textcolor(yellow);

writeln('V etom godu vypusheny filmy:');

s:=0;

repeat

reset(f);

while not eof(f) do begin

read(f,z);

if z.god=vyp then begin

s:=s+1;

a[s]:=z.name;

end;

close(f);

for i:=1 to s-1 do

for j:=1 to s-i do

if a[j]>a[j+1] then begin

c:=a[j];a[j]:=a[j+1];a[j+1]:=c;

end;

writeln;

for i:=1 to s do

writeln(a[i]);

if s=0 then writeln('V etot god net filmov!');

textcolor(yellow);

writeln('0 - exit ');

readln(ans);

until ans=0;

clrscr;

end;

procedure actor;

var ans,s:byte;fam:string[10];

begin

clrscr;

textcolor(yellow);

writeln('Vvedite familiu actera');

readln(fam);

textcolor(red);

s:=0;

repeat

reset(f);

while not eof(f) do begin

read(f,z);

with z do

if z.akt=fam then begin

s:=s+1;

with z do

if kod then

writeln('Film "',name,'" vydan ',datavyd)

else writeln('Film ',name,' na danniy moment ne vydan');

end;

close(f);

if s=0 then writeln('Filmov s etim akterom net!');

writeln('0 - exit');

readln(ans);

until ans=0;

clrscr;

end;

procedure nazv;

var ans,s:byte;nazv:string;stoim:real;

begin

clrscr;

textcolor(lightgreen);

writeln('Vvedite nazvanie filma');

readln(nazv);

s:=0;

textcolor(yellow);

writeln('Stoimost prokata na zadanny srok:');

textcolor(white);

repeat

reset(f);

while not eof(f) do begin

read(f,z);

if z.name=nazv then begin

s:=s+1;

with z do

Stoim:=prokat*srok;

writeln(Stoim:0:2,' $');

end;

close(f);

writeln;

textcolor(lightred);

writeln('0 - exit ');

readln(ans);

until ans=0;

clrscr;

end;

var m:integer;

begin

zastavka;

assign(f,'fail.gsp');

clrscr;

repeat

menu(m);

case m of

1:create;

2:display;

3:filmb;

4:godvyp;

5:actor;

6:nazv;

end;

until m=7;

end.

Приложение.

Блок схема процедуры frame .

Рис.1

Блок схема процедуры zastavka.

Рис.2

Блок схема процедуры menu.

Рис.3

Блок схема процедуры create.

Рис.4

Блок схема процедуры display.

Рис.5

Блок схема процедуры filmb.

Рис.6

Блок схема процедуры godvyp

Рис.7

Блок схема процедуры actor.

Рис.8

Блок схема процедуры nazv .

Рис.9

Оглавление

Данное задание……………………………………………………………1
Введение………………………………………………………………….. 2
Описание базы данных и использованных переменных……………… 3
Структура программы…………………………………………………….4
Процедура frame…………………………………………………………..5
Процедура zastavka………………………………………………………..6
Процедура menu………………………………………………………….. 7
Процедура create………………………………………………………… 8
Процедура display…………………………………………………………11
Процедура filmb………………………………………………………….. 12
Процедура godvyp…………………………………………………………14
Процедура actor……………………………………………………………15
Процедура nazv…………………………………………………………….16
Исходный код…………………………………………………………….. 18
Приложение………………………………………………………………...28
Оглавление………………………………………………………………….38
Список литературы…………………………………………………………39

Список литературы:

Методические указания по выполнению курсовой работы для студентов ФАВТ дневного отделения : Информатика, Курсовая работа.

Методические указания для студентов ФАВТ,ФПСКТ дневного и заочного отделения: TURBO PASCAL

Практикум по Турбо Паскалю:И. А. Бабушкина, Н. А. Бушмелова, С. М. Окулов, С. Ю. Черных,М.: АБФ, 1998.

Информация о работе Разработка информационно-поисковой системы