Размещено на http://www.allbest.ru/

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1. ПОСТАНОВКА ЗАДАЧИ

2. ВЫБОР И ОПИСАНИЕ МЕТОДОВ РЕШЕНИЯ

3. СООТВЕТСТВИЕ МЕЖДУ ПЕРЕМЕННЫМИ, ПРИНЯТЫМИ ПРИ ОПИСАНИИ ЗАДАЧИ И В ПРОГРАММЕ

4. СТРУКТУРНАЯ СХЕМА ПРОГРАММЫ И ЕЁ ОПИСАНИЕ

5. ЛИСТИНГ ПРОГРАММЫ

6. КОНТРОЛЬНЫЙ ПРИМЕР И АНАЛИЗ РЕЗУЛЬТАТОВ

7. ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ

ЗАКЛЮЧЕНИЕ

СПИСОК ЛИТЕРАТУРЫ

ПРИЛОЖЕНИЯ

ВВЕДЕНИЕ

Прогресс в области высоких технологий финансовых операций является применение мультимедиа технологий при общении человека и машины. При этом огромную роль играет стремление фирм создать максимально дружественный интерфейс. Все операции должны быть понятными на интуитивном уровне. Данные факты свидетельствуют в пользу актуальности создания курсовых работ, посвящённых созданию компьютезированного учета игрушек на складе.

Работа программ, реализующих работу учета игрушек в магазине складывается из ряда этапов:

1)Отображение игрушек дороже 500 руб.

2)Минимальное кол-во игрушек для детей 2й воз. группы.

3)Тройка лидеров по количеству игрушек.

4)Общее количество игрушек.

5-Лидеры по кол-ву игрушек по воз. группам./1/.

1. ПОСТАНОВКА ЗАДАЧИ

Написать программу на языке программирования Pascal, реализующую работу базы данных магазина игрушек. Позволяющую получать следующую информацию:

1. список игрушек дороже 500 рублей отечественного и импортного производства, а также их общую стоимость;

2. список из трёх стран, количество штук игрушек которых для детей от 1 года до 3 лет меньше всего в базе;

3. список из трёх стран, количество штук игрушек которых больше всего в базе и нам какую сумму;

4. сколько детей в возрасте до 1 года, от 1 года до 5 лет и от 5 лет и старше могут получить по одной игрушке;

5. список стран с наибольшим количеством игрушек для каждого из возрастов

Результат работы программы должен выводиться на экран и в файл. В программе предусмотреть работу с файлами, подпрограммы и следующее меню:

МЕНЮ

1-Отобразить игрушки дороже 500 руб.

2-Минимальное кол-во игрушек для детей 2й воз. группы

3-Тройка лидеров по количеству игрушек

4-Общее количество игрушек

5-Лидеры по кол-ву игрушек по воз. группам

6-Выбор файла для сохранения

0-Выход

Введите нужный пункт меню

2. ВЫБОР И ОПИСАНИЕ МЕТОДОВ РЕШЕНИЯ

В данной работе требуется осуществлять поиск информации по нескольким различным критериям. В простейшем случае возможно для каждого случая проводить отбор в отдельном цикле, а некоторую информацию по ряду циклов. В данном исполнении программа будет занимать много места и соответственно пояснительная записка превысит все разумные размеры. Для осуществления оптимизации и сокращения программного кода проанализируем поставленную задачу и выявим общие принципы, в построении ответа на все задания.

В заданиях 3, 4 и 5 запросы основаны на выборе информации по странам производителям. Наиболее удачен в таком случае поиск списка стран в отдельной подпрограмме. Рассмотрим более подробно её работу.

На первом этапе необходимо сформировать массив стран, игрушки которых удовлетворяют поставленным требованиям. Параллельно будем вычислять общую стоимость и общее количество игрушек, произведенных данной страной. программа база данный магазин

На втором этапе необходимо выбрать от одной (в задании 5 необходимо находить только абсолютных лидеров в различных возрастных интервалах) до 3 стран, количество игрушек которых либо максимально, либо минимально. Это сделать довольно просто, если осуществить сортировку массива стран по возрастанию, либо по убыванию общего количества игрушек в базе данных, причем ограничившись только первыми 3 странами. В последствии для выполнения задания 5 достаточно будет только запустить процедуру запроса в цикле по номеру возрастной группы.

3. СООТВЕТСТВИЕ МЕЖДУ ПЕРЕМЕННЫМИ, ПРИНЯТЫМИ ПРИ ОПИСАНИИ ЗАДАЧИ И В ПРОГРАММЕ

Соответствие между переменными, принятыми при описании меню приведено в табл. 1

Соответствие между переменными, принятыми при описании задачи и в процедуры GAME приведено в табл. 2.

Таблица 1 Соответствие между переменными, принятыми
при описании МЕНЮ.

Обозначения, принятые при описании задачи	Обозначения в программе	Наименование
-	menukey	Ячейка для хранения данных о нажатии клавиши.
-	Name	Имя игрока.
-	Save	Сохранение результатов.
-	f	Файловая переменная
-	readkey	Считываем значение нажатой клавиши.

Таблица 2 Соответствие между переменными, принятыми
при описании задачи и в процедуре GAME

Обозначения, принятые при описании задачи	Обозначения в программе	Наименование
-	i	Счетчик цилк.
-	v	Вектор направления головы змейки.
-	E	Координаты еды
-	gameover	Процедура завершающая игру.
-	key	Буфер клавиши.
-	username	Процедура считывающая имя пользователя.

4. СТРУКТУРНАЯ СХЕМА ПРОГРАММЫ И ЕЁ ОПИСАНИЕ

Структурная схема главной программы представлена на рис. 4.1.

Блок 1: Обращение к процедуре ASSIGN, для подключения текстового файла к файловой переменной;

Блок 2: Обращение к процедуре RESET, для открытия файла для чтения;

Блок 3: Обнуление счетчика числа записей, о игрушках;

Блок 4: Увеличение счетчика числа записей о игрушках на единицу;

Блок 5: Ввод записи о игрушке;

Блок 6: Проверка достижения конца файла;

Блок 7: Обращение к процедуре CLOSE, для закрытия файла;

Блок 8: Вывод меню;

Блок 9: Ввод управляющей команды;

Блок 10: Проверка, является ли введенная клавиша единицей;

Блок 11: Проверка, является ли введённая клавиша двойкой;

Блок 12: Обращение к процедуре запроса ZAPROS, для поиска 3 стран с минимальным количеством игрушек для детей 2 возрастной группы;

Блок 13: Цикл вывода отечественных и импортных игрушек дороже 500 рублей;

Блок 14: Обнуление ячейки суммарной стоимости;

Блок 15: Цикл вывода игрушек дороже 500 рублей;

Блок 16: Проверка стоимости игрушки;

Блок 17: Вывод записи о игрушке;

Блок 18: Увеличение ячейки суммарной стоимости на стоимость партии текущих игрушек;

Блок 19: Вывод общей стоимости игрушек;

Блок 20: Проверка, является ли введенная клавиша тройкой;

Блок 21: Обращение к процедуре запроса ZAPROS, для поиска 3 стран с максимальным количеством игрушек;

Блок 22: Проверка, является ли введенная клавиша четвёркой;

Блок 23: Цикл обнуления счетчика количества игрушек;

Блок 24: Обнуление количества игрушек для I-той возрастной группы;

Блок 25: Цикл вывода количества детей, которые могут получить по одной игрушке согласно возрастным группам;

Блок 26: Увеличение ячейки суммарного количества игрушек для I-той возрастной группы;

Блок 27: Цикл вывода количества детей, которые согласно своему возрасту могут получить по одной игрушке;

Блок 28: Вывод количества детей I-той возрастной группы, которые могут получить по одной игрушке;

Блок 29: Вывод количества детей возрастом от 5 лет и старше, которые могут получить по одной игрушке;

Блок 30: Проверка, является введённая клавиша пятёркой;

Блок 31: Цикл вывода списка стран, лидеров по количеству игрушек в базе по возрастным группам;

Блок 32: Обращение к процедуре ZAPROS, для поиска страны с максимальным количеством игрушек I-той возрастной группы;

Блок 33: Проверка, является введённая клавиша шестёркой;

Блок 34: Ввод названия файла, для сохранения результата;

Блок 35: Проверка, было ли введено имя файла;

Блок 36: Обращение к процедуре ASSIGN, для подключения текстового файла к файловой переменной;

Блок 37: Обращение к процедуре rewrite, для открытия файла для записи;

Блок 38: Проверка, является введённая клавиша нулём;

Блок 39: Проверка, был ли открыт файл для записи;

Блок 40: Обращение к процедуре CLOSE для закрытия файла сохранения.

Структурная схема процедуры ZAPROS, реализующей поиск информации по странам производителям, представлена на рис. 4.2.

Блок 1: Обнуление счетчика количества стран;

Блок 2: Цикл поиска списка стран;

Блок 3: Обнуляем номер страны производителя I-той игрушки;

Блок 4: Цикл поиска наличия страны изготовителя I-той игрушки среди уже найденных стран;

Блок 5: Проверка совпадения страны изготовителя I-той игрушки с J-той страной;

Блок 6: Запись номера страны изготовителя I-той игрушки;

Блок 7: Проверка соответствия игрушки заданному возрастному критерию, либо отсутствия данного критерия;

Блок 8: Проверка отсутствует ли страна изготовитель I-той игрушки в списке стран;

Блок 9 - Блок 12: Добавление в список стран новой страны, запись начального значения количества и суммарной стоимости всех игрушек, произведённых данной страной;

Блок 13 - Блок 14: Увеличение количества игрушек и суммарной стоимости всех игрушек, произведённых данной страной на соответствующие значения I-той игрушки;

Блок 15, блок 22, блок 23: Перемещение страны в начало списка в соответствии с требованиями сортировки;

Блок 16: Цикл поиска первых N стран упорядоченных по возрастанию или убыванию;

Блок 17: делаем начальное предположение о минимальности (максимальности) количества игрушек, выпущенных данной страной;

Блок 18:цикл поиска номера страны с минимальным (максимальным) количеством игрушек в базе данных;

Блок 19: Проверка минимальности (максимальности) количества игрушек данной страны;

Блок 20: Запись номера страны с минимальным (максимальным) количеством игрушек в базе данных;

Блок 21: Вывод названия страны и суммарной стоимости игрушек;



Размещено на http://www.allbest.ru/

Рис. 4.1 структурная схема главной программы



Размещено на http://www.allbest.ru/



Размещено на http://www.allbest.ru/



Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/



Размещено на http://www.allbest.ru/



Размещено на http://www.allbest.ru/

5. ЛИСТИНГ ПРОГРАММЫ

Листинг программы приведён в приложении А. Вид меню - в приложении Б. Вид игры - в приложение В. Вид таблицы победителей - в приложении Г. Диск с программой - в приложении Д.

6. КОНТРОЛЬНЫЙ ПРИМЕР И АНАЛИЗ РЕЗУЛЬТАТОВ

Протестируем работу программы, для чего будем использовать базу данных на 11 типов игрушек (см. табл. 3)

Из таблицы видно, что отечественными игрушками дороже 500 рублей являются:

· самолёт;

· юла.

А импортными:

· велосипед;

· конструктор.

Найдём три страны, количество игрушек которых для детей от 1 года и до 5 лет минимально. Сперва, определим список стран (см. табл. 4). Теперь видно, что наименьшее количество игрушек произведено Украиной, потом идёт США и замыкает цепочку Россия.

Найдём три страны, общее количество игрушек которых будет максимальным. Опять определяем список стран (см. табл. 5). Теперь видно, что наибольшее количество игрушек произведено Россией, потом Украиной и замыкает тройку США.

Найдём количество детей, которые согласно своему возрасту могут получить по одной игрушке. Вычисления удобно производить в таблице (см. табл. 6).

Найдём страны лидеры, по количеству игрушек в каждом возрастном интервале (см .табл. 7). Таким образом видно, что на интервале до года, лидером является Россия (5 игрушек), на интервале от года до 5 лет - Россия (55 игрушек), на интервале от 5 лет и до 13 - Украина (60 игрушек), и на интервале от 5 лет и старше - Россия (100 игрушек)

Сравнивая результаты, полученные при помощи программы и найденные вручную можно заметить, что они полностью совпадают, что свидетельствует об адекватности работы программы.

Таблица 3 Содержимое базы данных

№	Наименование игрушки	Страна изготовитель	Цена	Кол-во	Возрастная группа
1	велосипед	USA	1000.00	7	от 5 до 13 лет
2	конструктор	USA	526.50	32	от 13 и старше
3	кукла	RuS	64.50	3	от 1 года до 5 лет
4	машинка	USA	3.50	12	от 1 года до 5 лет
5	мишка	RuS	21.50	51	от 5 до 13 лет
6	мячик	UKR	7.50	3	от 1 года до 5 лет
7	самолёт	RuS	720.50	12	от 13 и старше
8	скакалка	Ukr	5.00	60	от 5 до 13 лет
9	соска	RuS	12.50	5	до года
10	юла	RuS	500.50	52	от 1 года до 5 лет
11	спички	Rus	12.50	100	от 13 и старше

Таблица 4 страны производители игрушек для детей в возрасте от 1 года до 5 лет

№	Страна	Кол-во игрушек	Суммарная стоимость
1	USA	12	12•3.50=42
2	Rus	3+52=55	3•64.50+52•500.50=26219,5
3	UKr	3	3•7.50=22,5

Таблица 5 Страны производители игрушек

№	Страна	Кол-во игрушек
1	USA	7+32+12=51
2	Rus	3+51+12+5+52+100=223
3	UKr	3+60=63

Таблица 6 Страны производители игрушек

№	Кол-во игрушек
до года	5
от 1 года до 5 лет	3+12+3+52=70
от 5 и старше	7+51+60+32+12+100=262

Таблица 7 Страны лидеры поколичеству игрушек внутри возратных интервалах

	Кол-во игрушек
Страна	USA	Rus	UKr
до года	0	5	0
от 1 года до 5 лет	12	3+52=55	3
от 5 до 13 лет	7	51	60
от 13 и старше	32	100	0

7. ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ

Программа реализующая работу базы данных игрушечного отдела магазина расположена на диске (см. прил. Д) и занимает 13312 байт.

Для работы с программой запустите файл TOYSOTDE.EXE. После запуска программы на экране появится окно, которое содержит меню программы, (см. прил. Б).

· .Для отображения игрушек отечественного и импортного производства дороже 500 рублей введите цифру 1, При этом будет выведен список отечественных товаров, дороже 500 рублей, далее нажмите любую клавишу, после чего будет выведен список импортных игрушек, дороже 500 рублей (см. прил. В). Для возврата в меню нажмите любую клавишу;

· Для отображения (либо сохранения) 3 стран с минимальным количеством игрушек для детей в возрасте от 1 года до 3 лет, введите цифру 2. После просмотра интересуемой информации (см. прил. Г) для возврата в меню нажмите любую клавишу.

· Для просмотра списка стран лидеров по общему количеству игрушек в базе данных введите цифру 3. После просмотра интересуемой информации (см. прил. Д) для возврата в меню нажмите любую клавишу.

· Для вывода на экран (либо сохранения в файл) количества детей, которые могут получить по одной игрушке, согласно своему возрасту введите цифру 4. После просмотра интересуемой информации (см. прил. Е) для возврата в меню нажмите любую клавишу.

· Для просмотра (либо сохранения) списка стран лидеров по количеству игрушек внутри каждой из возрастных групп введите цифру 5. После просмотра интересуемой информации (см. прил. Ж) для возврата в меню нажмите любую клавишу.

· Для выбора файла для сохранения результата введите цифру 6, введите имя файла Rez.txt и подтвердите ввод нажатием клавиши Enter.

· Для возврата к выводу результата на экран введите цифру 6, в ответ на запрос не вводите ничего, только нажмите клавишу Enter.

· Для выхода из программы введите цифру 0.

ЗАКЛЮЧЕНИЕ

В данной работе была разработана программа игрушечный отдел магазина, таким образом, поставленная задача полностью реализована. На отладку программы использовано 4 часа. Особенностью данной программы является использование универсальной процедуры запроса, благодаря чему при выводе информации о странах производителях игрушек параллельно выводится и общая стоимость интересуемой продукции. Улучшить данную программу можно введя возможность редактирования базы данных.

СПИСОК ЛИТЕРАТУРЫ

1. Филиппенко Л.Н., Филиппенко Г.Г. Методические указания к выполнению курсовой работы по дисциплинам: «Программирование на ЯВУ», «Информатика»: Новочеркасск 2004 год- 21с.

2. Любиев О.Н., Филиппенко Л.Н., Филиппенко Г.Г. Методические указания к выполнению курсовой работы по дисциплинам «Программирование на ЯВУ, Информатика», Новочеркасск, ЮРГТУ, 2003г. - 256 с.

3. Фаронов В.В. «Турбо Паскаль 7.0» Начальный курс. Учебное пособие. Издание 7-е, переработанное. - М.: «Нлидж», издатель Молчалева С.В., 2001.-576 с. с ил.

4. Абрамов В.Г., Трифонов Н.П. Введение в язык Паскаль. - М. :Наука, 1988.-320 с.

ПРИЛОЖЕНИЯ

Приложение А

ЛИСТИНГ ПРОГРАММЫ

Uses

CRT;

const

GrVoz:array[1..4] of string=('до 1 года ',

'от 1 до 5 лет ',

'от 5 до 13 лет',

'от 13 и старше');

type

ttoys=record

Name:string[12];

made:string[5];

cena:real;

Kol:integer;

Vozr:1..4;

end;

tland=record

Name:string[5];

Kol:integer;

SumCena:real;

end;

TLands=array[1..100] of tLand;

var

A:array[1..100] of tToys;

Ntoys:integer;

Sav:string;

f:text;

{=====================================================}

Procedure Zapros(voz:integer; N:integer; min:boolean);

var

newland,i,j:integer;

Land:TLands;

nland:integer;

{=====}

n_m_kol:integer;

ELand:Tland;

begin

Nland:=0;

for i:=1 to NToys do

begin

NewLand:=0;

for j:=1 to NLand do

if A[i].made=Land[j].Name then

NewLand:=j;

if (a[i].vozr=voz) or (voz=0) then

if NewLand=0 then

begin

Nland:=NLand+1;

Land[Nland].name:=A[i].made;

Land[Nland].Kol:=A[i].kol;

Land[Nland].SumCena:=A[i].kol*A[i].cena;

end

else

begin

Land[NewLand].Kol:=Land[NewLand].Kol+A[i].kol;

Land[NewLand].Sumcena:=Land[NewLand].Sumcena+A[i].kol*A[i].cena;

end;

end;

{Выбираем из массива стран первые N штук согласно возрастной группе}

for i:=1 to N do

begin

n_m_kol:=i;

for j:=i+1 to NLand do

if (land[n_m_kol].kol>land[j].kol)=(min) then n_m_kol:=j;

With land[n_m_kol] do

begin if sav='' then Writeln('Страна:',name,' количество:',kol,' общей стоимостью:',sumcena:0:2)

else Writeln(f,'Страна:',name,' количество:',kol,' общей стоимостью:',sumcena:0:2) end;

ELand:=Land[i];

Land[i]:=land[n_m_kol];

land[n_m_kol]:=Eland;

end;

end;

{================================================}

var

koligr:array [1..4] of integer;

i,j:integer;

ObSt:real; key:char;

{=========================}

begin

assign(f,'toys.txt');

reset(f);

nToys:=0;

repeat

nToys:=NToys+1;

with a[nToys] do

Readln(f,name,made,cena,kol,vozr);

until eof(f);

close(f);

{=========================}

repeat

Window(1,1,80,25);

TextBackGround(White);

clrscr;

Window(12,5,68,14);

TextBackGround(Blue);

clrscr;

TextColor(Yellow);

GotoXY(25,1);

Writeln('МЕНЮ');

if Sav='' then writeln(' Результаты выводятся на экран')else

Writeln(' Результаты схраняются в файл:',Sav);

Writeln(' 1-Отобразить игрушки дороже 500 руб');

Writeln(' 2-Минимальное кол-во игрушек для детей 2й воз.группы');

Writeln(' 3-Тройка лидеров по количеству игрушек');

Writeln(' 4-Общее количество игрушек ');

Writeln(' 5-Лидеры по кол-ву игрушек по воз. группам');

Writeln(' 6-Выбор файла для сохранения');

Writeln(' 0-Выход');

key:=readkey;

Window(1,1,80,25);

TextBackGround(White);

TextColor(Black);

clrscr;

case key of

'1':for j:=1 to 2 do

begin

ObSt:=0;

if j=1 then

writeln('Отечественные игрушки дороже 500 руб:')

else

writeln('Импортные игрушки дороже 500 руб:');

for i:=1 to Ntoys do

with A[i] do

if ((Pos('Rus',made)>0)=(j=1)) and (cena>500) then

begin

Writeln(Name,' Cena:',cena:7:2,' Kol-vo:',kol);

ObSt:=ObSt+cena*kol;

end;

Writeln('Общей стоимостью: ',ObSt:0:2);

readkey;

end;

'2':begin

if sav='' then

Writeln('Минимальное количество игрушек для детей от года до 3-х лет произведено в:')

else

Writeln(f,'Минимальное количество игрушек для детей от года до 3-х лет произведено в:');

Zapros(2,3,true);

end;

'3':begin

if sav='' then Writeln('Три страны, лидеры по общему количеству игрушек:')

else Writeln(f,'Три страны, лидеры по общему количеству игрушек:');

Zapros(0,3,false);

end;

'4':begin

for i:=1 to 4 do KolIgr[i]:=0;

for i:=1 to NToys do

KolIgr[A[i].vozr]:=KolIgr[A[i].vozr]+A[i].kol;

if sav='' then

begin

for i:=1 to 2 do

Writeln('Дети возрасной группы ',GrVoz[i],' могут получить ',KolIgr[i],' игрушек');

Writeln('Дети возрасной группы от 5 лет и старше могут получить ',KolIgr[3]+KolIgr[4],' игрушек')

end

else

begin

for i:=1 to 2 do

Writeln(f,'Дети возрасной группы ',GrVoz[i],' могут получить ',KolIgr[i],' игрушек');

Writeln(f,'Дети возрасной группы от 5 лет и старше могут получить ',KolIgr[3]+KolIgr[4],' игрушек')

end;

end;

'5':begin

if sav='' then Writeln('Страны лидеры по количеству игрушек')

else Writeln(f,'Страны лидеры по количеству игрушек');

for i:=1 to 4 do

begin

if sav='' then Write('Возр. гр.:',GrVoz[i],' ')

else Write(f,'Возр. гр.:',GrVoz[i],' ');

Zapros(i,1,false);

end;

end;

'6':begin

Writeln('Введите имя файла');

Readln(sav);

if sav<>'' then

begin

{I$-}

Assign(f,sav);

rewrite(f);

{I$+}

end

end;

end;

if (sav='') and (key<'6') and (key>'1') then readkey;

until key='0';

if sav<>'' then close(f);

end.

Приложение Б

Вид меню

Приложение В

Список продукции дороже 500 рублей

Приложение Г

Тройка стран ауцайдеров по количеству игрушек для детей в возрасте от 1 года до 3 лет

Приложение Д

Тройка стран лидеров по общему количеству игрушек

Приложение E

Количества игрушек

Приложение Ж

Список стран лидеров по количеству игрушек внутри возрастной группы

Размещено на Allbest.ru

...