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

ОГЛАВЛЕНИЕ
ВВЕДЕНИЕ 4
ОСНОВНАЯ ЧАСТЬ 5
Описание процедур и функций 5
Основная программа 21
Текст программы 23
Результаты выполнения задания 55
ЛИТЕРАТУРА 59

kod_klient then flag_find:=cycle;cycle:=cycle+1;end;ifflag_find <>0 thenbegin i_tmp_array1[flag_find]:=i_tmp_array1[flag_find]+1;endelsebegincount_find:=count_find+1;i_tmp_array[count_find]:=r_tmp.kod_klient;s_tmp_array[count_find]:=r_tmp.fio_klient; i_tmp_array1[count_find]:=1;end;endelsebegincount_find:=count_find+1;i_tmp_array[count_find]:=r_tmp.kod_klient;s_tmp_array[count_find]:=r_tmp.fio_klient; i_tmp_array1[count_find]:=1;end;end;for cycle:=1 to count_find dobeginwriteln('|',s_tmp_array[cycle]:8,'|',i_tmp_array1[cycle]:11,'|');writeln('+--------+-----------+');end;any_key;end;{=============================================================================}procedureadd_base_item;varr_tmp:db_item;c_tmp:char;beginclrscr;writeln('Dobavleniezapisi v bazu');writeln('Kodklienta:');readln(r_tmp.kod_klient);writeln('FIO klienta:');readln(r_tmp.fio_klient);writeln('Kodtovara:');readln(r_tmp.kod_tovar);writeln('Naimenovanietovara:');readln(r_tmp.nam_tovar);writeln('Cena:');readln(r_tmp.cost);writeln('Na sklade');readln(r_tmp.sklad);writeln('Kolichestvo:');readln(r_tmp.kolichestvo);writeln('Den pokupki');readln(r_tmp.date.day);writeln('Mesiacpokupki');readln(r_tmp.date.month);writeln('God pokupki');readln(r_tmp.date.year);r_tmp.summ:=r_tmp.cost*r_tmp.kolichestvo;writeln('Zapisatdannie (Y/N)');c_tmp:=readkey;if (c_tmp=#89) or (c_tmp=#121) thenbeginseek(file_base,filesize(file_base));write(file_base,r_tmp);writeln('Dannie sohraneni');any_key;end;end;{==============================================================================}functioncreate_menu(item:integer):integer;varmax_len_item,max_str_item,cycle,x_pos,y_pos,menu_item:integer;str_item:array[1..9] of string;s_tmp:string; i_tmp,cycle2:integer;begintextcolor(15);textbackground(0);menu_item:=9;if item>menu_item then item:=1;if item<=0 then item:=menu_item;str_item[1]:='Dovavitzapis';str_item[2]:='Vivestinaekran';str_item[3]:='Vivestispisokklientov s zakazami';str_item[4]:='Spisokklientov s zakazami v 2009';str_item[5]:='Spisokklientovbezzakazov v 2009';str_item[6]:='Vivodstoimostinasklade';str_item[7]:='Informaciyapozakazamklientov';str_item[8]:='Kolichestvozakazovklientov';str_item[9]:='Vihod';max_str_item:=1;max_len_item:=length(str_item[max_str_item]);for cycle:=2 to menu_item dobeginif length(str_item[cycle])>max_len_item thenbeginmax_str_item:=cycle;max_len_item:=length(str_item[max_str_item]);end;end;x_pos:=20;y_pos:=10;clrscr;for cycle:=1 to menu_item dobegingotoxy(x_pos,y_pos+cycle-1);ifcycle=itemthenbegintextcolor(0);textbackground(15);endelsebegintextcolor(15);textbackground(0);end;s_tmp:=str_item[cycle];if (cycle<>max_str_item) thenbegini_tmp:=max_len_item-length(s_tmp);for cycle2:=1 to i_tmp dobegininsert(' ',s_tmp,length(s_tmp)+1);end;end;write(s_tmp);end;textcolor(15);textbackground(0);create_menu:=item;end;{==============================================================================}beginclrscr;gotoxy(20,10);textcolor(4);write('INFORMACIONNAY POISKOVAYA SISTEMA');gotoxy(20,11);textcolor(1);write('kursovoyproekt');textcolor(2);gotoxy(20,12);write('2014');gotoxy(20,13);any_key;assign(file_base,'infodb.pdb'); {$I-}Reset(file_base); {$I+}ifIOresult<>0 thenbeginRewrite(file_base);endelsebeginReset(file_base);end;current_item:=1;current_item:=create_menu(current_item);flag_work:=1;whileflag_work=1 dobeginkey:=readkey;ifkey=#0 thenbeginkey:=readkey;if (key=#72) thenbegincurrent_item:=create_menu(current_item-1);end;if (key=#80) thenbegincurrent_item:=create_menu(current_item+1);end;endelsebeginif (key=#13) thenbegincasecurrent_item of 1: add_base_item(); 2: show_base_1; 3: show_base_2; 4: show_base_3; 5: show_base_4; 6: show_base_5; 7: show_base_6; 8: show_base_7; 9: flag_work:=0;end;end;end;create_menu(current_item);end;clrscr;close(file_base);end.Результаты выполнения заданияРисунок 1. Текстовая заставка приложения.Рисунок 2. Основное меню приложения.Рисунок 3. Добавление новой записи.Рисунок 4. Вывод базы данных на экранРисунок 5. Вывод клиентов покупавших в 2009 году.Рисунок 6. Вывод покупателей не покупавших в 2009 году.Рисунок 7. Вывод стоимости товаров на складе.Рисунок 8. Вывод информации по заказам клиентаРисунок 9. Вывод информации о количестве заказов каждого клиента.ЛИТЕРАТУРААбрамов В.Г., Трифонов Н.П., Трифонова Г.Н. Введение в язык Паскаль. — М.: Наука, 1988.Бондарев В.М., Рублинецкий В.И., Качко Е.Г. Основы программирования. —Харьков: Фолио, Ростов н/Д: Феникс, 1997. Ван Тассел Д. Стиль, разработка, эффективность, отладка и испытание программ. — М.: Мир, 1981. Вирт Н. Алгоритмы и структуры данных. — М.: Мир, 1989. Грогоно П. Программирование на языке Паскаль. —М.: Мир, 1982.Епашников A.M., Епашников В.А. Программирование в среде Турбо Паскаль 7.0. — М.: МИФИ, 1994.Зубов В. С. Программирование на языке TurboPascal (версии 6.0 и 7.0). — М.: Информационно-издательский дом «Филинъ», 1997. 3yeв Е. А. Практическое программирование на языке TurboPascal 6.0, 7.0. — М.: Радио и связь, 1994.