Trke, Pascal - rextester

Trke

program Trke;

type
pok=^elem;
zapis=record
  ime:string;
  n:integer;
  l,v,t,d:real
  end;
elem=record
  podatak:zapis;
  next:pok
  end;
var
lista:pok;

procedure citaj(var imenica:string);
var
znak:char;
begin
imenica:='';
read(znak);
while (znak<>' ') do begin
imenica:=imenica+znak;
read(znak);
end;
end;

procedure napravilistu(var lista:pok);
var
novi,preth:pok;
i:integer;
begin
writeln('Unesite podatke: ');
preth:=nil; lista:=nil;
for i:=1 to 3 do begin
new(novi);
citaj(novi^.podatak.ime);
read(novi^.podatak.n);
read(novi^.podatak.l,novi^.podatak.v);
readln();
novi^.podatak.d:=(novi^.podatak.n)*(novi^.podatak.l);
novi^.podatak.t:=(novi^.podatak.d)/(novi^.podatak.v);
if (lista=nil) then lista:=novi
else preth^.next:=novi;
preth:=novi;
end;
end;

procedure izbacipotrajanju(var lista:pok);
var
pom,preth:pok;
tim:real;
begin
pom:=lista;
preth:=nil;
writeln('Unesite najmanje dozvoljeno vrijeme trajanja trke: ');
read(tim);
while (pom<>nil) do begin
if (pom^.podatak.t<tim) then begin
if (preth=nil) then begin
pom:=pom^.next;
dispose(lista);
lista:=pom
end
else begin
preth^.next:=pom^.next;
dispose(pom);
pom:=preth^.next
end
end
else begin
preth:=pom;
pom:=pom^.next;
end;
end;
end;

procedure uredineopadajuce(var lista:pok);
var
pom1,pom2:pok;
pom:zapis;
begin
pom1:=lista;
while (pom1<>nil) do begin
pom2:=pom1^.next;
while (pom2<>nil) do begin
if (pom1^.podatak.t>pom2^.podatak.t) then begin
pom:=pom1^.podatak;
pom1^.podatak:=pom2^.podatak;
pom2^.podatak:=pom;
end;
pom2:=pom2^.next;
end;
pom1:=pom1^.next;
end;
end;

procedure  ispisilistu(lista:pok);
var
m,br:integer;
s:real;
begin
br:=0; m:=0;
while (lista<>nil) do begin
writeln(lista^.podatak.ime,' ',lista^.podatak.d:0:2,' ',lista^.podatak.t:0:2);
m:=m+lista^.podatak.n;
br:=br+1;
lista:=lista^.next;
end;
s:=m/br;
writeln('Prosjecan broj krugova je ',s:0:2);
end;

procedure obrisilistu(var lista:pok);
var
pom:pok;
begin
while (lista<>nil) do begin
pom:=lista^.next;
dispose(lista);
lista:=pom;
end;
end;
 
begin
napravilistu(lista);
izbacipotrajanju(lista);
uredineopadajuce(lista);
ispisilistu(lista);
obrisilistu(lista);
end.


run \| edit \| history \| help	0