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
Complemento da VS ICC II - 1º Semestre 2017
4 ariketa
practica 7 ejercicio 3
test2
zwro
practica 9 ejercicio 12
aaaaa
Урок 6. Задача 1 (1525). Номер самого большого числа
Hailstone number
for for fib