Kupovina Auta, Pascal

Kupovina Auta

program KupovinaAutomobila;

type
pok=^elem;
zapis=record
  drzava,model:string;
   p,c,a,kc,kk: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 ispisi(lista:pok);
var
s:real;
n:integer;
begin
s:=0.0;n:=0;
while lista<>nil do begin
writeln(lista^.podatak.drzava,' ',lista^.podatak.model,' ',lista^.podatak.kc:0:2);
s:=s+lista^.podatak.kc;
n:=n+1;
lista:=lista^.next;
end;
writeln('Prosecna cena: ',s/n);
end;

procedure napravilistu(var lista:pok);
var
pom,novi:pok;
i:integer;
znak:char;
begin
pom:=nil;lista:=nil;
for i:=1 to 10 do begin
new(novi);
citaj(novi^.podatak.drzava);
read(novi^.podatak.p,novi^.podatak.c);
read(znak);
citaj(novi^.podatak.model);
readln(novi^.podatak.kk,novi^.podatak.a);
novi^.podatak.kc:=novi^.podatak.a*(1+novi^.podatak.p/100)*(1-novi^.podatak.c/100);
if (lista<>nil) then pom^.next:=novi
else lista:=novi;
pom:=novi;
end;
end;

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

procedure  uredineopadajuce(var lista:pok);
var
pom1,pom2,pomocni:pok;
begin
pom1:=lista;
while (pom1<>nil) do begin
pom2:=pom1^.next;
while (pom2<>nil) do begin
if (pom1^.podatak.kc>pom2^.podatak.kc) then begin
new(pomocni);
pomocni^.podatak:=pom1^.podatak;
pom1^.podatak:=pom2^.podatak;
pom2^.podatak:=pomocni^.podatak;
dispose(pomocni);
end;
pom2:=pom2^.next;
end;
pom1:=pom1^.next;
end;
end;

procedure izbacipokubikazi(var lista:pok);
var
pom,preth:pok;
min,max:real;
begin
pom:=lista;
preth:=nil;
writeln('Unesite minimalnu kubikazu: ');
read(min);
writeln('Unesite maksimalnu kubikazu: ');
read(max);
while (pom<>nil) do begin
if (pom^.podatak.kk<min) or (pom^.podatak.kk>max) 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;

begin
napravilistu(lista);
izbacipokubikazi(lista);;
uredineopadajuce(lista);
ispisi(lista);
obrisilistu(lista);
end.


run \| edit \| history \| help	0