Тексты программ в приложении

Тексты программ в приложении. Главный запускающий файл программы. Pr1.dpr program Pr1 uses Forms, Start in START.PAS Form1, unit1 in UNIT1.PAS, unit2 in UNIT2.PAS, unit3 in UNIT3.PAS, unit4 in UNIT4.PAS R .RES begin Application. CreateFormTForm1, Form1 Application. Run end. Файл определяющий ввод дополнительной информации через интерфейс программы.

Start.pas unit Start interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Unit1,Unit2,Unit3,Unit4 type TForm1 classTForm Label1 TLabel Label2 TLabel Label3 TLabel Edit1 TEdit Label4 TLabel Edit2 TEdit Label5 TLabel Edit3 TEdit Label6 TLabel Edit4 TEdit Label7 TLabel Edit5 TEdit Button1 TButton procedure Button1ClickSender TObject procedure FormCreateSender TObject private Private declarations public Public declarations end var Form1 TForm1 implementation R .DFM procedure TForm1.Button1ClickSender TObject begin strnmes, mw system.assignf, vhodbase.dat rewritef zEdit3.Text writelnf, zvalz, fzp, convФЗП zEdit2.Text writelnf, zvalz, kold, conv Кол-во дней zEdit5.Text writelnf, zvalz, tarrab, conv Тариф рабочего 5-го разряда zEdit4.Text writelnf, zvalz, ocm, conv Оклад мастера zEdit1.Text writelnf, zvalz, nmes, conv system.closef Unit2.vvod Unit3.prog Unit4.vivod end procedure TForm1.FormCreateSender TObject begin Edit1.Text0 Edit2.Text0 Edit3.Text0 Edit4.Text0 Edit5.Text0 system.assignf, vhodbase.dat resetf readlnf, zvalz, fzp, convФЗП Edit3.TextFloatToStrfzp readlnf, zvalz, kold, conv Кол-во дней Edit2.TextIntToStrkold readlnf, zvalz, tarrab, conv Тариф рабочего 5-го разряда Edit5.TextIntToStrtarrab readlnf, zvalz, ocm, conv Оклад мастера Edit4.TextFloatToStrocm readlnf, zvalz, nmes, conv Edit1.TextIntToStrnmes system.closef end end. Файл, отвечающий за идентификацию переменных.

Unit1.pas unit unit1 interface Раздел констант const mesarray 1 12 of string 8Январь,Февраль,Март,Апрель,Май, Июнь,Июль,Август,Сентябрь,Октябрь,Ноябрь ,Декабрь Описание переменных VAR nmesintegerN месяца convinteger перем конвектор f, f1system.text z, s,mwstringx, yreal дополнительные переменные kold, tarrab integer Исходная информация fzp, ocmextended Исходная информация kolvoarray1 4 of integer Количество работников в группе ktuarray1 4,1 20 of real КТУ fioarray1 4,1 20 of string16 ФИО aarray1 4,1 20,3 20 of longint Выходная информация tarray1 4,1 20,1 7 of real Тарифоклад и табель ballsarray1 4,1 20 of extended Баллы работников br, biextended Сумма баллов i, j,g, h,cinteger переменные-счетчики nkr, nki, p,qextended Нормативные коэффициенты, Доля ИТР,Перем счетчик fr, fireal Средства распред. по КТУ рабочим и ИТР implementation end. Файл, отвечающий за ввод данных из входных таблиц.

Unit2.pas unit unit2 interface uses unit1 procedure vvod implementation procedure vvod var i, j,g, hinteger begin Считывание данных из первой таблицы for i1 to 4 do kolvoi0 for i1 to 4 do begin stri, sassignf, vhods-1-mw.txtresetf for j1 to 7 do readlnf, z пропустить шапку таблицы repeat readlnf, zkolvoikolvoi1 jpos, zzcopyz, j1,250 Пропускаем номер jpos, zfioi, kolvoicopyz,1,j-1zcopyz, j1,25 0 ФИО jpos, zvalcopyz,1,j-1,ktui, kolvoi, convzco pyz, j1,300КТУ Разряд работника jpos, zvalcopyz,1,j-1,ai, kolvoi,6,convzco pyz, j1,300 Тарифоклад работника jpos, zvalcopyz,1,j-1,ti, kolvoi,1,convzco pyz, j1,300 Табель времени работника jpos, zvalcopyz,1,j-1,ti, kolvoi,2,convzco pyz, j1,300 jpos, zvalcopyz,1,j-1,ti, kolvoi,3,convzco pyz, j1,300 Выходные работника jpos, zvalcopyz,1,j-1,ti, kolvoi,4,convzco pyz, j1,300 jpos, zvalcopyz,1,j-1,ti, kolvoi,5,convzco pyz, j1,300 Сверхурочные работника jpos, zvalcopyz,1,j-1,ti, kolvoi,6,convzco pyz, j1,300 jpos, zvalcopyz,1,j-1,ti, kolvoi,7,conv until eoff closefend Считывание данных из второй таблицы for i1 to 4 do begin stri, sassignf, vhods-2-mw.txtresetf for g1 to 7 do readlnf, z пропустить шапку таблицы for g1 to kolvo i do begin readlnf, zjpos, zzcopyz, j1,250 jpos, zzcopyz, j1,250 for h8 to 10 do begin jpos, zvalcopyz,1,j-1,x, c ai, g,hroundxfzpfzp-ai, g,hzcopyz, j1,250en d jpos, zvalcopyz,1,j-1,x, c ai, g,18roundxzcopyz, j1,250 for h11 to 12 do begin jpos, zvalcopyz,1,j-1,x, c ai, g,hroundxfzpfzp-ai, g,hzcopyz, j1,250en d jpos, zvalcopyz,1,j-1,x, cai, g,19roundx for h13 to 16 do begin zcopyz, j1,250jpos, z valcopyz,1,j-1,x, cai, g,hroundxfzpfzp-ai, g,hend end closefend end end. Файл, отвечающий за основной расчет.

Unit3.pas unit unit3 interface uses unit1 procedure prog implementation procedure prog var i, j,hinteger begin br0 bi0 for i1 to 4 do for j1 to kolvoi do begin if ai, j,60 then ballsi, jti, j,1ti, j,2kold else ballsi, jti, j,1ti, j,3 ai, j,3roundballsi, j Выходные if ai, j,60 then begin ai, j,4round1.5ti, j,1ti, j,4kold ballsi, jballsi, jti, j,1ti, j,4koldend else begin ballsi, jballsi, jti, j,1ti, j,5 ai, j,4round1.5ti, j,1ti, j,5end Сверхурочные if ai, j,6 0 then begin ballsi, jballsi, jti, j,1ti, j,6ti, j,7 ai, j,5roundti, j,11.5ti, j,62ti, j,7end else begin ballsi, jballsi, jti, j,1ti, j,6ti, j,78kold ai, j,5roundti, j,11.5ti, j,62ti, j,78kolden d Расчет баллов ballsi, jballsi, jktui, j if ai, j,6 0 then brbrballsi, j else bibiballsi, j for h3 to 5 do fzpfzp-ai, j,hУменьшение ФЗП end writeln bi, roundbi, br, roundbr Надбавка по КТУ nkr0.75fzpbrnki0.25fzpbi writelnfzp, roundfzp p0 q1 Цикл оптимизации repeat if round ocmocm1.5nki roundtarrab8koldtarrab8kold1.5nkr then begin ppq qq10 end pp-q nkr1-pfzpbr nkipfzpbi writeln round ocmocm1.5nki, ,roundtarrab8koldtarrab8kold1.5nkr writeln ocm, roundocm, nki, round nki writeln ocm, roundocm, nkr, round nkr until round ocmocm1.5nki roundtarrab8koldtarrab8kold1.5nkr writeln ok, round ocmocm1.5nki, ,roundtarrab8koldtarrab8kold1.5nkr writeln ok nkr, roundnkr, nki, nki Зарплата по КТУ выпл. рабочим for i1 to 3 do for j1 to kolvoi do ai, j,7roundnkrballsi, j Зарплата по КТУ выпл. ИТР for j1 to kolvoi do a4,j,7roundnkiballs4,j Итоговое суммирование for i1 to 4 do for j1 to kolvoi do begin ai, j,170ai, j,200 for h3 to 5 do ai, j,17ai, j,17ai, j,h for h7 to 16 do ai, j,17ai, j,17ai, j,h for h17 to 19 do ai, j,20ai, j,20ai, j,h end end end. Файл, отвечающий за вывод данных в выводные таблицы.

Unit4.pas unit unit4 interface uses unit1 procedure vivod implementation procedure vivod var i, j,hinteger begin Вывод в таблицу for i1 to 4 do begin stri, sassignf, vihods-mw.txtrewritef sТаблица заработной платы по s участку на mesnmes месяц writelnf, s Создание шапки таблицы assignf1,vhodshapkaresetf1 for j1 to 6 do begin readlnf1,zwritelnf, zendclosef1 for j1 to kolvoi do begin Вывод данных в таблицу writef, writef, j2writef, writef, fioi, j16writef, for h3 to 5 do begin writef, ai, j,h8writef, end strroundballsi, j,swritef, s8writef, for h7 to 20 do begin writef, ai, j,h8writef, end writef, j2writelnf, end closef end readln end end. Список идентификаторов, используемых в программе nmes - месяца conv -перем конвектор f, f1 -текстовые z, s,mwstringx, yl -дополнительные переменные kold, tarrab, fzp, ocm -Исходная информация kolvo1 4 -Количество работников в группе ktu1 4,1 20 -КТУ fio1 4,1 20 -Фамилия, Имя, Очество работника a1 4,1 20,3 20 -Выходная информация из таблицы t1 4,1 20,1 7 -Тариф, оклад и табель balls1 4,1 20 of extended - Баллы работников br, bi -Суммы баллов рабочих и ИТР i, j,g, h,c -переменные-счетчики nkr, nki, p,q -Нормативные коэффициенты, Доля ИТР,Перем счетчик fr, fi -Средства распред. по КТУ рабочим и ИТР mes -наименование месецев Дополнительно Программа осуществляет построчный ввод из входных файлов, обрабатывает их при помощи рабочих файлов, делая построчный вывод в выходные файлы.

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

Максимальный объем вводимой информации ограничен структурой таблицы.

Помимо основных, программа использует стандартные модули языка Delphi.

Инструкции пользователя.

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

При работе в Windows, пользователю рекомендуется создавать их при помощи стандартного редактора Write WordPad. Каждому участку в каждом месяце соответствует два файла.

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

Наименование файлов должно соответствовать следующим стандартам -Имя первого файла X-1-Y.txt, где X- номер участка, а Y- номер месяца. -Имя второго файла X-2-Y.txt, где X- номер участка, а Y- номер месяца.

Запуск программы Запуск программы осуществляется после запуска Windows или эмулятора Windows 3.1 в случае использования OS2 или MAC. Запускающий файл- файл pr1.exe. После запуска программы перед пользователем появляется ее интерфейс.

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

Информация будет проанализирована и выведена в таблицы.

Просмотр выходной информации Выходные таблицы находятся в поддиректории VIHOD. Каждому участку в каждом месяце соответствует определенный файл -Имя файла X-1-Y.txt, где X- участка, а Y- месяца. При работе в Windows, пользователю рекомендуется просматривать их при помощи стандартного редактора Write WordPad, или Notepad.

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