Prodavnica, Pascal

Prodavnica

program Pazar;

type
pok=^elem;
zapis=record
naziv:string;
pazar:real
 end;
elem=record
podatak:zapis;
next:pok
end;
var
lista:pok;

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

procedure ucitajlistu(var lista:pok);
var
poslednji,novi:pok;
p,k:integer;
c:real;
begin
lista:=nil;
poslednji:=nil;
while not eof(input) do begin
new(novi);
citaj(novi^.podatak.naziv);
read(p,k);
readln(c);
novi^.podatak.pazar:=(p-k)*c;
if lista<>nil then poslednji^.next:=novi
else lista:=novi;
poslednji:=novi;
end;
end;

procedure izbacineprodate(var lista:pok);
var
pom,preth:pok;
begin
pom:=lista; preth:=nil;
while(pom<>nil) do begin
if pom^.podatak.pazar=0 then begin
if preth=nil then begin
lista:=pom^.next;
dispose(pom);
pom:=lista;
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.naziv>pom2^.podatak.naziv) 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
pa:real;
begin
pa:=0.0;
while lista<>nil do begin
pa:=pa+lista^.podatak.pazar;
writeln(lista^.podatak.naziv,' ',lista^.podatak.pazar:0:2);
lista:=lista^.next;
end;
writeln('Ukupan pazar: ',pa: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
ucitajlistu(lista);
izbacineprodate(lista);
uredineopadajuce(lista);
ispisilistu(lista);
obrisilistu(lista);
end.


run \| edit \| history \| help	1