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

z.opravdan:=p;

{-------------------dobavlenie-------------------------}

//происходит так же как при организации

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

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

if z. fio>= pop^. inf. fio//сравнение по фамилиям

then

pop:= pop^. nr//перевод указателя

else

break; //прервать цикл

new( newE); //для нового элемента

newE^.inf.fio:=z.fio;

newE^.inf.propusk:=z.propusk;

newE^.inf.opravdan:=z.opravdan;

newE^.inf.nomergrupp:=z.nomergrupp;

newE^.inf.neopravdan:= newE^.inf.propusk- newE^.inf.opravdan;

{----------------v konec------------------------------}

if pop=nil then

begin

right^.nr:=newE;

newE^.nl:=right;

newE^.nr:=nil;

right:=newE;

kolvo:=kolvo+1;

end

else

{----------------v na4alo------------------------------

if pop=verh then

begin