Witam,
posiadam takowe funkcje dla pascala:
procedure push(var f:wskaznik; y:string; z:byte);
var
prev,p,nowy:wskaznik;
begin
new(nowy);
nowy^.imie:=y;
nowy^.wynik:=z;
nowy^.next:=nil;
//if f^.wynik > z then
begin
nowy^.next:=f;
f:=nowy;
exit;
end;
p:=f;
while (p^.imie <= y) do
begin
prev:=p;
p:=p^.next;
if p=nil then
begin
prev^.next:=nowy;
exit;
end;
end;
nowy^.next:=prev^.next;
prev^.next:=nowy;
end;
procedure wyniki(f:wskaznik);
var licz:byte;
begin
licz:= 1;
clrscr;
Writeln;
Writeln('Lp. Wynik: Imi©:');
Writeln('_______________________________');
while f <> nil do
begin
write(licz:2,'. ');
write(f^.wynik:7,' ');
write(f^.imie:17);
f:=f^.next;
writeln;
inc(licz);
end;
writeln;
end;
Pierwsza umieszcza kolejny element na liście jednokierunkowej, druga ma za zadanie ją wyświetlać. Chciałbym, aby podczas wyświetlenia wyniki były wyświetlone rosnąco - tym samym posortować listę/wyniki do wyświenia wg zmienniej "wynik".
Z góry dziękuję za pomoc
