Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 6 ejercicio 1
//fpc 3.0.4 program HelloWorld; {-------------------------------------------------------------------------------------------------} procedure mainProcess; var pais,estado,ciudad:string; reg_estado,reg_pais:string; rec,rec_pais,rec_estado,rec_ciudad:real; habitantes,hprov,hpais:integer; {----------------------------------------------------------------------------------} procedure estadof(); {-----------------------------------------------------------} {--------------------------CIUDAD---------------------------} procedure ciudadf(); begin readln(ciudad); //3.. CIUDAD readln(habitantes); //4..HABITANTES readln(rec); //5 .. RECAUDACION rec_estado:=rec+rec_estado; rec_ciudad:= rec / habitantes; writeln('el ingreso por habitante de la ciudad ',ciudad,' es ',rec_ciudad:9:2); hprov:= habitantes+hprov; end; {-----------------------------------------------------------} {---------------------------ESTADO---------------------------} begin readln(estado); //2 .. ESTADO reg_estado:=estado; rec_estado:=0; while reg_estado = estado do begin hprov:=0; ciudadf(); //CALL readln(estado); //6 ..ESTADO end; rec_pais:=rec_estado+rec_pais; rec_estado:= rec_estado / hprov; writeln('el ingreso por habitante del estado ',reg_estado,' es ',rec_estado:9:2); hpais:=hpais+hprov; end; {----------------------------------------------------------------------------------} {------------------------------------PAIS------------------------------------------} begin readln(pais); // 1.. PAIS while pais <> 'zzz' do begin reg_pais:=pais; rec_pais:=0; while pais = reg_pais do begin hpais:=0; estadof(); //CALL.... readln(pais); //7 .. PAIS end; rec_pais:= rec_pais / hpais; writeln('el ingreso por habitante del pais ',reg_pais,' es ',rec_pais:9:2); end; end; {-------------------------------------------------------------------------------------------------} {PROGRAMA PRINCIPAL} begin mainProcess; end.
run
|
edit
|
history
|
help
0
lecturas
test02
Cek dua pangkat
zadacha3
virtuelna ravan-preklapanje krugova
calcular_sumatoria_N
Giu
https://m.facebook.com/
Бассейн-8
sound