Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
2 5 8
solar system 7 (update)
tablas
janja - naloga 2 - 9.2.2011
x-div-2-x-3+1
Trang
P170808E
444555666
For3
naloga 3 za janjo