Автоматизация выдачи справок по товарам в универмаге

Тип работы: Материал
Бесплатно: Антиплагиат
Объем: 11 страниц
В избранное:

МИНИСТЕРМТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН
КАЗАХСКИЙ ЭКОНОМИЧЕСКИЙ УНИВЕРСИТЕТ ИМ. Т. РЫСКУЛОВА

Кафедра: Прикладная информатика

КУРСОВАЯ РАБОТА
По дисциплине:
Программирование на алгоритмических языках
На тему:
Автоматизация выдачи справок по товарам в универмаге

Выполнил :
Студент 1 курса,
109 группы, ВТиПО,
Пулиев Ю.А.
Проверила:

Ст.преподаватель

Тимофеева Е.П.

Алматы 2008
СОДЕРЖАНИЕ

Введение ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... . ... 3
1 Программная часть ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 4
1.1 Постановка задачи 4
1.2 Входная и выходная информация 4
1.3 Алгоритм решения задачи 4
1.4 Контрольный пример 13
Заключение ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..16

Введение

Паскаль ( замечательный язык программирования, который относительно
прост в изучении, довольно ясен и логичен и, будучи первым изучаемым языком
программирования, приучает к хорошему стилю. Паскаль воспитывает дисциплину
структурного программирования и программирования вообще лучше, чем другие
языки программирования, такие, как, например Бейсик.
Пакет Turbo Pascal 7.0 обладает ограниченными возможностями и позволяет
работать только в обычном режиме MS DOS. Начинающему программисту, по-
видимому, целесообразно начать изучение языка и среды именно с этого
пакета.
Язык характеризуется расширенными возможностями по сравнению со
стандартом, хорошо развитой библиотекой модулей, позволяющих использовать
возможности операционной системы, создавать оверлейные структуры,
организовывать ввод-вывод, формировать графическое изображение и т.д.
Достоинства
• Удобная среда разработки, включающая функциональный отладчик,
доступный в любой момент.
• Конкретная справочная система, по которой можно изучить язык без
обращения к сторонним источникам.
• Высокая скорость компиляции, высокая скорость выполнения
откомпилированных программ.
• Встроенная возможность использовать вставки на языке ассемблера.
Паскаль высоко используется во многих учебных заведения для обучения
программированию.

1 Программная часть

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

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

1.2 Входная и выходная информация

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

1.3 Алгоритм решения задачи

В исполнительной части программы выводится на экран меню для выбора
режима работы:

1 –Формирование новой базы данных.

2 – Просмотр базы данных.

3 – Корректировка базы данных.

4 - Добавление записей в базу данных.

5 - Удаление записи из базы данных.

6 - Конец работы. (рис.1)

Общая схема алгоритма

Рис.1

В программе введены следующие обозначения переменных:
Tovar – компоненты. Это записной тип, имеющий следующие поля: Name –
наименование, Price – цена товара, kolvo – количество товара, Data – дата
поступления, которая является компонент, это записной тип, имеющие
следующие переменные: Day – день поступления, Mon – месяц поступления, Year
– год поступления.
Filename – имя файла.
f – имя логического файла.
Tov – компонента файла.

Программа:

Program kursovai;

Uses CRT, Dos;
label menu;
Type
Tf = String[20];
Date = Record
chas : real;
day : 1..31;
Mon : 1..12;
Year : 1..2008;
End;
Tovar = Record
Name : Tf;
Data : Date;
Price : Real;
kolvo: integer;
End;
Var FileName : Tf;
R : Byte;
date1: Date;
year,month,day,dayofweek:word;
hour,minute,second, sec100:word;

{Процедура вывода даты на экран}

Procedure data_vremya;

Begin
TextColor(11);
GoToXY(65,45);
getdate(year,month,day,dayofweek);
writeln(day,'.',month,'.',year);
GoToXY(65,46);
getTime(hour,minute,second,sec100);
writeln(hour,':',minute);
End;

{Процедура написании шапки}

Procedure SHLAPKA;

Begin
Writeln(
'╔═════╦═════════════════════╦═════ ═══════════╦═════════════╦════════╗ ');
Writeln( '║ Nom ║ Naimenovanie tovara ║ Vremia i Data ║ Cena tovara ║
Kol-vo ║');
Writeln(
'╠═════╬═════════════════════╬═════ ═══════════╬═════════════╬════════╣ ');
End;

{Процедура начальной страницы }

Procedure O_PROGRAMME;

Begin
clrscr;
Textbackground(0);
TextColor(11);
GoToXY(15,10);
writeln(' UNIVERMAG');
GoToXY(15,12);
writeln('╔═════════════════════════ ════════════════════════════╗');
GoToXY(15,13); writeln('║ Prpgrama soderjit naimenovanie tovara v
univermage. ║');
GoToXY(15,14); writeln('║ Vipolniaet takie deistvia kak:
║');
GoToXY(15,15); writeln('║ Dobavliaet zapisi, korrektiruet, udalaet i
║');
GoToXY(15,16); writeln('║ vivodit spisok tovara v univermage.
║');
GoToXY(15,17);
writeln('╚═════════════════════════ ════════════════════════════╝');
readln;
End;

{Процедура ввода новых элементов базы данных}

Procedure Vvod(fname : Tf);

Var f : File Of Tovar;
tov: Tovar;
Begin
Clrscr;
Writeln(' FORMROVANIA NOVOI BAZI DANNIH!');
Assign (f, fname);
Rewrite(f);
Writeln('Okonchanie - pusto');
Write('Naimenovanie tovara - '); Readln(tov.name);
While tov.name '' do
Begin
With tov Do
Begin
Writeln('Data postuplenia : ');
Write('Vremia '); Readln(Data.chas);
Write('Den '); Readln(Data.Day);
Write('Mesac '); Readln(Data.Mon);
Write('God '); Readln(Data.Year);
Write('Cena za edinicu tovara - '); Readln(Price);
Write('Kolichestvo v shtukah - '); Readln(kolvo);
End;
Write(f, tov);

Write('Naimenovanie tovara - '); Readln(tov.name);
End; Writeln; Writeln;
Writeln('Dla prodolgenia - Enter');
Repeat Until keypressed;
Close (f);
End;

{Процедура просмотра элементов базы данных}

Procedure Look (fname : Tf);

Var f : File Of tovar; tov : tovar; i, code : Integer;
Begin
Clrscr;
Write(' Naimenovanie tovara na prilavkah magazina!');
Writeln; Writeln;
Assign (f, fname);
{$i-}
Reset(f);
{$i+}
If code 0 Then Begin
Writeln{('File net!')};
Delay(20000);
End;
SHLAPKA;
i:=0;
While Not eof(f) do
Begin
Read(f, tov);
With tov Do
... продолжение

Вы можете абсолютно на бесплатной основе полностью просмотреть эту работу через наше приложение.