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

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₁; 3: show_base₂; 4: show_base₃; 5: show_base₄; 6: show_base₅; 7: show_base₆; 8: show_base₇; 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.