магазин



Содержание ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...1
Введение ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...2
1. Постановка задачи ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..2
2. Описание программы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 3
2.1 Общие сведения ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...3
2.2 Функциональное назначение ... ... ... ... ... ... ... ... ... ... ... ... 3
2.3 Описание логической структуры программы ... ... ... ... ... ... ...3
2.4 Используемые технические средства ... ... ... ... ... ... ... ... ... .7
2.5 Вызов и загрузка ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...7
2.6 Инструкция к эксплуатации ... ... ... ... ... ... ... ... ... ... ... ... 7
2.7 Контрольный пример ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..9
Заключение ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..11
Список использованной литературы ... ... ... ... ... ... ... ... ... ... ... ... ...11
Приложение А ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..13
Приложение В ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
В настоящее время очень много программ пишутся для составления базы данных. Эта программа тоже является одной из таких. Такие программы очень широко используемы. В любой фирме компаний или государственных учреждений имеются база данных. Программа помогает узнать всю хранящуюся в базе данных информацию.
Задачей данной курсовой работы является ознакомление с программами данного типа. Необходимо разработать базу данных о магазинах и систему управления базой данных. Для осуществления данной задачи нужно разработать алгоритм и осуществить алгоритм на языке Turbo Pascal. Для этого в первых главах автор ознакамливается с общеизвестными алгоритмами. В последующих главах выбирается подходящий алгоритм и начинается осуществление задачи.


Постановка задачи

Составить программу, помогающую узнать сведения о магазине. В компьютере хранятся сведения о магазине: название улицы, номер дома, номер телефона. Данные хранятся в файле, сведения о разных магазинах разделены символом «*». Файлы созданы из сведений об однотипных магазинах, всего типов – семь. Сведения о гастрономах – «PROV» и т.д. По требованию выдавать следующую информацию:
- сведения обо всех магазинах заданного типа;
- сведения обо всех магазинах, находящихся по заданной улице;
- адрес магазина по заданному номеру телефона;
- сведения о магазинах, номер телефона которых содержит заданные три первые цифры.

Дисциплина: Информатика, Программирование, Базы данных
Тип работы:  Курсовая работа
Бесплатно:  Антиплагиат
Объем: 31 страниц
В избранное:   
Содержание

Содержание ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 1
Введение ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 2
1. Постановка задачи ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..2
2. Описание программы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 3
1. Общие сведения ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...3
2. Функциональное назначение ... ... ... ... ... ... ... ... ... ... ... ... 3
3. Описание логической структуры программы ... ... ... ... ... ... ...3
4. Используемые технические средства ... ... ... ... ... ... ... ... ... .7
5. Вызов и загрузка ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...7
6. Инструкция к эксплуатации ... ... ... ... ... ... ... ... ... ... ... ... 7
7. Контрольный пример ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..9
Заключение ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...11
Список использованной литературы ... ... ... ... ... ... ... ... ... ... ... ... ...11
Приложение А ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..13
Приложение В ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...19
Введение

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

Постановка задачи

Составить программу, помогающую узнать сведения о магазине. В
компьютере хранятся сведения о магазине: название улицы, номер дома, номер
телефона. Данные хранятся в файле, сведения о разных магазинах разделены
символом *. Файлы созданы из сведений об однотипных магазинах, всего
типов – семь. Сведения о гастрономах – PROV и т.д. По требованию выдавать
следующую информацию:
- сведения обо всех магазинах заданного типа;
- сведения обо всех магазинах, находящихся по заданной улице;
- адрес магазина по заданному номеру телефона;
- сведения о магазинах, номер телефона которых содержит заданные три
первые цифры.
2. Описание программы

2.1 Общие сведения
Данные о магазинах хранятся в файле Ol. Данные о типах магазина
хранятся в файле tipy. Данные об улицах на которых находятся магазины
хранятся в файле ulitsa. Внутри файла Ol данные хранятся в виде
записей. Каждая новая запись начинается с новой строки. Записи имеют
несколько полей. Каждое поле разделено друг от друга пробелом. Первое поле
соответствует названию магазина, второе поле – типу магазина, третье поле
- улице, на которой расположен магазин, четвёртое поле – номеру дома,
пятое поле – номеру телефона.
Программа написана на языке Turbo Pascal. Функционирует в среде MS DOS.
Занимает 30 килобайтов памяти компьютера.

2.2 Функциональное назначение
Программа предназначена работы с базами данных. Для быстрого нахождения
требуемой информации из базы данных.

3. Описание логической структуры программы
1. Название программы
2. Подключение стандартной библиотеки CRT
3-19 Описание переменных
20 Название процедуры okutipy
21-23 Описание локальных переменных процедуры
24 Вход в процедуру
25 Приравнивание I к 1
26 Условие цикла – пока не конец файла (k)
27-28 Ввод в файл k строки S
29 Приравнивание tipy[i] к
30 Увеличивание i на 1
31 Конец цикла или возвращение на начало цикла
32 Выход из процедуры
33 Название процедуры okuulitsa
34-36 Описание локальных переменных процедуры
37 Вход в процедуру
38 Приравнивание i к 1
39 Условие цикла – пока не конец файла g
40-41 Ввод в файл g строки S
42 Приравнивание ul[i] к s;
43 Увеличивание I на 1
44 Конец цикла или возвращение на начало цикла
45 Приравнивание переменной LenUl к i;
46 Выход из процедуры
47 Название процедуры oku
48-50 описание локальных переменных процедуры
51-52 Ввод в файл f строки S begin
53 Приравнивание s сцеплению строки s и i
54 Придаём i позийию пробела в s
55 поле name приравнивается значение символов до i
56 Отрезаем все символы до i включая i
57 Придаём i позийию пробела в строке s
58 поле typ приравнивается значение символов до i
59 Отрезаем все символы до i включая i
60 Придаём i позийию пробела в строке s
61 поле ul приравнивается значение символов до i
62 Отрезаем все символы до i включая i
63 Придаём i позийию пробела в строке s
64 поле nomer приравнивается значение символов до i
65 Отрезаем все символы до i включая i
66 Придаём i позийию пробела в строке s
67 поле tel приравнивается значение символов до i
68 Выход из процедуры
69 Название процедуры AddUl
70-71 описание локальных переменных
72 Вход в процедуру
73 Связывание файловой переменной f с файлом ulitsa.txt
74 Открытие файловой переменной f для его расширения
75-76 Вывод в файловую переменную f инфрмации из s
77 Нахождение LenUl (LenUl+1)
78 Приравнивание Ul[LenUl] к s;
79 Закрытие (f);
80 Выход из процедуры
81 Название функции UlByNumber
82-83 Опсание локальных переменных
84 Вход в процедуру
85 условие цикла от i:=1 до LenUl
86 если ul[i] равен s тогда
87-91 UlByNumber равно i и выход из процедуры;
92 В противном случае вызов процедуры AddUl
93 Нахождение UlByNumber;
94 Выход из процедуры
95 Название функции TipByNumber
96-97 описание локальных переменных
98 Вход в процедуру
99 Условие цикла (от i=1 до 7)
100 Условие если tipy[i] равно s тогда
101-104 TipByNumber равно i и выход из процедуры;
105 В противном случае TipByNumber равно 0;
106 Выход из процедуры
107 Название процедуры findtip
108-110 описание локальных переменных
111 вход в процедуру
112 Вывод ('BBEDU TYP: ')
113 Ввод (l)
114 Придаём bar значение false;
115 Условие цикла –пока не конец файла d
116-117 Вызов процедуры oku
118 Условие- если r.typ равно TipByNumber(l) то
119-123 bar приравниваем true и выводим информацию
124 Конец ли возвращение на начало цикла
125 А если bar равно false, тогда вывод ('HET INFORMACIY')
126 Выход из процедуры
127 Название процедуры findulitca
128-130 описание локальных переменных
131 Вход в процедуру
132 Вывод ('BBEDU ULITSU: ')
133 Ввод(f)
134 Придаём bar значение false
135 Условие цикла –пока не конец файла d
136-137 Вызов процедуры oku
138 Условие – если r.ul равно UlByNumber(f) то
139-143 bar приравниваем true и выводим информацию
144 Конец или возвращение на начало цикла
145 А если bar равно false, тогда вывод ('HET INFORMACIY')
146 Выход из процедуры
147 Название процедуры findtel
148-150 Описание локальных переменных
151 Вход в процедуру
152 Вывод ('BBEDU TELEFON: ')
153 Ввод (а)
154 Придаём bar значение false
155 Условие цикла – пока не конец файла (d)
156-157 Вызов процедуры oku
158 Условие – если r.tel равно a тогда
159-163 bar приравниваем true и выводим информацию
164 Конец или возвращение на начало цикла
165 Условие = если bar равно false тогда вывод ('HET INFORMACIY')
166 Выход из процедуры
167 Название процедуры TEL
168-170 Описание локальных переменных
171 Вход в процедуру
172 Вывод ('BBEDU 3 PERVIE CIFRI NOMERA TELEFONA MAGAZINA: ');
173 Ввод (a); writeln; writeln;
174 Придаём bar значение false
175 Условие цикла – пока не конец файла (d)
176-177 Вызов процедуры oku
178 Условие = если pos(a,r.tel) равно 1тогда
179-183 bar приравниваем true и выводим информацию
184 Конец или возвращение на начало цикла
185 Условие – если bar равно falseтогда вывод ('HET INFORMACIY');
186 Выход из процедуры
187 Название процедуры BBOD
188-191 описание локальных переменных
192 Вход в процедуру
193 Связывание файловой переменной d с файлом OL
194 Открытие файла(d) для его расширения
195 Вывод ('BBEDU Nazvanie: ');
196 Ввод (l);
197 s приравниваем к пробелу;
198 s приравниваем сцеплению s с l
199 s приравниваем сцеплению s с пробелом
200 Вывод ('BBEDU TYP: ');
201 Ввод (l);
202 Приравнивание p к TipByNumber(l);
203 преобразуем p в строку символов l
204 s приравниваенм сцеплению строк s и l
205 s приравниваем сцеплению s с пробелом
206 Вывод ('BBEDU ULITSU: ');
207 Ввод (l);
208 p приравниваем UlByNumber(l);
209 преобразуем p в строку символов l
210 Сцепляем s с l
211 Сцепляем s с пробелом
212 Вывод ('BBEDU NOMER DOMA: ');
213 Ввод (l);
214 Сцепляем s с l
215 Сцепляем s спробелом
216 Вывод ('BBEDU TEL: ');
217 Ввод (l);
218 Сцепляем s с l
219-220 Запись в файл (d) строки s
221 Закрываем файл (d);
222 Связываем файл d с файлом OL
223 Открываем файл (d);
224 Очистка экрана
225 Вывод ('OPERACIA PROIZBEDENA USPESHNO')
226 Выход из процедуры

227 Начало программы
228 связывание файловой переменной t с файлом ulitsa
229 Открываем файл (t)
230 Вызов процедуры okuulitsa
231 Закрываем файл(t)
232 Связываем файловую переменнуюt с файлом tipy
233 Открываем файл (t)
234 Вызов процедуры okutipy
235 Закрываем файл(t)
236 Связываем файловую переменную F с файлом ol;
237 Открываем файл (f);
238 Очистка экрана
239 Вывод ('VIBERI DEISTVIE u HAZHMU "ENTER":')
240 Вывод ('NAITY:')
241 Вывод ('1) PO TYPU')
242 Вывод ('2) PO ULITSE')
243 Вывод ('3) PO TELEFONU')
244 Вывод ('4) PO 3 PERBIM CIFRAM TEL')
245 Вывод ('5) DOBAVLENIE CBEDENY')
246 Вывод ('6) EXIT')
247 Вывод ('DEISTVIE: ')
248 Ввод (m)
249 Оператор выбора CASE
250 Если 1, то вызов процедуры findtip
251 Если 2, то вызов процедуры findulitca
252 Если 3, то вызов процедуры findtel
253 Если 4, то вызов процедуры tel
254 Если 5, то вызов процедуры BBOD
254 Если 6, то выход из программы
255 В противном случае вывод ('DEISTVIE NE VIPOLNIMO ')
257 Конец выбора действии
258 Открытие файла(F)
259 Вывод ('PRODOLZHITE RABOTU ? {1-PRODOLZHIT, 2-EXIT}')
260 Ввод (y);
261 Оператор выбора case
262 Если 1, то переход на 238
263 Если 2, то выход из программы
264 В противном случае переход на 259
265 Закрываем файл
266 Конец программы

4. Используемые технические средства
ЭВМ на базе процессора Pentium, операционная система Windows XP, язык TURBO
PASCAL 7.0, принтер HP LaserJet 1020.

5. Вызов и загрузка
Для работы с программой необходимо запустить TURBO PASCAL 7.0.
Загрузить файл KURS.PAS. Запуск программы осуществляется вызовом
команды RUN из системного меню, или нажатием комбинации клавиш CTRL+F.
Компиляция программы осуществляется при помощи комбинации клавиш ALT+F9.

2.6 Инструкция к эксплуатации

При запуске программы на экране появляется меню пользователя.
Пользователь должен выбрать требуемую ему операцию, набрав на клавиатуре
соответствующий этой операций номер и нажать кнопку “ENTER”. В зависимости
от того какую операцию выбирает пользователь появляется запрос (BBEDU TYP,
BBEDU ULITSU, BBEDU TEL ).
Чтобы найти информацию о магазине по типу используется процедура
Findtip. Она работает следующим образом: пользователь вводит требуемый ему
тип магазина и программа сравнивает с этой переменной поля записей
соответствующие типу магазина. Если находит равенство то выводит всю
информацию хранящуюся в данной записи на экран.
Для получения сведений о магазинах находящихся по заданной улице
используется процедура Findulitsa. Она работает таким образом: пользователь
вводит требуемый ему улицу и программа сравнивает с этой переменной поля
записей соответствующие улице магазинов. Если находит равенство то выводит
всю информацию хранящуюся в данной записи на экран.
Для нахождения адреса магазина по заданному телефону используется
процедура Findtel. Она работает таким образом: пользователь вводит номер
телефона и программа сравнивает с этой вводимой переменной поля записей
соответствующие номеру телефона магазинов. Если находит равенство, то
выводит адрес магазина (улицу и номер дома).
Для получения сведений о магазинах по заданным трём первым номерам
телефона используется процедура Tel. Она работает таким образом:
пользователь вводит первые три цифры номера телефона. Затем в цикле
программа ищет равенство этих 3-х первых цифр трём первым цифрам поля
соответствующего номеру телефона. Если находит равенство, то выводит всю
информацию, хранящуюся в данной записи на экран.
В файле Ol тип магазина и улицы даны в виде цифр, чтобы не занимать
много места. А при получении информации вместо букв программа считывает
улицу и тип с файлов tipy и ulitsa, при помощи процедур okutipy и
okuulitsa. Они работают следующим образом: Они считыают число и при выдаче
информаций вместо числа выдают улицу расположенную под этим прядковым
номером. Так же выдаётся и тип магазинаю. А при добавлений сведении
используется также процедуры UlByNumber и TipByNumber. Они работают
наоборот, по улице и типу выдают соответствующие числа. А если улицы нет в
списке имеющихся то используется процедура AddUl. Возвращает номер
соответствующий порядковому номеру улийы в файле.
После выполнения каждой операций на экране появляется запрос продолжать
или нет работу. Чтобы продолжить нужно нажать 1, а чтобы остановить
дальнейшую работу 2.

6. Контрольный пример

VIBERI DEISTVIE u HAZHMU "ENTER":

NAITY:
1) PO TYPU
2) PO ULITSE
3) PO TELEFONU
4) PO 3 PERBIM CIFRAM TEL
5) DOBAVLENIE CBEDENY
6) EXIT

DEISTVIE: 3

BBEDU TELEFON: 455456

Ulitsa: TOLEBI Nomer doma: № 8 Tel: 455456

В этом примере я выбрал действие нахождение Адреса магазина по номеру
телефона. Для этого в появившемся меню выбираем 3 пункт, т.е. 3) PO
TELEFONU, далее появляется запрос BBEDU TELEFON: там я ввёл номер
телефона – 455456. И программа выдала мне адрес магазина

Заключение

В настоящее время очень ... продолжение

Вы можете абсолютно на бесплатной основе полностью просмотреть эту работу через наше приложение.
Похожие работы
Логистичeскиe систeмы городских пассажирских пeрeвозок
Мерчендайзинг как фактор продвижения товара на рынке
Транзит товаров
«Товар в комплексе маркетинга»
Таможенное оформление товаров – процедура помещения товаров под определенный таможенный режим
Организационно-производственная структура управления автобусного парка
Интернет-магазин бытовой техники
Анализ рекламоносителей и рекламных сообщений в торговле на примере гипермаркета Magnum Cash Carry
Теоретические основы маркетинговой деятельности торгового предприятия
ДЕЙСТВУЮЩАЯ ПРАКТИКА ЛИЗИНГОВОГО ФИНАНСИРОВАНИЯ В РЕСПУБЛИКЕ КАЗАХСТАН
Дисциплины