Программа обработки экономической информации

Данная программа, составлена в соответствии с постановкой задачи на курсовое проектирование по теме " Программа обработки ведомости о работе сотрудников" по дисциплине "Основы программирования и алгоритмические языки" (ОПиАЯ). При написании программы использованы методические указания по курсовому проектированию по дисциплине "ОПиАЯ". Для проверки работоспособности программы и правильности обработки входных данных разработан тестовый пример. Тестирование программы подтвердило, что программа правильно выполняет обработку данных и выдаёт верные результаты. Всё это свидетельствует о работоспособности программы и позволяет сделать вывод о пригодности программы к решению практических задач по обработке экономической информации.

Приложение 1

uses dos,crt;

type

Ptabl = ^Ttabl;

tablinf = record

grup:string[6];

predm:string[6];

otl:integer;

hor:integer;

ud:integer;

neud:integer;

plec:integer;

pprak:integer;

end;

Ttabl=record

inf:tablinf;

next,prev:Ptabl;

end;

var

grupmas:array [1..50] of tablinf;

newe:tablinf;

temp,left,right,tabl:Ptabl;

j,c,starty,perc,i,cur,beg,lin,lnum,count:integer;

ch:char;

function getp(n:integer):ptabl;

var

c:integer;

el:Ptabl;

begin

c := 1;

el := left;

while c<>n do

begin

inc(c);

el := el^.next;

end;

getp := el;

end;

function inttostr(i:longint):string;

var

s:string[11];

begin

str(i,s);

inttostr := S;

end;

function strtoint(s:string):longint;

var

i,code:integer;

begin

while s[1]=' ' do delete(s,1,1);

while s[length(s)]=' ' do delete(s,length(s),1);

val(s,i,code);

strtoint := i;

end;

procedure flip(var t1,t2:ptabl);

var

d:tablinf;

begin

d := t1^.inf;

t1^.inf := t2^.inf;

t2^.inf := d;

end;

procedure sort(t:integer);

var

temp1,temp2:ptabl;

s,i,j:integer;

begin

s := 1;

for i := 1 to count do

for j := 1 to count do begin

temp1 := getp(i);

temp2 := getp(j);

if s=2 then

case t of

1:if temp1^.inf.grup>temp2^.inf.grup then flip(temp1,temp2);

2:if temp1^.inf.predm>temp2^.inf.predm then flip(temp1,temp2);

3:if temp1^.inf.otl>temp2^.inf.otl then flip(temp1,temp2);

4:if temp1^.inf.hor>temp2^.inf.hor then flip(temp1,temp2);

5:if temp1^.inf.ud>temp2^.inf.ud then flip(temp1,temp2);

6:if temp1^.inf.neud>temp2^.inf.neud then flip(temp1,temp2);

7:if temp1^.inf.plec>temp2^.inf.plec then flip(temp1,temp2);

8:if temp1^.inf.pprak>temp2^.inf.pprak then flip(temp1,temp2);

end else

if s=1 then

case t of

1:if temp1^.inf.grup<temp2^.inf.grup then flip(temp1,temp2);

2:if temp1^.inf.predm<temp2^.inf.predm then flip(temp1,temp2);

3:if temp1^.inf.otl<temp2^.inf.otl then flip(temp1,temp2);

4:if temp1^.inf.hor<temp2^.inf.hor then flip(temp1,temp2);

5:if temp1^.inf.ud<temp2^.inf.ud then flip(temp1,temp2);

6:if temp1^.inf.neud<temp2^.inf.neud then flip(temp1,temp2);

7:if temp1^.inf.plec<temp2^.inf.plec then flip(temp1,temp2);

8:if temp1^.inf.pprak<temp2^.inf.pprak then flip(temp1,temp2);

end;

end;

end;

procedure org;

var

f:text;

begin

assign(f,'base.txt');

reset(f);

read(f,newe.grup);

if newe.grup='999999' then exit;

read(f,newe.predm);read(f,newe.otl);

read(f,newe.hor);read(f,newe.ud);

read(f,newe.neud);read(f,newe.plec);

read(f,newe.pprak);

new(tabl);

tabl^.inf := newe;

tabl^.next := nil;

tabl^.prev := nil;

left := tabl;

right := tabl;

readln(f);

count := 1;

while true do begin

read(f,newe.grup);

if newe.grup='999999' then exit;

read(f,newe.predm);read(f,newe.otl);

read(f,newe.hor);read(f,newe.ud);

read(f,newe.neud);read(f,newe.plec);

read(f,newe.pprak);

new(tabl);

tabl^.inf := newe;

tabl^.next := nil;

tabl^.prev := right;

right^.next := tabl;

right := tabl;

inc(count);

readln(f);

end;

close(f);

end;

procedure show;

begin

textbackground(0);

if lnum<20 then clrscr;

textcolor(15);

textbackground(3);

gotoxy(1,starty);

writeln('');

writeln('¦ Группа ¦ Предм. ¦ 5 ¦ 4 ¦ 3 ¦ 2 ¦ ПЛ ¦ ПП ¦');

writeln('');

gotoxy(1,starty + 3);

temp := getp(beg);

for i := 1 to lnum do

begin

if i=lin then

begin

textcolor(1);

textbackground(6);

with temp^.inf do

writeln('¦ ',grup,' ¦ ',predm,' ¦ ',otl:2,' ¦ ',hor:2,' ¦ ',ud:2,' ¦ ',neud:2,' ¦ ',plec:2,' ¦ ',pprak:2,' ¦');

textcolor(15);

textbackground(3);

end else

with temp^.inf do

writeln('¦ ',grup,' ¦ ',predm,' ¦ ',otl:2,' ¦ ',hor:2,' ¦ ',ud:2,' ¦ ',neud:2,' ¦ ',plec:2,' ¦ ',pprak:2,' ¦');

temp := temp^.next;

end;

writeln('');

textcolor(7);

textbackground(0);

gotoxy(1,starty + lnum + 5);

writeln('Запись №',cur:2,' из ',count);

write('''S''-Сортировать ''A''-Добавить ''E''-Редактировать ''D''-Удалить ''I''-Таблица');

end;

procedure saveto;

var

f:text;

begin

assign(f,'out.txt');

rewrite(f);

temp := getp(beg);

while temp<>nil do

with temp^.inf do

begin

write('¦ ',grup,' ¦ ',predm,' ¦ ',otl,' ¦ ',hor,' ¦ ',ud,' ¦ ',neud,' ¦ ',plec,' ¦ ',pprak,' ¦');

temp := temp^.next;

end;

close(f);

end;

procedure add;

var

l,p,er:integer;

st:string;

begin

textbackground(0);

clrscr;

writeln('Добавление:');

write('Группа:');

readln(st); if length(st)<6 then for p := 1 to 6-length(st) do st := st + ' ';

newe.grup := st;

write('Предмет:');

readln(st); if length(st)<6 then for p := 1 to 6-length(st) do st := st + ' ';

newe.predm := st;

write('5:');

readln(l);newe.otl := l;

write('4:');

readln(l); newe.hor := l;

write('3:');

readln(l); newe.ud := l;

write('2:');

readln(l); newe.neud := l;

write('Пропущено лекций:');

readln(l); newe.plec := l;

write('Пропущено практик:');

readln(l); newe.pprak := l;

new(tabl);

tabl^.inf := newe;

tabl^.next := nil;

tabl^.prev := right;

right^.next := tabl;

right := tabl;

inc(count);

if count<=20 then lnum:=count;

clrscr;

end;

procedure edit;

var

l,p,er:integer;

st:string;

begin

textbackground(0);

clrscr;

writeln('Редактирование:');

write('Группа:');

readln(st); if length(st)<6 then for p := 1 to 6-length(st) do st := st + ' ';

getp(cur)^.inf.grup := st;

write('Предмет:');

readln(st); if length(st)<6 then for p := 1 to 6-length(st) do st := st + ' ';

getp(cur)^.inf.predm := st;

write('5:');

readln(l); getp(cur)^.inf.otl := l;

write('4:');

readln(l); getp(cur)^.inf.hor := l;

write('3:');

readln(l); getp(cur)^.inf.ud := l;

write('2:');

readln(l); getp(cur)^.inf.neud := l;

write('Пропущено лекций:');

readln(l); getp(cur)^.inf.plec := l;

write('Пропущено практик:');

readln(l); getp(cur)^.inf.pprak := l;

textbackground(0);

clrscr;

end;

procedure del;

begin

if count>1 then begin

if cur=1 then

begin

temp := left^.next;

temp^.prev := nil;

dispose(left);

left := temp;

dec(count);

end else

if cur=count then

begin

temp := right^.prev;

temp^.next := nil;

dispose(right);

right := temp;

dec(count);

dec(beg);

end else

begin

temp := getp(cur);

temp^.prev^.next := temp^.next;

temp^.next^.prev := temp^.prev;

dispose(temp);

dec(count);

end;

lin := 1;

beg := 1;

if count<lnum then lnum:=count;

end;

end;

function sortby:integer;

var

c:char;

i,lp:integer;

begin

textbackground(0);

clrscr;

writeln('Сортировать:');

writeln('1: Группа');

writeln('2: Предмет');

writeln('3: Отл');

writeln('4: Хор');

writeln('5: Уд');

writeln('6: Неуд');

writeln('7: Пропущено лекций');

writeln('8: Пропущено практик');

readln(lp);

if lp>8 then lp:=8;

if lp<1 then lp:=1;

sortby := lp;

clrscr;

end;

procedure inf;

var

n:integer;

old,new:integer;

s,p: real;

begin

sort(1);

temp := left;

n := 1;

grupmas[1] := temp^.inf;

grupmas[1].otl := 0;

grupmas[1].hor := 0;

grupmas[1].ud := 0;

grupmas[1].neud := 0;

while temp<>nil do

begin

if grupmas[n].grup=temp^.inf.grup

then begin

grupmas[n].otl := grupmas[n].otl + temp^.inf.otl;

grupmas[n].hor := grupmas[n].hor + temp^.inf.hor;

grupmas[n].ud := grupmas[n].ud + temp^.inf.ud;

grupmas[n].neud := grupmas[n].neud + temp^.inf.neud;

grupmas[n].neud := grupmas[n].neud + temp^.inf.neud;

grupmas[n].plec := grupmas[n].plec + temp^.inf.plec;

grupmas[n].pprak := grupmas[n].pprak + temp^.inf.pprak;

end else

begin

inc(n);

grupmas[n] := temp^.inf;

end;

temp := temp^.next;

end;

for i:=1 to n do

begin

end;

textbackground(0);

clrscr;

textcolor(15);textbackground(3);

writeln('');

writeln('Средний Пропущено ');

writeln('Группа ');

writeln(' балл лекц. практ всего ');

writeln('');

for i := 1 to n do

begin

p:=grupmas[i].otl*5+grupmas[i].hor*4+

grupmas[i].ud*3+grupmas[i].neud*2;

s:=p/(grupmas[i].otl+grupmas[i].hor+

grupmas[i].ud+grupmas[i].neud);

writeln(' ',grupmas[i].grup,' ',s:8:3,' ',grupmas[i].plec:5,' ',

grupmas[i].pprak:5,' ',grupmas[i].plec+grupmas[i].pprak:5,' ');

end;

writeln('');

readkey;

end;

procedure close;

begin

saveto;

clrscr;

halt(1);

end;

procedure main;

begin

repeat

if keypressed then

begin

ch := readkey;

if ch=#71 then {home}

begin

lin := 1;beg := 1;

end;

if ch=#79 then {end}

begin

lin := lnum;beg := count-lnum + 1;

end;

if (ch=#73) then {pageup}

begin

lin := 1;

beg := beg-lnum;

if beg<1 then beg := 1;

end;

if (ch=#81) then {pagedown}

begin

lin := lnum;

beg := beg + lnum;

if beg>(count-lnum) then beg := count-lnum + 1;

end;

if ch=#80 then {down}

begin

inc(lin);

if lin>lnum then

begin

lin := lnum;

if (beg + lnum)<=count then inc(beg);

end;

end;

if ch=#72 then {up}

begin

dec(lin);

if lin<1 then

begin

lin := 1;

if beg>1 then dec(beg);

end;

end;

if (ch='s') or (ch='ы') then sort(sortby);

if (ch='a') or (ch='ф') then add;

if (ch='e') or (ch='у') then edit;

if (ch='d') or (ch='в') then del;

if (ch='i') or (ch='ш') then inf;

cur := beg + lin-1;

show;

end;

until ch=#27;

end;

begin

textbackground(0);

clrscr;

lnum := 20;

starty := 1;

beg := 1;

lin := 1;

cur := 1;

org;

show;

main;

close;

end.

Приложение 2

Руководство оператора

Для выполнения программы необходимо запустить исполняемый файл KURS.EXE. После запуска программы на экране появляется окно - Рисунок 2.1

Рисунок 2.1 - основное окно программы

• При работе с программой используются следующие клавиши:
• Up - на одну строку вверх;
• Down - на одну строку вниз;
• PgUp - на экран вверх;
• PgDown - на экран вниз;
• Home - в начало списка;
• End - в конец списка;
• Esc - выход;
• `S' - сортировка по полю, которое можно выбрать, нажав соответствующую цифру;
• `A' - добавление элемента в список;
• `D' - удаление элемента из списка;
• `E' - редактирование текущего элемента списка;
• При нажатии на клавишу “I” на экран выводится результирующая таблица - Рисунок 2.2
• Размещено на Allbest.ru