кто-нибудь сможет описать пару процедур на паскале? всмысле коментарии расставить
что делает то или иное действие, а то я не очень понимаю ( если да то можно асю
процедура не очень большая, в общем тема очереди я имею базу данных из 20 записей вот первая процедура
procedure Spisk2;
type
Tabl = array of record
otdel : string;
sum : real;
kol : integer;
end;
var
S : Tabl;
kItem : pitem;
i : integer;
n : boolean;
begin
kItem := tHead;
i := 0;
SetLength(S,1);
S[0].otdel := kItem^.otdel;
if tHead = nil then writeln('таблица пуста')
else
begin
while kItem <> nil do
begin
i := 0;
n := false;
repeat
if kItem^.otdel = S.otdel then
begin
s.sum := s.sum + kItem^.oklad;
s.kol := s.kol + 1;
n := true;
end;
inc(i);
until n or (i = high(S)+1);
if not n then
begin
Setlength(S,High(S)+2);
S[High(s)].otdel := kItem^.otdel;
S.sum := s.sum + kItem^.oklad;
S.kol := S.kol + 1;
end;
kItem := kItem^.prev;
end;
writeln('-----------------');
for i := 0 to High(S) do
begin
writeln('№ записи: ',i+1);
writeln('Название отдела: ',S.otdel);
writeln('Средний размер оклада: ',S.sum/s.kol:7:4);
writeln('-------------------------');
end;
end;
end;
найти средний размер оклада по каждому из встречающихся отделов.
задание вот по ней