Обработка экономической информации средствами языка Pascal - реферат

Лист задания

Инструкция

Объяснительная записка курсовой работы "Обработка экономической инфы при помощи файлов" содержит внутри себя постановку задачки, разработку математической модели, пояснение к методу, пояснение к программке, описание входных, выходных данных. При исследовании дисциплины "Базы информатики" для написания курсовой работы использовались разные литературные источники, которые перечислены в соответственном документе.

В Обработка экономической информации средствами языка Pascal - реферат данной курсовой работе приведена программка, которая применяется для вычисления остатка продукции на конец года. Тут был применен способ структурного программирования для облегчения написания и отладки программки, также увеличения ее наглядности и читаемости. Целью написания данной работы было получение и закрепление практических способностей разработки алгоритмов разными способами .

Представленная программка реализована на Обработка экономической информации средствами языка Pascal - реферат языке программирования Borland Pascal версии 7.0.

Язык Borland Pascal 7.0 - это один из самых массивных языков для ЭВМ типа IBM PC/AT, работающий в среде операционной системы DOS, сочетающий внутри себя как мощность низкоуровневых языков программирования, так и структурированность с надежностью, присущих языкам высочайшего уровня.

Для удачной работы с представленной программкой Обработка экономической информации средствами языка Pascal - реферат нужен компьютер IBM 80286 либо хоть какой совместимый с ним. Для реализации данного метода был избран язык программирования - TURBO PASCAL, для ЭВМ типа IВМ РС/АТ/ХТ, работающих в среде операционной системы МS DOS.

Файл с текстом программки (kurs.pas) имеет размер, равный 12,5Kb;

Исполняемый файл (kurs.exe) имеет размер Обработка экономической информации средствами языка Pascal - реферат 33,3Kb;

Содержание

1. Введение

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

3. Математической модели

4. Описание метода

5. Описание программки

5.1. Общие сведения языка программирования

5.2. Операторы Turbo Pascal

5.3. Входные и выходные данные

5.4. Описание переменных

5.5. Описание программки

6. Перечень литературы

Приложение А

Приложение Б

5

7

8

9

11

12

22

23

25

44

45

46

1 Введение

Информатика - научная дисциплина, изучающая структуру и общие характеристики инфы, также закономерности всех процессов обмена ин­формацией при конкретном устном и письменном общении специали­стов до формальных процессов обмена средством разных Обработка экономической информации средствами языка Pascal - реферат носителей инфы. Значительную часть этих процессов составляет научно-инфор­мационная деятельность по сбору, переработке, хранению, поиска и распро­странению инфы. Объектом исследования информатики не является со­держание определенной научно-информационной деятельности, которой должны заниматься спецы в соответственных отраслях науки и тех­ники. Она изучает внутренние механизмы реферирования документов Обработка экономической информации средствами языка Pascal - реферат на ес­тественных языках, разрабатывает общие способы такового реферирования.

Информатику рассматривают как один из разделов кибернетики, счита­ется, что в последнюю входят трудности автоматизации информационной службы, перевода и реферирования научно-технической литературы, по­строение информационно-поисковых систем и ряд других задач.

Как было сказано выше информатика заходит в состав более Обработка экономической информации средствами языка Pascal - реферат общей науки кибернетики, изучающей общую теорию управления и передачи информа­ции. Основное свойство кибернетики состоит в том, что она применима для исследования хоть какой системы, которая может записывать, копить, обрабатывать информацию, по этому ее можно использовать в целях управления.

Кибернетика - наука об общих законах получения, хранения, передачи Обработка экономической информации средствами языка Pascal - реферат и переработки инфы в сложных системах. При всем этом под сложными сис­темами понимаются технические, био и социальные системы, потому кибернетика нуждалась в массивном инструменте, и этим инструмен­том стали компы.

Информация - это совокупа сведений, определяющих меру наших познаний о тех либо других событиях, явлениях либо факторах. Информация явля­ется абстрактной Обработка экономической информации средствами языка Pascal - реферат категорией и связана с процессом зания человеком ок­ружающего мира.

Информатика - это наука, которая изучает структуру и особенность ин­формации, также вопросы, связанные со сбором, хранением и переработкой инфы.

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

Для обработки на компьютере текстовой инфы обычно при вводе в Обработка экономической информации средствами языка Pascal - реферат компьютер любая буковка кодируется определенным числом, а при выводе на наружные устройства ( экран либо печать ) для восприятия человеком по этим числам строятся надлежащие изображения букв. Соответствие меж набором букв и числами именуется шифровкой знаков.

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

Обработка экономической инфы, представленной в виде таблицы (см. приложение №1).

Главные данные, входящие в Обработка экономической информации средствами языка Pascal - реферат данную таблицу хранить в файле на наружном носителе инфы.

Предугадать в данном курсовом проекте возможность вывода таблицы на экран, создание новых записей, прибавления новых записей в файл на наружном носителе, удаление записей из файла, возможность редактирования записи в таблице и графическую заставку для данного курсового проекта с Обработка экономической информации средствами языка Pascal - реферат внедрением модуля Graph.

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

3 Построение математической модели

Даны начальные данные:

Переходящий остаток продукции на начало года (А1)

Приход продукции,

шт (А2)

Расход, шт

(А3)

Стоимость за

1 шт

(А4)

Остаток на конец года

(А)

1 45 32 21 6.90 (A¢)
2 234 3454 32 5.67 (A¢¢)
Итого: As=A¢ Обработка экономической информации средствами языка Pascal - реферат;+A¢¢+…An

Для вычисления окончательных данных в таблице употребляются последующие формулы:

А=((А1+А2)-А3)*А4

As=A¢+A¢¢+…An

4 Описание метода

Шаг 1. Запрос о запуске графической заставки –(y/n)

Шаг 1.1. При нажатие кнопки производится вывод графической заставки на экран

Шаг 1.2. При нажатие хоть Обработка экономической информации средствами языка Pascal - реферат какой кнопки (не считая ) производится переход к главному меню программки

Шаг 2. Выбор пт головного меню

Шаг 3. Выполнение подалгоритма вывода основной таблицы при выборе пт «1» головного меню.

Шаг 3.1. Печать на экран «шапки» таблицы.

Шаг 3.2. Печать главных данных таблицы.

Шаг 3.3. Возврат к шагу 2 либо выход из программки.

Шаг 4. Выполнение подалгоритма сотворения новых записей при выборе Обработка экономической информации средствами языка Pascal - реферат пт «2» головного меню.

Шаг 4.1. Доказательство сотворения новейшей таблицы.

Шаг 4.2. Ввод количества записей.

Шаг 4.3. Выполнение метода сотворения новых записей.

Шаг 4..4. Возврат к шагу 2.

Шаг 5. Выполнение подалгоритма прибавления записи при выборе пт «3» головного меню.

Шаг 5.1. Доказательство прибавления записи.

Шаг 5.2. Ввод количества добавляемых записей.

Шаг 5.3. Выполнение метода прибавления записей.

Шаг 5.4. Возврат к Обработка экономической информации средствами языка Pascal - реферат шагу 2.

Шаг 6. Выполнение подалгоритма удаления записи при выборе пт «4» головного меню.

Шаг 6.1. Доказательство операции удаления записи

Шаг 6.2. Выбор удаляемой записи с внедрением подготовительного просмотра таблицы.

Шаг 6.3. Выполнение метода удаления записи.

Шаг 6.4. При нажатие кнопки - возврат к шагу 6.1, либо при нажатие хоть какой кнопки, не считая - к шагу 2

Шаг 7. Выполнения подалгоритма редактирования Обработка экономической информации средствами языка Pascal - реферат записи при выборе пт «5» головного меню.

Шаг 7.1. Доказательство операции редактирования записи

Шаг 7.2. Выбор редактируемой записи с внедрением подготовительного просмотра таблицы.

Шаг 7.3. Выполнение метода редактирования записи.

Шаг 7.4. Возврат к шагу 2.

Шаг 8. Выполнение просмотра заставки при выборе пт «6» головного меню.

Шаг 8.1. Доказательства пуска заставки

Шаг 8.2. Метод вывода графической заставки на экран

Шаг 9. Выполнение Обработка экономической информации средствами языка Pascal - реферат подалгоритма выхода из программки при выборе пт «7» головного меню.

5 Описание программки

5.1 Общие сведения языка программирования

Система программирования Турбо Паскаль, разработанная американ­ской компанией Borland, остается одной из самых фаворитных систем программирования в мире, которой по плечу любые задачки от сотворения обычных программ, созданных для решения не­сложных вычислительных задач Обработка экономической информации средствами языка Pascal - реферат, до разработки сложнейших реляцион­ных систем управления базами данных.

К главным плюсам языка следует отнести упругость и надежность, простоту и ясность конструкций, легкость реализации на ЭВМ, возможность полного контроля корректности программ во время компиляции и выполнения, наличие набора структурных типов данных (массивов, файлов и записей), возможность построения новых типов Обработка экономической информации средствами языка Pascal - реферат данных.

Версия языка TURBO PASCAL V 7.0. содержит в себе способности:

-использование раздельно компилируемых модулей;

-интегрированный отладчик;

-интегрированная среда разработчика;

-объектно-ориентированную оболочку для сотворения прикладных программ.

Турбо Паскаль 7.0 оперирует объектами, присущими обычной ЭВМ: знаками, целыми числами и числами с плавающей запятой. Программеру разрешено управлять размещением объектов и использовать в Обработка экономической информации средствами языка Pascal - реферат программках познания размера объектов и методов их обоюдного расположения.

5.2 Операторы Turbo Pascal.

В собственной простейшей форме программка Borland Pascal состоит из заголовка программки, который называет программку, и основного программного блока, выполняющего предназначение программки. В главном программном блоке находится секция кода, заключенная меж ключевиками begin и end. Простая программка Обработка экономической информации средствами языка Pascal - реферат, иллюстрирующую эти принципы:

program Privet;

begin

Writeln('Добро пожаловать в Borland Pascal');

end.

1-ая строчка - это заголовок программки, который называет данную программку. Остальная часть программки - это начальный код, который начинается главным словом begin и завершается end. Хотя данная определенная программка содержит только одну строчку, их может быть много. В хоть Обработка экономической информации средствами языка Pascal - реферат какой программке Borland Pascal все деяния производятся меж begin и end.

Начальный код меж begin и end содержит операторы, которые обрисовывают выполняемые программкой деяния. Это именуются операторной частью программки.

Приведем примеры операторов:

A := B + C; { присвоить значение }

Calculate(Length, Height); { активизировать функцию }

if X < 2 then { оператор условия }

Answer := X * Y Обработка экономической информации средствами языка Pascal - реферат;

begin { составной оператор }

X := 3;

Y := 4;

Z := 5;

end;

while not EOF(InFile) do { оператор цикла }

begin

ReadLn(InFile, Line);

Process(Line);

end;

Условный оператор:

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

IF THEN elese ;

Сначала рассчитывается условное Обработка экономической информации средствами языка Pascal - реферат выражение . Если итог есть TRUE, то производится , а пропускается; если итог есть FALSE, напротив, пропускается, а производится .

Счетный оператор цикла FOR:

FOR := to do

- параметр цикла

- изначальное значение

- конечное значение

- случайный оператор Турбо Паскаля.

При выполнении оператора FOR сначала рассчитывается выражение и осуществляется присваивание := .

После чего цикл повторяется:

· Проверка условия <= , если Обработка экономической информации средствами языка Pascal - реферат условие не выполнено оператор FOR завершает свою работу;

· Выполнение оператора ;

· Наращивание переменной на единицу.

Оператор цикла WHILE с предпроверкой условия:

WHILE DO .

- выражение логического типа;

- случайный оператор Турбо Паскаля

Если выражение имеет значение TRUE, то производится оператор, после этого вычисление выражения и его проверка повторяются. Если имеет значение FALSE, оператор WHILE прекращает работу Обработка экономической информации средствами языка Pascal - реферат.

Оператор цикла REPEAT…UNTIL с постпроверкой условия:

REPEAT UNTIL .

- случайная последовательность операторов Турбо Паскаля.

- выражение логического типа.

Операторы производятся хотя бы один раз, после этого рассчитывается выражение : если его значение FALSE, операторы повторяются, в неприятном случае оператор REPEAT…UNTIL завершает свою работу.

Оператор выбора

CASE OF [else ] END

- ключ Обработка экономической информации средствами языка Pascal - реферат выбора;

- одна либо более конструкций вида;

- произвольные операторы ТП.

Сначала рассчитывается значение выражения , а потом в последовательности операторов отыскивается таковой, которому предшествует константа, равная вычисленному значению. Отысканный оператор производится, после этого оператор выбора завершает свою работу. Если в перечне выбора н будет найдена константа, соответственная вычисленному значению ключа выбора, управление Обработка экономической информации средствами языка Pascal - реферат передается операторам, стоящим за словом else. Часть else можно опускать. Тогда при отсутствии в перечне выбора подходящей константы ничего не произойдет и оператор выбора просто окончит свою работу.

Метки и операторы перехода.

GOTO .

- метка

Метка – это случайный идентификатор, позволяющий называть некий оператор программки и таким макаром ссылаться Обработка экономической информации средствами языка Pascal - реферат на него. Описание меток состоит из зарезервированного слова LABEL, за которым следует перечень меток.

Важной особенностью языка Turbo Pascal является иерархическая структура программ, которая вероятна благодаря наличию процедур и функций. Процедуры и функции позволяют поделить логику программки на более маленькие и управляемые куски и подобны подпрограммам в других языках Обработка экономической информации средствами языка Pascal - реферат. Как и в главном блоке программки, все деяния в процедурах и функциях заключаются в begin и end.

Процедуры и функции - основная особенность языка Турбо Паскаль

7.0, обеспечивающая возможность практической реализации принципов

структурного программирования.

Процедура:

Procedure (перечень формальных характеристик);

Begin End;

Функция:

Function (перечень формальных характеристик>:тип функции;

Begin end;

При написание данного Обработка экономической информации средствами языка Pascal - реферат курсового проекта нужно было пользоваться структурированные типами данных (массивы, записи, огромного количества, файлы).

Запись – это структура данных, состоящая из фиксированного числа компонент, именуемых полями записи. В отличии от массива, составляющие (поля) записи могут быть разного типа. Чтоб можно было ссылаться на тот либо другой компонент записи, поля называются.

Структура объявления Обработка экономической информации средствами языка Pascal - реферат типа записи:

= RECORD END

- идентификатор;

- перечень полей; представляет собой последовательность разделов записи, меж которыми ставится точка с запятой. Каждый раздел записи состоит из 1-го либо нескольких идентификаторов полей, отделяемых друг от друга запятыми. За идентификатором (идентификаторами) ставится двоеточие и описание типа поля (полей).

Файлы. Под файлом понимается или именованная область наружной памяти Обработка экономической информации средствами языка Pascal - реферат ПК или логического устройства. Хоть какой файл имеет три соответствующие особенности. Во-1-х, у него есть имя, что дает возможность программке работать сразу с несколькими файлами. Во-2-х, он содержит составляющие 1-го типа. В-3-х, длина вновь создаваемого файла никак не оговаривается при его объявлении. = FILE OF ; = TEXT; = FILE Обработка экономической информации средствами языка Pascal - реферат; - имя файлового типа;

TEXT – имя стандартного типа текстовых файлов;

- хоть какой тип ТП, не считая файлов.

Зависимо от метода объявления можно выделить три вида файлов:

· Типизированные файлы (file of…);

· Текстовые файлы (определяются типом TEXT);

· Нетипизированные файлы (определяются типом FILE).

Файловая переменная связывается с названием файла в Обработка экономической информации средствами языка Pascal - реферат итоге воззвания к стандартной процедуре ASSIGN:

ASSIGN (, );

- файловая переменная;

- текстовое выражение, содержащие название файла либо логическое устройство.

В ТП можно открыть файл для чтения, для записи инфы, также для чтения и записи сразу.

Для чтения файл инициируется при помощи стандартной процедуры RESET:

RESET ();

В ТП разрешается обращаться к типизированным файлам, открытым Обработка экономической информации средствами языка Pascal - реферат процедурой RESET при помощи процедуры WRITE (т.е. для записи инфы). Такая возможность позволяет просто обновлять ранее сделанные типизированные файлы и по мере надобности расширять их. Для текстовых файлов, открытых процедурой RESET, нельзя использовать функцию WRITE.

Стандартная процедура REWRITE () инициирует запись инфы в файл либо в лог. устройство, связанное ранее Обработка экономической информации средствами языка Pascal - реферат с файловой переменной . Но этой процедурой нельзя инициировать запись инфы в ранее существовавший дисковый файл: при выполнении этой процедуры старенькый файл уничтожиться.

Процедура READ.

Обеспечивает чтение очередных компонент типизированного файла. Формат воззвания: READ (, )

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

Процедура SEEK.

Сдвигает указатель файла к требуемому компоненту. Формат воззвания:

SEEK (, )

- выражение типа Longint.

Функцию нельзя использовать к текстовым файлам.

Функция FileSize.

Возвращает значение, которое содержит количество компонент файла.

FileSize()

Функция EOF ():Boolean.

Логическая функция, тестирующая конец файла.

Модули.

Модуль – это автономно компилируемая программная единица, включающая в себя Обработка экономической информации средствами языка Pascal - реферат разные составляющие раздела описаний (типы, константы, переменные, процедуры, функции) и, может быть, некие исполняемые операторы инициирующей части.

Связь устанавливается спец. объявлением:

USES - перечень связываемых модулей.

При написание данного курсового проекта, использовались два дополнительных модулей: GRAPH и CRT.

Модуль GRAPH

GRAPH - представляет собой библиотеку подпрограмм, обеспечивающую полное управление графическими режимами Обработка экономической информации средствами языка Pascal - реферат для разных адаптеров мониторов: CGA, EGA, VGA... Содержит 78 процедур и функций (как базисных - рисование точек, линий, окружностей, прямоугольников), так и расширяющих способности базисных (многоугольники, сектора, дуги, закрашивание фигур, вывода текста и т.д.).

Для пуска программки с внедрением модуля GRAPH нужно,

чтоб в рабочем каталоге находились графические драйверы с расширением Обработка экономической информации средствами языка Pascal - реферат *.BGI, также должен быть доступен компилятору модуль GRAPH.TPU.

Сначала программки модуль GRAPH должен быть подключен

USES GRAPH;

InitGraph(driver,mode,’путь к BGI’);

driver – определяет тип графического драйвера,

mode – переменная, задающая режим работы видеоадаптера;

Процедуры и функции модуля GRAPH

ClearDevice - Очищает экран и помещает курсор в точку (0,0);

SetViewPort(x1,y1,x Обработка экономической информации средствами языка Pascal - реферат2,y2:integer; Clip: boolean) - Устанавливает текущее окно для графического вывода. X1,y1 – координата верхнего левого угла; x2,y2 - координата нижнего правого угла. Если Clip=true, то все изображения отсекаются на границах вывода;

Closegraph – закрывает графический режим

ClearViewPort - Очищает текущее окно;

GetMaxX: integer - возвращает наивысшую горизонтальную координату графического Обработка экономической информации средствами языка Pascal - реферат экрана;

GetMaxY :integer - возвращает наивысшую вертикальную координату графического экрана;

GetX: integer - возвращает координату Х текущего указателя в окне;

GetY: integer - возвращает координату Y курсора в окне;

SetLineStyle(Line, Pattern, Thickness: word) - Устанавливает стиль (0..4), шаблон штриховки (0..12) и толщину (1-ноpм, 3-утpоенная);

SetFillStyle(Pattern, Color: word) - Устанавливает эталон штриховки и цвет (0..15 и 128-меpцание Обработка экономической информации средствами языка Pascal - реферат);

SetGraphMode(Mode: integer) - Устанавливает новый графический режим и очищает экран;

SetColor(Color: word) - Устанавливает основной цвет, которым производится рисование (0..15);

SetBkColor(Color: word) - Установка цвета фона.

PutPixel(X,Y: integer; Color: word) - Выводит точку цветом Color с координатой X,Y;

LineTO(X, Y: integer) - Отрисовывают линию от текущего указателя к Обработка экономической информации средствами языка Pascal - реферат точке с координатой Х,У;

LineRel(DX, DY: integer) - Отрисовывают линию от текущего указателя к точке, данной приращением координат;

Line(X1,Y1,X2,Y2:integer) - Отрисовывают линию от точки (X1,Y1) к точке с координатой Х2,У2;

MoveTO(X, Y: integer) - Сдвигает текущий указатель к точке с координатой Х Обработка экономической информации средствами языка Pascal - реферат,У;

MoveRel(DX, DY: integer) - Сдвигает текущий указатель к точке, данной приращением координат;

Rectangle(X1,Y1,X2,Y2:integer) - Отрисовывают прямоугольник, используя текущий цвет и тип полосы по верхней левой и нижней правой точкам;

Bar(X1,Y1,X2,Y2:integer) - Отрисовывают закрашенный прямоугольник, используя установку SetFillStyle;

Bar3D(X1,Y Обработка экономической информации средствами языка Pascal - реферат1,X2,Y2:integer;Depth:word;Top:Bolean) - Отрисовывают закрашенный паpаллелипипед. Depth - глубина в Pixel (1/4 ширины). Если Тор=True, то рисуется верхняя грань пеpеллелипипеда;

Circle(X,Y:integer;R:word) - Отрисовывают окружность радиуса R, используя X,Y как координаты центра;

Fillellipse(X,Y: integer; XR,YR: word) - Отрисовывают защтpихованный эллипс Обработка экономической информации средствами языка Pascal - реферат, используя X,Y как центр и XR,YR как горизонтальный и вертикальный радиусы.

RestorCRTMode - Восстанавливает текстовый режим работы экрана;

OutText(Text: string) - Выводит текстовую строчку на экран.

OutTextXY(X,Y: integer; Text: string) - Выводит текст в данное место экрана.

Модуль CRT

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

Функции управления клавиатурой:

KeyPressed: Boolean; - возвращает True, если в текущий момент на клавиатуре была нажата кнопка, по другому False. Не приостанавливает выполнение Обработка экономической информации средствами языка Pascal - реферат программки. Применяется при организации работы циклов.

ReadKey: Char; - читает и возвращает в программку знак с клавиатуры (без отображения на дисплее). Приостанавливает выполнение программки до нажатия на всякую кнопку знака. Употребляется в операторах IF для проверки знаков.

WhereX: Byte; - возвращает горизонтальную координату текущей позиции курсора относительно окна.

WhereY: Byte; - возвращает Обработка экономической информации средствами языка Pascal - реферат вертикальную координату текущей позиции курсора относительно окна.

Процедуры управления экраном

ClrEol; - удаляет все знаки справа от курсора до конца строчки без перемещения курсора.

ClrScr; - очищает экран (окно на дисплее) и помещает курсор в верхний левый угол.

Delay(D: word); - приостанавливает работу программки на D миллисекунд.

GotoXY(X,Y: byte Обработка экономической информации средствами языка Pascal - реферат); - перемещает курсор в необходимое место экрана (окна). Левый верхний угол экрана (окна) имеет координаты (1,1). Отсчет координат идет слева вправо и сверху вниз. Количество знаков в строке и самих строк находится в зависимости от типа монитора (обычно 25 строк и 80 знаков).

InsLine; - вставляет пустую строчку в позицию курсора.

HighVideo Обработка экономической информации средствами языка Pascal - реферат; - устанавливает высшую яркость знаков.

LowVideo; - устанавливает низкую яркость знаков.

NormVideo; - устанавливает нормальную яркость знаков.

Window(X1,Y1,X2,Y2:byte); - определяет размеры окна на дисплее для вывода текста. X1,Y1 - координаты левого верхнего угла, X2,Y2 - правого нижнего угла.

TextBackGround(Color: byte); - устанавливает цвет фона экрана (окна) от 0 (темный) до Обработка экономической информации средствами языка Pascal - реферат 15 (белоснежный).

TextColor(Color: byte); - устанавливает цвет знака.

TextMode(Mode: word); - устанавливает подходящий текстовый режим:0,1,2...

Управление звуковым генератором

Sound(F: word); - включает звук генератора, F - частота звука в герцах.

Delay(T: word); - устанавливает длительность звучания в миллисекундах.

NoSound; - выключает звук генератора.

5.3 Входные и выходные данные

Входными данными являются записи Обработка экономической информации средствами языка Pascal - реферат: номер продукции (n), переходящий остаток продукции на начало года (e1), приход продукции (e2), расход (e3), стоимость за 1 шт (e4). При окончании ввода данных и выборе соответственного пт меню программки, программка выдаст юзеру итоговые данные в виде таблицы.

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

· Остаток на конец года (st);

· Итого (itog) ;

Файл с текстом программки (kurs.pas) имеет размер, равный 12,5 Kb;

Исполняемый файл (kurs.exe) имеет размер 33,3 Kb;

5.4 Описание переменных

В программке употребляются последующие переменные:

Bas – запись.

type

bas=record

n :integer;

e1,e2,e3 :integer;

e4 :real;

end;

Где:

n - номер продукции;

e1 - переходящий Обработка экономической информации средствами языка Pascal - реферат остаток продукции на начало года ;

e2 - приход продукции;

e3 – расход;

e4 - стоимость за 1 шт .

menu2 – метка, употребляется для работы с основным меню программки;

C :char, употребляется для работы оператора readkay (читает знак с клавиатуры без эхоповтора на дисплее);

O :real употребляется для редактирования записей.

ww, l, nn, q Обработка экономической информации средствами языка Pascal - реферат, i, gd, gm :integer;

ww-используется для вывода шапки таблицы (координата по Y).

l-используется для работы с меню и для удаления записи

nn, q- употребляется в программке для создание новых записей

i-счетчик

gd, gm - для графики:

gd – определяет тип графического драйвера,

gm – переменная, задающая режим работы видеоадаптера;

pp Обработка экономической информации средствами языка Pascal - реферат,qq,n,mm :integer; - переменные для прибавления новейшей записи;

f,f2 :file of bas; - файлы

a,b :bas;

a,b - переменные, содержащие записи типа Bas.

Переменная b употребляется для удаления записей.

st :real;

st – для вычисления суммы в таблице

Процедуры:

procedure view (w:integer);

- процедура вывода таблицы, где w–координата по Обработка экономической информации средствами языка Pascal - реферат Х;

var

itog: real; -для вычисления итогового значения сумма в таблице;

Procedure menu ;

- процедура вывода меню;

Procedure zast ;

- процедура вывода графической заставки

var

xm,ym :integer;

xm,ym-координаты для вывода граф. объектов

size :integer; saucer :pointer;

k,kk :integer;

size,saucer,k,kk-для движения

Procedure error ;

- процедура вывода сообщения об ошибке

Procedure exitt ;

- процедура выхода Обработка экономической информации средствами языка Pascal - реферат из программки

5.5 Описание программки

При пуски программки идет подключение дополнительных модулей Crt и Graph:

uses crt, graph;

Описание переменных (см. пункт 5.4)

Описание процедур:

Процедура вывода таблицы на экран - view :

Установка текстового окна на дисплее для вывода шапки с координатами левого верхнего угла -1,1 и правого нижнего – 80,6

window(1,1,80,6);

Установка цвета фона Обработка экономической информации средствами языка Pascal - реферат и знаков

textbackground(5);textcolor(15);

Печать наименования таблицы

gotoxy(w,1);write('Реализация продукции за год');

textcolor(9);gotoxy(w-16,2);textbackground(0);

write('--------------------------------------------------------------');

Установка цвета знаков и печать шапки таблицы

textcolor(15);

gotoxy(w-15,4);write('N');

gotoxy(w-13,3);write('Переходящий остаток');

gotoxy(w-10,4);write('продукции на ');

gotoxy(w-10,5);write('начало года');

gotoxy(w Обработка экономической информации средствами языка Pascal - реферат+9,3);write('Приход');

gotoxy(w+8,4);write('продукции');

gotoxy(w+11,5);write('шт');

gotoxy(w+18,4);write('Расход');

gotoxy(W+20,5);write('шт');

gotoxy(w+26,4);write('Стоимость за');

gotoxy(w+27,5);write('1 шт');

gotoxy(w+35,4);write('Остаток на');

gotoxy(w+35,5);writeln('конец года');

textcolor(9); gotoxy(w-16,6);

write('--------------------------------------------------------------');

Установка цвета знаков и текстового экрана для вывода данных Обработка экономической информации средствами языка Pascal - реферат таблицы

textcolor(15);

window(1,7,80,25);

Подготовка файла к чтению

reset(f);

Установка координаты y, нужной для вывода данных таблицы и обнуление итогового значения таблицы.

ww:=1; itog:=0;

Вывод главных данных таблицы

repeat

writeln; read(f,a);

st:=((a.e1+a.e2)-a.e3)*a.e4;

itog:=itog+st;

textcolor(13);

gotoxy(w-15,ww);write(a.n);

textcolor Обработка экономической информации средствами языка Pascal - реферат(15);

gotoxy(w-5,ww);write(a.e1);

gotoxy(w+11,ww);write(a.e2);

gotoxy(w+20,ww);write(a.e3);

gotoxy(w+29,ww);write(a.e4:4:2);

gotoxy(w+37,ww);write(st:4:2);

ww:=ww+1;

Проверка для вывода очередной строчки на экран. Нужно в этом случае, когда число записей превосходит число строк Обработка экономической информации средствами языка Pascal - реферат на мониторе.

if ww>=19 then

begin

if (ww=19) then

begin

writeln;

write('Для просмотра используйте кнопку ');

write(' Для продолжения -');

c:=readkey;

delline;

if c=#32 then ww:=ww-1 else break;

end;

end;

Вывод данных в таблицу пока не конец файла

until eof(f);

Установка цвета знака и вывод полосы на экран

textcolor(9); gotoxy(w-16,ww);

write Обработка экономической информации средствами языка Pascal - реферат('--------------------------------------------------------------');

Вывод итогового значения

textcolor(9);gotoxy(w+7,ww);

write('¦'); textbackground(5);

textcolor(10);write('Итого:',itog:4:2);

textbackground(0); textcolor(9);

write('+'); writeln;

Окончание процедуры вывода таблицы

end;

Процедура вывода основного меню – menu :

Чистка экрана и установка стандартного текстового режима

clrscr; textmode(Co80);

Установка текстового окна на дисплее с координатами левого верхнего угла -13,3 и правого нижнего – 70,15

window Обработка экономической информации средствами языка Pascal - реферат(13,3,70,15);

Установка цвета фона и знаков

textbackground(14);textcolor(15);

Перемещение указателя и печать сообщения

gotoxy(1,3); write('Для предстоящей работы с программкой изберите номерок:');

Установка цвета фона

textbackground(0);

Печать пт меню, устанавливая цвет для цифр меню и собственный цвет для наименования пт меню

gotoxy(16,5); textcolor(10); write('1'); textcolor(7); write(' - Просмотр');

gotoxy(16,6); textcolor(10); write('2'); textcolor(7); write(' - Cоздать Обработка экономической информации средствами языка Pascal - реферат');

gotoxy(16,7); textcolor(10); write('3'); textcolor(7); write(' - Добавить');

gotoxy(16,8); textcolor(10); write('4'); textcolor(7); write(' - Удалить');

gotoxy(16,9); textcolor(10); write('5'); textcolor(7); write(' -Редактировать');

gotoxy(16,10);textcolor(10); write('6'); textcolor(7); write(' - Заставка');

gotoxy(16,11);textcolor(10); write('7'); textcolor(7); write(' - Выход');

gotoxy(16,13); write('Введите номер:');

Установка цвета знака и его мигание

textcolor(10+128);

Ввод переменной l, нужной для предстоящей работы программки Обработка экономической информации средствами языка Pascal - реферат и установка стандартного текстового режима

readln(l); textmode(Co80);

Конец процедура вывода головного меню

end;

Процедура вывода заставки – zast :

Чистка экрана

clrscr;

Установка белоснежного цвета знаков

textcolor(white);

Вывод сообщения: «Показать заставку?»

Write(‘Показать заставку? (y/n)’);

Считывание нажатия кнопки.

c:=readkey

При нажатие кнопки - производится предстоящий ход процедуры:

Инициализация графики

initgraph(gd,gm Обработка экономической информации средствами языка Pascal - реферат,'bgi')

Установка координат xm, ym для вывода графических объектов

xm:=getmaxx div 4; ym:=getmaxy div 4;

Установка текущего шрифта, стиля и размера текста

settextstyle(2,0,5)

Вывод текста на экран, используя координаты x=xm+100,y=10

outtextxy(xm+100,10,'## Sergei Kovbasyuk ##');

Вычесление числа б, нужного для сохранения прямоугольной области экрана

size:=imagesize (xm+100,10,xm+275,10+20);

Создание Обработка экономической информации средствами языка Pascal - реферат динамической переменной

getmem(saucer,size);

Сохранение в переменной битовый образ обозначенной части экрана.

getimage(xm+100,10,xm+275,10+20,saucer^);

Вывод битового вида на экран

putimage(xm+100,10,saucer^,xorput);

Обнуление переменных, требуемых для вывода на экран битового изображения, используя при всем этом оператор цикла REPEAT…UNTIL и цикл FOR.

k:=0; kk:=0; i:=0; n Обработка экономической информации средствами языка Pascal - реферат:=0;

Цикла REPEAT…UNTIL

repeat

Установка текущего шрифта, стиля и размера текста

settextstyle(10,0,5);

Установка текущего цвета шрифта

setcolor(i+1);

Вывод текста на экран

outtextxy((getmaxx div 5),(getmaxy div 4),'"Sorge pro"');

Установка текущего шрифта, стиля, размера текста.

settextstyle(5,0,5); setcolor(15);

Вывод текста на экран

outtextxy((getmaxx-200),(getmaxy-250),'present');

Установка текущего шрифта, стиля, размера текста.

settextstyle(3,0,1);

Вывод Обработка экономической информации средствами языка Pascal - реферат текста на экран

outtextxy(40,(getmaxy-50),'http://sorgepro.agava.ru');

outtextxy(290,(getmaxy-50),'e-mail: office@sorgepro.agava.ru');

Установка текущего шрифта, стиля, размера текста.

settextstyle(2,0,5);

Вывод текста на экран

outtextxy(getmaxx-150,getmaxy-20,'Press ');

outtextxy(20,getmaxy-20,'(c)2000. All rights don''t reserved.');

Наращивание переменных для вывода на экран битового изображения и Обработка экономической информации средствами языка Pascal - реферат для смены текущего цвета

k:=k+5;i:=i+1;

Вывод битового вида на экран

putimage(k,10,saucer^,xorput);

Задержка программки

delay(50);

Наращивание переменной для вывода на экран битового изображения

kk:=kk+5;

Вывод битового вида на экран

putimage(kk,10,saucer^,xorput);

Если битовое изображение достигнуло данных границ экрана, то идет обнуление координат вывода этого изображения на экран

if Обработка экономической информации средствами языка Pascal - реферат k>getmaxx-100 then begin k:=0; kk:=0 end;

Выполнение этого цикла, пока не нажата какая-нибудь кнопка

until keypressed;

Вывод на экран 3-х окружностей, меняющих собственный размер при помощи наращивания переменной .

{-----------krugi------------}

for i:=0 to 399 do

begin

setcolor(red);

circle(200,100,i);

setcolor(green);

circle(400,100,i);

setcolor(yellow);

circle(300,300,i);

delay(10);

end;

Вывод Обработка экономической информации средствами языка Pascal - реферат на экран окружности, уменьшающей собственный радиус.

for i:=399 downto 0 do

begin

setcolor(i);

сircle(322,250,i);

delay(10);

end;

{----------end_krugi---------}

Закрытие граф. режима

closegraph;

Окончание составного оператора begin…end

end;

Окончание процедуры вывода заставки

end;

Процедура вывода сообщения об ошибке – error :

begin

Обнуление счетчика

i:=0;

Цикл вывода сообщения Обработка экономической информации средствами языка Pascal - реферат об ошибке, пока i не равно 5

repeat

textmode(Co80);

clrscr;

gotoxy(24,8);textcolor(15);

write('ВЫ ВВЕЛИ Неверный НОМЕР');

звук, при выводе сообщения

sound(185);delay(100);nosound;

clrscr;

gotoxy(24,8);textcolor(7);

write('ВЫ ВВЕЛИ Неверный НОМЕР');

sound(174);delay(100);nosound;

наращивание счетчика

i:=i+1;

until i=5;

Отключение звука

nosound;

Возврат в главное меню

menu;

Окончание Обработка экономической информации средствами языка Pascal - реферат процедуры вывода сообщения об ошибке

end;

Процедура выхода из программки – exitt :

Очитстка экрана

clrscr;

Инициализация графики

initgraph(gd,gm,'bgi');

Вывод текста на экран пока не нажата какая-нибудь кнопка

repeat

settextstyle(7,0,4);setcolor(15);

outtextxy(90,getmaxy div 4, 'Technical support by e-mail:');

settextstyle(1,0,4);setcolor(10);

outtextxy(120,(getmaxy div 4)+50, 'support@sorgepro.agava Обработка экономической информации средствами языка Pascal - реферат.ru');

settextstyle(7,0,4);setcolor(15);

outtextxy(140,(getmaxy div 4)+100, 'or visited our web site:');

settextstyle(1,0,4);setcolor(10);

outtextxy(120,(getmaxy div 4)+150, 'http://sorgepro.agava.ru');

settextstyle(2,0,5);setcolor(15);

outtextxy(getmaxx div 4,getmaxy-30,'(c)2000."Sorge pro".All rights don''t reserved.');

until keypressed;

Закрытие граф. режима

closegraph;

Выход из программки

exit;

Окончание процедуры

end;

{==========================Proga===========================}

Идет Обработка экономической информации средствами языка Pascal - реферат выполнение процедуры Zast:

при нажатие какой-нибудь другой кнопки – устанавливается связь с файлом

assign (f,’'путь к файлу ’)

Установка стандартного текстового режима

textmode(Co80);

Печать головного меню, используя функцию menu

Установка метки

menu2:

Если l=1, то производится печать таблицы

if l=1 then

begin

Печать таблицы при помощи процедуры view Обработка экономической информации средствами языка Pascal - реферат, где w=27;

Вывод сообщения для юзера после вывода таблицы

textcolor(15);

gotoxy(7, ww+1);

writeln('Для выхода нажмите либо -возврат в главное меню. ');

Считывание нажатия кнопки с клавиатуры

c:=readkey;

Установка стандартного текстового режима

textmode(Co80);

Если нажата кнопка происходит возврат в главное меню: выполнение процедуры menu и переход к метки menu Обработка экономической информации средствами языка Pascal - реферат2

if c=#27 then begin menu; goto menu2 end

По другому производится процедура выхода – exitt

else begin exitt;

Окончание составного оператора begin…end

end

Если l не равно 1, а равно 2 то производится метод сотворения записей поновой

else

if l=2 then

begin

Чистка экрана

clrscr;

Установка цвета фона и знаков Обработка экономической информации средствами языка Pascal - реферат и вывод на экран сообщения

textbackground(14);textcolor(15);

writeln('Вы вправду желаете сделать новые записи?');

writeln('!!!Прошлые ЗАПИСИ БУДУТ УТЕРЯНЫ!!!');

Установка цвета фона и знаков и вывод на экран сообщения

textbackground(0);

gotoxy(1,4);

writeln('Для продолжения нажмите либо -возврат в главное меню.');

Считывание кнопки с клавиатуры

c:=readkey;

Если нажата Обработка экономической информации средствами языка Pascal - реферат кнопка , то производится возврат к главному меню и переход к метки menu2

if c=#27 then begin menu; goto menu2 end

По другому идет ввод переменной q – количество создаваемых записей

else

begin

writeln('Введите количество записей:');

read(q);

Чистка экрана

clrscr;

Подготовка файла к записи

rewrite(f);

Цикл ввода новых Обработка экономической информации средствами языка Pascal - реферат записей. Выход из цикла осуществиться в этом случае, когда a.n будет равно q

repeat

writeln('введи текущий номер продукции...'); readln(a.n);

writeln('введи переходящий остаток продукции на начало года...');

readln(a.e1);

writeln('введи приход продукции...'); readln(a.e2);

writeln('введи расход...');readln(a.e3);

writeln Обработка экономической информации средствами языка Pascal - реферат('введи стоимость за 1 шт...');readln(a.e4);

write(f,a);

until (a.n=q);

Чистка экрана и вывод сообщения

clrscr;

writeln('ВСЁ OK.');

Задержка программки. Возврат в главное меню и переход к метки menu2

delay(1000);

menu; goto menu2;

Окончание составного оператора begin…end

end;

Окончание составного оператора begin…end

end Обработка экономической информации средствами языка Pascal - реферат

Если переменная l не равна 1 и 2, а равна 3, то производится метод прибавления записи

else

if l=3 then

begin

Чистка экрана, установка цвета фона и знаков и вывод сообщения

clrscr;

textbackground(0);

textcolor(15);

writeln('Продолжить? (y/n)');

Считывание кнопки с клавиатуры

c:=readkey;

Если нажата неважно какая кнопка, не считая Обработка экономической информации средствами языка Pascal - реферат , то производится возврат к главному меню и переход к метки menu2

if c#121 then begin menu;goto menu2; end

По другому производится метод прибавления новейшей записи

else

begin

чистка экрана

clrscr;

Ввод количества добовляемых записей -mm

writeln('Введите количество добовляемых записей:');

read(mm);

чистка экрана

clrscr;

Подготовка файла к чтению Обработка экономической информации средствами языка Pascal - реферат, определения конца файла и установка указателя в конец файла

reset(f); n:=filesize(f); seek(f,n);

установка номера добовляемой записи

pp:=n+1;

Цикл прибавления записи. Закончится тогда, когда номер последней добавляемой записи qq будет равен mm

repeat

writeln('введи текущий номер продукции...');readln(qq); a.n:=pp Обработка экономической информации средствами языка Pascal - реферат;

writeln('введи переходящий остаток продукции на начало года...');

readln(a.e1);

writeln('введи приход продукции...'); readln(a.e2);

writeln('введи расход...');readln(a.e3);

writeln('введи стоимость за 1 шт...');readln(a.e4);

write(f,a);

pp:=pp+1;

until (qq=mm);

Чистка экрана и вывод сообщения

clrscr;

writeln('ВСЁ OK.');

Задержка программки Обработка экономической информации средствами языка Pascal - реферат

delay(1000);

Возврат в главное меню и переход к метки menu2

menu; goto menu2;

Окончание составного оператора begin…end

end;

Окончание составного оператора begin…end

end

else

Если l не равно 1, не 2 и не 3, а равно 4, то производится метод удаления записей

if l=4 then

begin

Чистка экрана

clrscr;

Установка текстового Обработка экономической информации средствами языка Pascal - реферат экрана для вывода таблицы при помощи процедуры view

window(1,1,68,22);

view(17);

Установка текстового экрана для управления удаления записей

window(64,1,80,22);

Установка цвета знаков и вывод сообщения

textcolor(15);

writeln('Продолжить? (y/n)');

Считывание кнопки с клавиатуры

c:=readkey;

Если нажата неважно какая кнопка, не считая , то производится возврат к стандартному Обработка экономической информации средствами языка Pascal - реферат текстовому режиму, к главному меню и переход к метки menu2

if c#121 then begin textmode(Co80); menu; goto menu2; end

По другому происходит ввод удаляемой записи - nn

else

begin

write('Введи номер:');

readln(nn);

Если вводимого номера записи не существует – производится процедура вывода сообщения об ошибке – error, и переход к метки Обработка экономической информации средствами языка Pascal - реферат menu2

if nn>filesize(f) then begin error; goto menu2; end;

Удаление записи: запись в новый файл:

Подготовка файла к чтению

reset(f);

Установка связь с новым файлом

assign (f2,'k2');

Подготовка нового файла к записи

rewrite(f2);

Обнуление переменных, нужных для удаления записи

l:=0;q:=0;

Определение количества записей Обработка экономической информации средствами языка Pascal - реферат в начальном файле

n:=filesize(f);

Цикл перезаписи записей из первого файла в новый, при всем этом удаляемая запись игнорируется. Цикл заканчивается, когда все записи будут переписаны

repeat

l:=l+1;

if lnn then

begin

q:=q+1;

seek(f,l-1);

read(f,a);

b.n:=q; b.e1:=a.e1; b Обработка экономической информации средствами языка Pascal - реферат.e2:=a.e2; b.e3:=a.e3; b.e4:=a.e4;

write(f2,b);

end;

until l=n;

Подготовка только-только сделанного файла к чтению.

reset(f2);

Подготовка начального файла к перезаписи

rewrite(f);

Цикл перезаписи из только-только сделанного файла записей в начальный, но уже без Обработка экономической информации средствами языка Pascal - реферат требуемой записи. Перезапись будет выполняться, пока не конец второго файла

repeat

read(f2,b);

a.n:=b.n; a.e1:=b.e1; a.e2:=b.e2; a.e3:=b.e3; a.e4:=b.e4;

write(f,a);

until eof(f2);

Вывод сообщения и задержка программки

writeln;

writeln('Всё Ok!');

delay Обработка экономической информации средствами языка Pascal - реферат(1000);

Вывод сообщения о способности продолжения удаления новых записей либо возврата к главному меню

writeln('Reload-');

write('Exit-');

Считывание кнопки с клавиатуры

c:=readkey;

Если нажата кнопки , то происходит возврат к главному меню и переход к метки menu2

if c=#27 then begin menu; goto menu2; end

по другому устанавливается стандартный Обработка экономической информации средствами языка Pascal - реферат текстовой режим, l присваивается 4 и осуществляется переход к метке menu2, т.е. происходит снова метод удаления записи

else begin textmode(Co80); l:=4; goto menu2; end;

Окончание составных операторов begin…end

end;

end

Если l не равно 1, не 2 и не 3, и не 4, а равно 5, то производится метод редактирования Обработка экономической информации средствами языка Pascal - реферат записей

else

if l=5 then

begin

Производится процедура вывода таблицы

view(27);

Установка цвета знаков и вывод сообщения

textcolor(15);

writeln('Продолжить? (y/n)');

Считывание кнопки с клавиатуры

c:=readkey;

Если нажата неважно какая кнопка, не считая , то производится возврат к стандартному текстовому режиму, к главному меню и переход к метки Обработка экономической информации средствами языка Pascal - реферат menu2

if c#121 then begin textmode(Co80); menu;goto menu2; end

По другому происходит ввод номера записи для редактирования - nn

else

begin

write('Введите номер для редактирования:'); read(nn);

Если вводимого номера записи не существует – производится процедура вывода сообщения об ошибке – error, и переход к метки menu2

if nn>filesize(f Обработка экономической информации средствами языка Pascal - реферат) then begin error; goto menu2; end;

Чистка экрана и установка переменной i, для подготовительного просмотра записи

clrscr;

i:=27;

Подготовка файла к чтению и записи и установка указателя на подходящей редактируемой записи

reset(f); seek(f,nn-1);

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

read(f,a Обработка экономической информации средствами языка Pascal - реферат);

st:=((a.e1+a.e2)-a.e3)*a.e4;

gotoXY(i-15,1);write(a.n);

gotoXY(i-5,1);write(a.e1);

gotoxy(i+11,1);write(a.e2);

gotoxy(i+20,1);write(a.e3);

gotoxy(i+29,1);write(a.e4:4:2);

gotoxy(i+37,1);write(st:4:2);

gotoxy(7,2);

Установка указателя на нужной записи, т.к. после вывода на Обработка экономической информации средствами языка Pascal - реферат экран указатель двинулся

seek(f,nn-1);

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

Если при всем этом будет нажата , то производится перезапись компонента записи, методом ввода новейшей (nn) и присваивание ее –старенькой (a.e1…a.e4).

Если при выводе сообщения будет нажата неважно какая кнопки Обработка экономической информации средствами языка Pascal - реферат, не считая , то производится переход к редактированию последующего компонента данной записи.

writeln('Поменять переходящий остаток продукции на начало года?

(y/n)');

c:=readkey;

if c=#121 then begin write('Вводим новое:');read(nn); a.e1:=nn; end;

writeln;

writeln('Поменять приход продукции? (y/n)');c:=readkey;

if c=#121 then begin write('Вводим Обработка экономической информации средствами языка Pascal - реферат новое:'); read(nn);a.e2:=nn; end;

writeln;

writeln('Поменять расход? (y/n)');c:=readkey;

if c=#121 then begin write('Вводим новое:'); read(nn);a.e3:=nn; end;

writeln;

writeln('Поменять стоимость за 1 шт? (y/n)');c:=readkey;

if c=#121 then begin write('Вводим новое:'); read(o);a Обработка экономической информации средствами языка Pascal - реферат.e4:=o; end;

write(f,a);

Вывод сообщение и задержка программки

writeln; write('Все Ok'); delay(1000);

Чистка экрана, возврат к главному меню и переход к метке menu2

clrscr; menu;

goto menu2;

Окончание составных операторов begin…end

end;

end

else

Если l не равно 1, не 2 и не 3, и не 4, и не Обработка экономической информации средствами языка Pascal - реферат 5, а равно 6, то производится процедура вывода заставки - zast, после окончания которой происходит переход к главному меню и метке menu2

if l=6 then begin zast; menu; goto menu2; end;

Если l не равно 1, не 2 и не 3, и не 4, не 5, и даже не 6, а - 7, то производится процедура выхода из Обработка экономической информации средствами языка Pascal - реферат программки –exitt

if l=7 then exitt

Если l не равно 1, не 2 и не 3, и не 4, не 5, и даже не 6, и уж точно не 7, то производится процедура вывода сообщения об ошибке. После окончания этой процедуры происходит переход к метке menu2

else

begin error; goto menu2; end;

{========================END_Proga========================}

Окончание Программки

END Обработка экономической информации средствами языка Pascal - реферат.

6 Перечень литературы

1. Фаронов В.В. Турбо Паскаль 7.0. Исходный курс. Учебное пособие.-М.: «Нолидж», 1998.-616 с.

2. Вычислительная техника и программирование. Под редакцией А. В. Петрова М, Высшая школа, 1990

3. Марченко А.И., Марченко Л.И. Программирование в среде Turbo-Pascal 7.0-М., Двучлен Универсал, К.:Юниор,1997

4. http://www.rusdoc.ru

5. http://www.borland.ru

6. http Обработка экономической информации средствами языка Pascal - реферат://www.infocity.kiev.ua

Приложение А

Реализация продукции за год.

Переходящий остаток продукции на начало года

Приход продукции,

Шт

Расход, шт

Стоимость за

1 шт

Остаток на конец года
1 45 32 21 6.90 386.40
2 234 3454 32 5.67 20729.52
3 79 345 34 3.99 1556.10
4 234 4567 54 9.30 44147.10
5 500 566 865 4.98 1000.98
6 5867 11 543 4.67 24914.45
7 560 7789 55 2.90 24052.60
8 129 2000 234 4.89 9266.55
9 123 567 435 7.90 2014.50
10 875 907 800 8.90 8739.80
11 743 800 600 2.67 2517.81
12 456 800 560 6.89 4795.44
Итого: 144121.25

Приложение Б

uses crt,graph;

type

bas=record

n:integer;

e1,e2,e3:integer;

e4:real;

end;

label menu2; {метка}

var

c Обработка экономической информации средствами языка Pascal - реферат:char; {с - для ридкея}

o:real;

ww,l,nn,q,i:integer; {w,ww-для шапки,l-для меню и для удал

nn,o-редактирование q-для обнавления

i-счетчик}

gd,gm:integer; {для графики}

pp,qq,n,mm:integer; {для добавки}

f,f2:file of bas; {файлы}

a,b:bas Обработка экономической информации средствами языка Pascal - реферат;

st:real; {сумма в таблице}

{-----------------------------------------вывод таблицы -------------------------------------}

procedure view(w:integer);

var

itog:real; {cумма в таблице, всего}

begin

window(1,1,80,6); textbackground(5);textcolor(15);

gotoxy(w,1);write('Реализация продукции за год');

textcolor(9);gotoxy(w-16,2);textbackground(0);

write('--------------------------------------------------------------');

textcolor(15);

gotoxy(w-15,4);write('N');

gotoxy(w-13,3);write('Переходящий остаток');

gotoxy(w-10,4);write('продукции на Обработка экономической информации средствами языка Pascal - реферат ');

gotoxy(w-10,5);write('начало года');

gotoxy(w+9,3);write('Приход');

gotoxy(w+8,4);write('продукции');

gotoxy(w+11,5);write('шт');

gotoxy(w+18,4);write('Расход');

gotoxy(W+20,5);write('шт');

gotoxy(w+26,4);write('Стоимость за');

gotoxy(w+27,5);write('1 шт');

gotoxy(w+35,4);write('Остаток на');

gotoxy(w+35,5);writeln('конец года');

textcolor(9); gotoxy(w-16,6);

write('--------------------------------------------------------------');

textcolor Обработка экономической информации средствами языка Pascal - реферат(15);

window(1,7,80,25);

reset(f); ww:=1; itog:=0;

repeat

writeln; read(f,a);

st:=((a.e1+a.e2)-a.e3)*a.e4;

itog:=itog+st;

textcolor(13);

gotoxy(w-15,ww);write(a.n);

textcolor(15);

gotoxy(w-5,ww);write(a.e1);

gotoxy(w+11,ww);write(a.e2);

gotoxy(w+20,ww);write Обработка экономической информации средствами языка Pascal - реферат(a.e3);

gotoxy(w+29,ww);write(a.e4:4:2);

gotoxy(w+37,ww);write(st:4:2);

ww:=ww+1;

if ww>=19 then {типа скролинга}

begin

if (ww=19) then

begin

writeln;

write('Для просмотра используйте кнопку ');

write(' Для продолжения -');

c:=readkey;

delline;

if c=#32 then ww:=ww-1 else break;

end;

end;

until eof(f);

textcolor Обработка экономической информации средствами языка Pascal - реферат(9); gotoxy(w-16,ww);

write('--------------------------------------------------------------');

textcolor(9);gotoxy(w+7,ww);

write('¦'); textbackground(5);

textcolor(10);write('Итого:',itog:4:2);

textbackground(0); textcolor(9);

write('+'); writeln;

end;

{----------------------------------------основное меню--------------------------------------}

procedure menu;

begin

textmode(Co80); clrscr;

window(13,3,70,15); textbackground(14);textcolor(15);

gotoxy(1,3); write('Для предстоящей работы с программкой изберите номерок:');

textbackground(0);

gotoxy(16,5); textcolor(10); write('1'); textcolor(7); write(' - Просмотр');

gotoxy(16,6); textcolor(10); write('2'); textcolor Обработка экономической информации средствами языка Pascal - реферат(7); write(' - Cоздать');

gotoxy(16,7); textcolor(10); write('3'); textcolor(7); write(' - Добавить');

gotoxy(16,8); textcolor(10); write('4'); textcolor(7); write(' - Удалить');

gotoxy(16,9); textcolor(10); write('5'); textcolor(7); write(' - Редактировать');

gotoxy(16,10);textcolor(10); write('6'); textcolor(7); write(' - Заставка');

gotoxy(16,11);textcolor(10); write('7'); textcolor(7); write(' - Выход');

gotoxy(16,13); write('Введите номер:');

textcolor(10+128);readln(l); textmode(Co80);

end;

{----------------------------------------------заставка-----------------------------------------}

procedure zast;

var

xm Обработка экономической информации средствами языка Pascal - реферат,ym:integer; {xm,ym,x,y-координаты }

size:integer;

saucer:pointer; {size,saucer,k,kk-для движения}

k,kk:integer;

begin

clrscr; textmode(Co80); textcolor(white);

write('Показать заставку? (y/n)');

c:=readkey;

if c=#121 then

begin

initgraph(gd,gm,'bgi');

xm:=getmaxx div 4; ym:=getmaxy div 4;

settextstyle(2,0,5);

outtextxy(xm Обработка экономической информации средствами языка Pascal - реферат+100,10,'## Sergei Kovbasyuk ##');

size:=imagesize (xm+100,10,xm+275,10+20);

getmem(saucer,size);

getimage(xm+100,10,xm+275,10+20,saucer^);

putimage(xm+100,10,saucer^,xorput);

k:=0;kk:=0;i:=0;n:=0;

repeat

settextstyle(10,0,5); setcolor(i+1);

outtextxy((getmaxx div 5),(getmaxy div 4),'"Sorge pro"');

settextstyle(5,0,5); setcolor(15);

outtextxy((getmaxx-200),(getmaxy-250),'present');

settextstyle(3,0,1);

outtextxy(40,(getmaxy-50),'http://sorgepro.agava.ru');

outtextxy(290,(getmaxy-50),'e-mail Обработка экономической информации средствами языка Pascal - реферат: office@sorgepro.agava.ru');

settextstyle(2,0,5);

outtextxy(getmaxx-150,getmaxy-20,'Press ');

outtextxy(20,getmaxy-20,'(c)2000. All rights don''t reserved.');

k:=k+5;i:=i+1;

putimage(k,10,saucer^,xorput);

delay(50);

kk:=kk+5;

putimage(kk,10,saucer^,xorput);

if k>getmaxx-100 then begin k:=0; kk:=0 end;

until keypressed;

{-----------krugi------------}

for i:=0 to 399 do

begin Обработка экономической информации средствами языка Pascal - реферат

setcolor(red);

circle(200,100,i);

setcolor(green);

circle(400,100,i);

setcolor(yellow);

circle(300,300,i);

delay(10);

end;

for i:=399 downto 0 do

begin

setcolor(i);

circle(322,250,i);

delay(10);

end;

{----------end_krugi---------}

closegraph;

end;

end;

{------------------------------------Вывод об ошибке---------------------------------------}

Procedure error;

begin

i:=0;

repeat

textmode(Co80);

clrscr;

gotoxy(24,8);textcolor(15);

write('ВЫ ВВЕЛИ Неверный НОМЕР');sound(185);delay Обработка экономической информации средствами языка Pascal - реферат(100);nosound;

clrscr;

gotoxy(24,8);textcolor(7);

write('ВЫ ВВЕЛИ Неверный НОМЕР');sound(174);delay(100);nosound;

i:=i+1;

until i=5;

nosound;

menu;

end;

{-----------------------------------------------Bыход-----------------------------------------}

procedure exitt;

begin

clrscr;

initgraph(gd,gm,'bgi');

repeat

settextstyle(7,0,4);setcolor(15);

outtextxy(90,getmaxy div 4, 'Technical support by e-mail:');

settextstyle(1,0,4);setcolor(10);

outtextxy(120,(getmaxy div 4)+50, 'support@sorgepro.agava.ru');

settextstyle Обработка экономической информации средствами языка Pascal - реферат(7,0,4);setcolor(15);

outtextxy(140,(getmaxy div 4)+100, 'or visited our web site:');

settextstyle(1,0,4);setcolor(10);

outtextxy(120,(getmaxy div 4)+150, 'http://sorgepro.agava.ru');

settextstyle(2,0,5);setcolor(15);

outtextxy(getmaxx div 4,getmaxy-30,'(c)2000."Sorge pro".All rights don''t reserved.');

until keypressed;

closegraph;

exit;

end;

{==========================Proga===========================}

BEGIN

zast;

assign (f,'k');

textmode(Co80);

{печать первого меню Обработка экономической информации средствами языка Pascal - реферат}

menu;

menu2:

{-------------------------------------------печать тaблицы-----------------------------------}

if l=1 then

begin

view(27);

textcolor(15);

gotoxy(7, ww+1);

writeln('Для выхода нажмите либо -возврат в главное меню. ');

c:=readkey;

textmode(Co80);

if c=#27 then begin menu; goto menu2 end

else exitt;

end

else

{-----------------------------------------Заново------------------------------------------------}

if l=2 then

begin

clrscr;

textbackground(14);textcolor(15);

writeln('Вы вправду желаете Обработка экономической информации средствами языка Pascal - реферат сделать новые записи?');

writeln('!!!Прошлые ЗАПИСИ БУДУТ УТЕРЯНЫ!!!');

textbackground(0);

gotoxy(1,4);

writeln('Для продолжения нажмите либо -возврат в главное меню.');

c:=readkey;

if c=#27 then begin menu; goto menu2 end

else

begin

writeln('Введите количество записей:');

read(q);

clrscr;

rewrite(f);

repeat

writeln('введи текущий номер продукции...'); readln(a.n);

writeln('введи переходящий Обработка экономической информации средствами языка Pascal - реферат остаток продукции на начало года...'); readln(a.e1);

writeln('введи приход продукции...'); readln(a.e2);

writeln('введи расход...');readln(a.e3);

writeln('введи стоимость за 1 шт...');readln(a.e4);

write(f,a);

until (a.n=q);

clrscr;

writeln('ВСЁ OK.');

delay(1000);

menu; goto menu2;

end;

end

else

{----------------------------------Добавление Обработка экономической информации средствами языка Pascal - реферат записи---------------------------------------}

if l=3 then

begin

clrscr;

textbackground(0);

textcolor(15);

writeln('Продолжить? (y/n)');

c:=readkey;

if c#121 then begin textmode(Co80); menu;goto menu2; end

else

begin

clrscr;

writeln('Введите количество добовляемых записей:');

read(mm);

clrscr;

reset(f); n:=filesize(f); seek(f,n);

pp:=n+1;

repeat

writeln('введи Обработка экономической информации средствами языка Pascal - реферат текущий номер продукции...');readln(qq); a.n:=pp;

writeln('введи переходящий остаток продукции на начало года...'); readln(a.e1);

writeln('введи приход продукции...'); readln(a.e2);

writeln('введи расход...');readln(a.e3);

writeln('введи стоимость за 1 шт...');readln(a.e4);

write(f,a);

pp:=pp+1;

until (qq=mm);

clrscr;

writeln Обработка экономической информации средствами языка Pascal - реферат('ВСЁ OK.');

delay(1000);

menu; goto menu2;

end;

end

else

{-----------------------------------------удаление записи------------------------------------}

if l=4 then

begin

clrscr;

window(1,1,68,22);

view(17);

window(64,1,80,22);

textcolor(15);

writeln('Продолжить? (y/n)');

c:=readkey;

if c#121 then begin textmode(Co80); menu;goto menu2; end

else

begin

write('Введи номер:');

readln(nn);

if nn>filesize(f) then begin error Обработка экономической информации средствами языка Pascal - реферат; goto menu2; end;

{удаление записи:запись в новый файл}

reset(f);

assign (f2,'k2');

rewrite(f2);

l:=0;q:=0;n:=filesize(f);

repeat

l:=l+1;

if lnn then

begin

q:=q+1;

seek(f,l-1);

read(f,a);

b.n:=q; b.e1:=a.e1; b.e2:=a.e2; b.e Обработка экономической информации средствами языка Pascal - реферат3:=a.e3; b.e4:=a.e4;

write(f2,b);

end;

until l=n;

{удаление записи: перезапись}

reset(f2); rewrite(f);

repeat

read(f2,b);

a.n:=b.n; a.e1:=b.e1; a.e2:=b.e2; a.e3:=b.e3; a.e4:=b.e4;

write(f Обработка экономической информации средствами языка Pascal - реферат,a);

until eof(f2);

writeln;

writeln('Всё Ok!');

delay(1000);

writeln('Reload-');

write('Exit-');

c:=readkey;

if c=#27 then begin menu; goto menu2; end

else begin textmode(Co80); l:=4; goto menu2; end;

end;

end

else

{---------------------------------------редактирование--------------------------------------}

if l=5 then

begin

view(27);

textcolor(15);

writeln('Продолжить? (y/n)');

c:=readkey;

if c#121 then Обработка экономической информации средствами языка Pascal - реферат begin textmode(Co80); menu;goto menu2; end

else

begin

write('Введите номер для редактирования:'); read(nn);

if nn>filesize(f) then begin error; goto menu2; end;

clrscr;

i:=27;

reset(f); seek(f,nn-1);

read(f,a);

st:=((a.e1+a.e2)-a.e3)*a.e4;

gotoXY(i-15,1);write(a Обработка экономической информации средствами языка Pascal - реферат.n);

gotoXY(i-5,1);write(a.e1);

gotoxy(i+11,1);write(a.e2);

gotoxy(i+20,1);write(a.e3);

gotoxy(i+29,1);write(a.e4:4:2);

gotoxy(i+37,1);write(st:4:2);

gotoxy(7,2);

seek(f,nn-1);

writeln('Поменять переходящий остаток продукции на начало года? (y/n)');

c:=readkey;

if c=#121 then begin write('Вводим новое:');read(nn Обработка экономической информации средствами языка Pascal - реферат); a.e1:=nn; end;

writeln;

writeln('Поменять приход продукции? (y/n)');c:=readkey;

if c=#121 then begin write('Вводим новое:'); read(nn);a.e2:=nn; end;

writeln;

writeln('Поменять расход? (y/n)');c:=readkey;

if c=#121 then begin write('Вводим новое:'); read(nn);a.e3:=nn; end;

writeln;

writeln Обработка экономической информации средствами языка Pascal - реферат('Поменять стоимость за 1 шт? (y/n)');c:=readkey;

if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end;

write(f,a); writeln; write('Все Ok'); delay(1000);

clrscr; menu;

goto menu2;

end;

end

else

{--------------------------------------вывод заставки------------------------------------}

if l=6 then begin zast; menu; goto menu2; end;

{---------------------------------------выход Обработка экономической информации средствами языка Pascal - реферат----------------------------------------------}

if l=7 then exitt

else

begin error; goto menu2; end;

{========================END_Proga========================}

END.

Writed by Sergei Kovbasyuk

(c)2000."Sorge pro". Rights don't reserved.

e-mail:office@sorgepro.agava.ru

http://sorgepro.agava.ru


obosnovanie-aktualnosti-temi-nauchnogo-issledovaniya-obzor-sostoyaniya-i-stepeni-izuchennosti-problemi.html
obosnovanie-celesoobraznosti-primeneniya-mufti-scepleniya.html
obosnovanie-dinamicheskih-rezhimov-pri-proektirovanii-shahtnih-podemnih-ustanovok.html