Создание справочника "Парфюмерный магазин" при помощи программы Turbo Pascal
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
p>
Да
нет
Схема 7 - Поиск
Да
Нет
Схема 8 - Помощь
Операции
с товарами
Передвижение
PageDownPageUp
ESC
Схема 9 Вывод товара на экран
Схема 10 Вывод общего количества товаров
Схема 11 Найти первый товар
Схема 12 Добавить код товара в список
Да
нет
Схема 13 Поиск следующего товара
Нет
Да
Схема 14 Добавление нового товара
Нет
Да
Схема 15 Удаление товара
По товаруПо подразделу
Схема 16 Отчет по товарам
Приложение 6 Листинг программы
program parfum;
uses crt;
type {Список в котором содержатся код товаров}
integ=^int;
int=record
nomer:integer; {Код товара}
next:integ; {Ссылка на следующий элемент}
end;
var Nach:integ; {Начало списка}
tek:integ; {Текущий элемент списка}
d:integ; {Переменная для работы со списком}
i:integer; {Счетчик}
ch:char; {Ввод с клавиатуры}
Rozd:string; {Выбранный раздел}
nabor:integer; {Счетчик числа элементов меню}
men:array[1..16] of integer;{Массив вывода элементы Главного меню}
strok, stolb:integer;{Пункты меню}
lom:integer; {Переменная для работы с Главным меню}
vof:boolean; {Переменная указывает что массив цветов уже заполнен}
Razdel:integer;{Переменная которая указывает открытую главу}
PodRazd:integer; {Переменная которая указывает открыт подраздел}
MRazdel:integer; {Переменная которая указывает открыт раздел}
stek:text;{Файл в который добавляется код товара}
{KodStek:integer;}
ScetRP:integer; {Счетчик позиций в указанном разделе и подразделе}
hod:integer; {Ходы вверх вниз в списке}
kolvo:integer; {Количество элементов в списке}
Text1,Text2,Text3,Text4:string[19]; {Комментарии}
f:text; {Файловая переменная}
f1,f2,f3,f4,f8,pd,pu,f10:integer; {Цвета пунктов внизу экрана}
Prin:boolean;{логическая переменная для печать текущей позиции}
Baza:record {Переменные для работы с файлами}
Fsim:string; {Символ-разделитель}
FKod:integer; {Код товара}
FRazdel:integer; {Раздел}
FPodRazdel:integer; {Подраздел}
FName:String; {Название}
FSeria:string; {Серия}
FProizvod:string; {Производитель}
FOpisan:string; {Описание товара}
FMany:string; {Цена}
end;
procedure shapka; {Выводит разметку на экран, а именно горизонтальные и
вертикальные линии и кнопки управления внизу экрана,
а так же заголовок раздела и подраздела}
var MainName:string; {Название подраздела}
begin
GoToXY(30,1); Textcolor(14);
GoToXY(1,2); Textcolor(11); For i:=1 to 80 do write(-);
for i:=3 to 21 do
begin
GoToXY(20,i); Textcolor(11); writeln(|);
end;
GoToXY(1,22); For i:=1 to 80 do write(-);
GoToXY(1,23); Textcolor(F1); writeln(Помощь F1|);
GoToXY(11,23); Textcolor(F2); writeln(Новый F2|);
GoToXY(20,23); Textcolor(f3); writeln(Поиск F3|);
GoToXY(29,23); Textcolor(f4); writeln(Отчет F4|);
GoToXY(38,23); Textcolor(f8); writeln(Удалить F8|);
GoToXY(49,23); Textcolor(pu); writeln(Назад PUp|);
GoToXY(59,23); Textcolor(pd); writeln(Далее PDown|);
GoToXY(71,23); Textcolor(f10); writeln(Выход F10);
GoToXY(1,24); For i:=1 to 80 do write(-);
GoToXY(1,17); Textcolor(11); writeln(-------------------);
if rozd=0Then MainName:=ПАРФЮМЕРНЫЙ МАГ