Вход

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

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 74639
Дата создания 2014
Страниц 59
Источников 7
Мы сможем обработать ваш заказ 26 сентября в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
2 170руб.
КУПИТЬ

Содержание

ОГЛАВЛЕНИЕ
ВВЕДЕНИЕ 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.

Список литературы [ всего 7]

ЛИТЕРАТУРА
1. Абрамов В.Г., Трифонов Н.П., Трифонова Г.Н. Введение в язык Паскаль. — М.: Наука, 1988.
1. Бондарев В.М., Рублинецкий В.И., Качко Е.Г. Основы программирования. — Харьков: Фолио, Ростов н/Д: Феникс, 1997.
2. Ван Тассел Д. Стиль, разработка, эффективность, отладка и испытание программ. — М.: Мир, 1981.
3. Вирт Н. Алгоритмы и структуры данных. — М.: Мир, 1989.
4. Грогоно П. Программирование на языке Паскаль. — М.: Мир, 1982.
5. Епашников A.M., Епашников В.А. Программирование в среде Турбо Паскаль 7.0. — М.: МИФИ, 1994.
6. Зубов В. С. Программирование на языке Turbo Pascal (версии 6.0 и 7.0). — М.: Информационно-издательский дом «Филинъ», 1997.
7. 3yeв Е. А. Практическое программирование на языке Turbo Pascal 6.0, 7.0. — М.: Радио и связь, 1994.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022