45981 (665287), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

L-------------- L-------------- L--------------

22¦ 23¦ 24¦ 25 ¦ 26¦

¦ ¦¦ ¦¦

----+--------¬ ----+----¬ -----+-----¬ -----+-------¬ ------------¬

¦ add ¦ ¦ sub ¦ ¦ nalogs ¦ ¦ help ¦ ¦editwindow ¦

L------------- L--------- L----------- L------------- L------------

27¦28

¦ ¦

-----+-------¬------+------¬

¦ search ¦¦ great ¦

L-------------L-------------

2.3 Схема модуля вычисления зарплаты.

¦

--------+-------¬

¦открыть f1,f4 ¦

¦n = fsize (f1) ¦

L-------T--------

6 ¦

-------+--------¬да 7

¦ конец файла? +-------

L------T---------

¦

-------+-----------¬

¦ считываем в маs ¦

¦ 1 запись ¦

L-----T-------------

¦

-------+--------¬

¦ww=0 xx =0 ¦

L------T---------

--------+-------¬

¦открываем файл ¦

¦начислений F2 ¦

¦ ¦

L-------T--------

¦

-------+----¬

¦ конец f2 +---------------------¬

L------T----- ¦

-------+------------T----¬ ¦

¦cчитываем из F2 rr ¦ ¦ ¦

L------T------------- ¦ ¦

-----------+---------¬ нет ¦ ¦

¦ mas.tab = rr.tab?+-------- ¦

L----------T---------- ¦

¦да¦

-----------+--------------¬ ¦

¦ inc(ww ,rr.sum)¦ ¦

L----------T--------------- ¦

¦ ¦

---------+---------T-----------------

¦открываем F3¦

¦файл взысканий ¦

L------T------------

¦

¦

-------+--------¬

¦ конец F3+-----------------¬

L------T--------- ¦

-------+------------T---¬ ¦

¦cчитываем из F3 rr ¦ ¦ ¦

L------T------------- 8 ¦

2 3

2 8 3

-----------+---------¬ нет ¦ ¦

¦ mas.tab = rr.tab?+-------- ¦

L----------T---------- ¦

¦да¦

-----------+--------------¬ ¦

¦ inc(xx,rr.sum) ¦ ¦

L----------T--------------- ¦

¦ ¦

+---------------------------

--------+-------------¬

¦s.tab = mas.tab¦

¦s.name = mas.name ¦

¦s.okl = mas.oklad ¦

¦s.plus = ww ¦

¦s.minuis = xx ¦

L--------T-------------

¦

------------+------------¬ нет

¦ есть ли декларация? +------¬

¦ dekl ¦¦

L-----------T-------------¦

¦ да ------+--------¬

¦ 4 ¦ dekl = 0 ¦

¦ ¦

L-----T---------

¦4

4

¦

--------------+-------------¬ да -----------------------¬

¦dekl < 10000000 +-----+ s.pn =(s.okl+ ww - +-¬

L-------------T-------------- L----------------------- ¦

--------------+----------¬ ¦

¦ s.pn = (s.okl+ ww - ¦ ¦

¦ - xx -¦ ¦

¦ - 833333) *0.2+¦ ¦

¦ +100000 ¦ ¦

L-------------T----------- ¦

¦ ¦

+---------------------------------------------

----------+--------------¬

¦s.penf = (s.okl+ ww - ¦

¦- xx)*0.01 ¦

L---------T---------------

¦

---------+-------------------¬

¦s.itog = s.okl+ww[i] -xx[i]-¦

¦-s.pn - p.penf ¦

L--------T--------------------

---------+-------------------¬

¦ запись s ¦

L-------T---------------------

6¦

---------------

¦7

-----------+-------¬

¦ конец ¦

L-------------------

2.4 Описание mодулей и процедур программы.

---Главная программа

¦

¦

+- работа со справочниками------------------------¬

¦ ¦

+- работа с записной книжкой ---------------------¬¦

¦ ¦¦

+- вычисление заработной платы ------------------¬¦¦

¦¦¦¦

+- операции с расчетной ведомостью ------------¬ ¦¦¦

¦ ¦ ¦¦¦

+- работа c банковскими документами-----------¬¦ ¦¦¦

¦ ¦¦ ¦¦¦

+- работа с главной книгой-------------------¬¦¦ ¦¦¦

¦ ¦¦¦ ¦¦¦

L- работа с сальдо счетов-------------------¬¦¦¦ ¦¦¦

¦¦¦¦ ¦¦¦

¦¦¦¦ ¦¦¦

подсчет сальдо -+¦¦¦ ¦¦¦

(saldo) ¦¦¦¦ ¦¦¦

просмотр сальдо -+¦¦¦ ¦¦¦

global¦¦¦¦ ¦¦¦

запись сальдо в архив -+¦¦¦ ¦¦¦

save_data_file ¦¦¦¦ ¦¦¦

чтение сальдо из архива -+¦¦¦ ¦¦¦

load_data_file ¦¦¦¦ ¦¦¦

печать сальдо --¦¦¦ ¦¦¦

printtable¦¦¦ ¦¦¦

¦¦¦ ¦¦¦

¦¦¦ ¦¦¦

добавление данных по зарплате -+¦¦ ¦¦¦

salary_great_book ¦¦¦ ¦¦¦

добавление данных по банку -+¦¦ ¦¦¦

scan_bank_for_great ¦¦¦ ¦¦¦

просмотр главной книги --¦¦ ¦¦¦

global ¦¦ ¦¦¦

¦¦ ¦¦¦

¦¦ ¦¦¦

ввод платежных поручений -+¦ ¦¦¦

global¦¦ ¦¦¦

ввод обьявлений на взнос -+¦ ¦¦¦

global¦¦ ¦¦¦

ввод выписок из банка --¦ ¦¦¦

global ¦ ¦¦¦

¦ ¦¦¦

¦ ¦¦¦

¦ ¦¦¦

¦ ¦¦¦

получение ведомости -+ ¦¦¦

salary ¦ ¦¦¦

просмотр ведомости -+ ¦¦¦

global ¦ ¦¦¦

занесение в архив -+ ¦¦¦

save_data_file ¦ ¦¦¦

чтение из архива -+ ¦¦¦

loads_data_file ¦ ¦¦¦

печать ведомости - ¦¦¦

printtable ¦¦¦

¦¦¦

просмотр файла начислений -+¦¦

global ¦¦¦

просмотр файла взысканий -+¦¦

global ¦¦¦

расчет начислений -+¦¦

add ¦¦¦

расчет взысканий -¦¦ sub ¦¦

¦¦

ввод в записную книжку -+¦

global¦¦

поиск в записной книжке --¦

search ¦

¦

справочник начислений -+

global ¦

справочник налогов -+

global ¦

спроавосчник общих налогов -+

global ¦

справочник разрядов -+

global ¦

справочник минимальной зарплаты -+

read_min_salary ¦

таблица аудита --

global

------------T-------------------------T--------------T-----------------¬

¦ Модуль ¦ Назначение¦ Вход.файл ¦ Выход.файл ¦

¦ ¦ ¦ ¦ ¦

¦ spr_work ¦ Работа со справочной ¦ salary.dat ¦ salary.dat¦

¦ ¦ информацией ¦ spr2.arm ¦ spr2.arm ¦

¦ ¦ ¦ spr3.arm ¦ spr3.arm ¦

¦ ¦ ¦ spr4.arm ¦ spr4.arm ¦

¦ ¦ ¦ spr5.arm ¦ spr5.arm ¦

¦ ¦ ¦ spr6.arm ¦ spr6.arm ¦

¦ ¦ ¦ audit.arm ¦ audit.arm ¦

¦ ¦ ¦ ¦ ¦

¦Saldo_work ¦Работа с сальдо счетов ¦ great.arm ¦ saldo.arm ¦

¦ ¦ ¦ saldo.arm ¦ saldo.ind ¦

¦ ¦ ¦ saldo.ind ¦ saldo.sav ¦

¦ ¦ ¦ saldo.sav ¦ prn ¦

¦ ¦ ¦ ¦ ¦

¦ Great ¦ Работа с главной книгой ¦ Great.arm ¦ great.arm ¦

¦ ¦ ¦ bank3.arm ¦ prn ¦

¦ ¦ ¦ sal.arm¦ ¦

¦ ¦ ¦ ¦ ¦

¦ copybook ¦ Работа с записной ¦ copybook.arm ¦copybook.arm ¦

¦ ¦ книгой бухгалтера ¦ ¦ ¦

¦ ¦ ¦ ¦ ¦

¦salary_work¦ Работа с расчетной¦ sal.arm¦ sal.arm ¦

¦ ¦ ведомостью ¦ sal.sav¦ sal.sav ¦

¦ ¦ ¦ sal.ind¦ sal.ind ¦

¦ ¦ ¦ ¦ ¦

¦ salary ¦ Создание ведомости¦ salary3.arm ¦ sal.arm ¦

¦ ¦ ¦ ¦ ¦

¦ add ¦ Расчет насчислений¦ spr1.arm ¦ salary1.arm ¦

¦ ¦ ¦ spsotr.arm ¦ ¦

¦ ¦ ¦ ¦ ¦

¦ sub ¦ Расчет вычетов ¦ spr2.arm ¦ salary2.arm ¦

¦ ¦ ¦ salary1.arm ¦ ¦

¦ ¦ ¦ ¦ ¦

¦ nalogs ¦ Вычет налогов ¦ salary2.arm ¦salary3.arm¦

¦ ¦ ¦ spnal.arm ¦ ¦

¦ search ¦ Поиск в записной книге ¦ Copybook.arm ¦ ttt.arm ¦

¦ ¦ ¦ ¦ ¦

¦ bank.arm ¦ Работа с банковскими¦ bank1.arm ¦ bank1.arm¦

¦ ¦ документами ¦ bank2.arm ¦ bank2.arm¦

¦ ¦ ¦ bank3.arm ¦ bank3.arm¦

¦cck_salary1¦ Проверка на соответствие¦ spsotr.arm ¦ ¦

¦ ¦ окладов разрядам ¦ spr6.arm ¦ ¦

¦ ¦ ¦ ¦ ¦

¦ ¦ ¦ ¦ ¦

¦chk_slalry2¦Проверка на соответствие ¦ spsotr.arm ¦ ¦

¦ ¦окладов фонду зарплаты ¦ fonds.dat ¦ ¦

¦ ¦ ¦ ¦ ¦

L-----------+-------------------------+--------------+------------------

Модуль Windenv

Процедура Savewindow(x1,y1,x2,y2:byte; var a:buffertype)

Сохраняет в оперативной памяти содержимое прямоугольной области экрана.

x1,y1,x2,y2 - Координаты области экрана. а - переменная, в которую заносится адрес области ОП. Процедура loadwindow(x1,y1,x2,y2:byte; var a:buffertype)

Восстанавливает прямоугольную область экрана, предварительно сохраненную процедурой Savewindow, и освобождает оперативную память, в которй хранилась область. Область экрана должна иметь ту же форму, но, вообще говоря, не обязательно те же координаты, что и сохраненная. x1,y1,x2,y2 - Координаты области на экране. а - адрес в оперативной памяти, где хранится область. Модуль Inter

Функция Max(a,b:integer):integer возвращает максимум из чисел a и b.

Функция Min(a,b:integer):integer

Возвращает минимум из чисел а и b.

Процедура curs_off

Делает курсор на экране невидимым.

Процедура Error(s:string);

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

s - Сообщение об ошибке.

Процедура Input(x,y,l:byte;var s:string;w:settype)

Расширенная процедура ввода. Позволяет вводить строчку заданной длины, отслеживая недопустимые символы. Позволяет использовать клавиши "Влево","Вправо", Del,Backspase. Позволяет использовать строку по умолчанию, есть возможность Undo.

x,y - Координаты вводимой строки на экране.

l - Максимальная длина вводимой строки.

s - Строка по умолчанию. В ней же возвращается введенная строка. Если в течении ввода была нажата клавиша ESC, возвращается пустая строка.

w - Множество допустимых символов. Модуль Files2

Функция FOpen(FName:string;FMode:Word):Word

Открывает безтиповый файл. Возвращает заголовок файла.

В случае ошибки внутренняя переменная Fsuccess принимает значение False.

Fname - Имя файла.

Fmode - Режим (0 - только для чтения,1 - только для записи, 2 - и для чтения, и для записи.) Функция FCreate(FName:String;FAttr:Word):Word

Создает безтиповый файл. Возвращает заголовок файла.

В случае ошибки внутренняя переменная Fsuccess принимает значение False.

FName - Имя файла.

FAttr - атрибуты создаваемого файла.

Функция FRead(Handle,Segment,Offset,Bytes:Word):Word

Читает из безтипового файла блок. В случае ошибки чтения внутренняя переменная Fsuccess принимает значение False. Возвращает количество реально прочитанных байтов.

Наndle - Заголовок файла.

Segment - Сегментная часть адреса в оперативной памяти, в которую производится чтение.

Offset - Смещение этой области относительно сегмента в оперативной памяти.

Bytes - Сколько байтов необходимо прочитать.

Функция FWrite(Handle,Segment,Offset,Bytes:Word):Word

Записывает в безтиповый файл блок памяти. В случае ошибки записи внутренняя переменная Fsuccess принимает значение false. Возвращает количество реально записанных байтов. Наndle - Заголовок файла.

Segment - Сегментная часть адреса в оперативной памяти, из которой происходит чтение.

Offset - Смещение этой области относительно сегмента в оперативной памяти.

Bytes - Сколько байтов необходимо записать.

Процедура FClose(Handle:Word)

Закрывает безтиповый файл. В случае ошибки внутренняя переменная Fsuccess принимает значение False.

Наndle - Заголовок файла.

Процедура FSeek(Handle:Word; PosPnt:LongInt)

Перемещает указатель безтипового файла.

В случае ошибки внутренняя переменная Fsuccess принимает значение False.

Наndle - Заголовок файла.

PosPnt - новое положение указателя.

Функция FTell(Handle:Word):LongInt

Возвращает позицию указателя файла.

В случае ошибки внутренняя переменная Fsuccess принимает значение False.

Наndle - Заголовок файла.

Функция FSize(FName:String;FAttr:Word):LongInt

Возвращает размер файла в байтах.

В случае ошибки внутренняя переменная Fsuccess принимает значение

False.

FName - Имя файла.

FAttr - Атрибуты файла.

Модуль Field

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

Они описаны ниже:

type ftype=array [1..32000] of word

fieldtype=record

field: ^ftype;

tc,tb:byte;

xmax,ymax:integer;

currentx,currenty:integer;

end;

Функция creatfield(var T:fieldtype;X,Y:integer):integer

Создает таблицу заданного размера. Возвращает признак успеха.

T - Таблица.

X - Размер по горизонтали.

Y - Размер по вертикали.

Процедура clearfield(var T:fieldtype;Beg:integer;Textc,Textb:byte)

Очищает созданную таблицу и устанавливает цвет текста и фона для выводимой информации.

T - Таблица.

Beg - Строка таблицы, начиная с которой идет очищение.

Textc - цвет текста для выводимой информации.

Textb - цвет фона для выводимой информации.

Процедура Window_To_Field(T:fieldtype;X1,Y1,X2,Y2,Xx,Yy:integer)

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

T - Таблица.

X1,Y1,X2,Y2 - координаты области на экране.

Xx,Yy - Координаты области внутри таблицы.

Процедура field_to_window(T:fieldtype;X1,Y1,X2,Y2,Xx,Yy:integer)

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

T - Таблица

X1,Y1 - Координаты левого верхнего угла области.

X2,Y2 - Координаты правого нижнего угла области.

Xx,Yy - Координаты области внутри таблицы.

Процедура put_char(T:fieldtype;X,Y:integer;Sym,Textc,Textb:byte)

Выводит в таблицу символ по заданным координатам с заданным цветом текста и цветом фона.

T - Таблица.

X,Y - Координаты в таблице.

Sym - Код символа.

Textc - Цвет текста.

Textb - Цвет фона.

Процедура deletefield(var T:fieldtype)

Удаляет таблицу,высвобождает память,занятую ей.

T - Таблица.

Модуль Data

Процедура strtotable(X,Y,L:integer;Source:arr;T:fieldtype)

Выводит в таблицу строку символов.

X,Y - координаты в таблице.

Характеристики

Список файлов реферата