Курсовая работа: Разработка программы обработки экономической информации

{-------------------------------------------------------------------------}

procedure obrabotka;

var

pop:ukaz;

x: integer; //промежуточная величина

begin

pop:= verh; //указатель на начало

x:=0;

while pop<> nil do//пока не конец списка

begin

pop^. inf. neopravdan:= pop^. inf. propusk- pop^. inf. opravdan; //подсчёт неоправданных пропусков

if pop^. inf. propusk=0 then pop^. inf. procent:=0//если пропуски=0 то и процент =0

else

pop^.inf.procent:=( pop^.inf.neopravdan/ pop^.inf.propusk)*100; //подсчёт процента

x:= x+ pop^. inf. neopravdan; //нахождение промежуточной величины

pop^.inf.summa:=x;

pop:=pop^.nr;

end;

gotoxy(25,25);

writeln('Processing data is over push the -enter-'); //завершилась обработка

readln;

end;

{------------------------------------------------------------------------}

{------------------prosmotr----------------------------------------------}

{------------------------------------------------------------------------}

//смотреть prosmotr_2 – всё аналогично ,только добавляются нолвые поля .

procedure prosmotr(x:ukaz);

var

n:integer;