Ominide 30 punti

Pascal - Gestione dati

Di n comuni(inseriti da input) inserire il numero totale degli occupati e il numero dei lavoratori occupati in agricoltura. Si vuol sapere la percentuale di occupati in agricoltura rispetto al totale.

Con ciclo FOR:

program comuni;
uses crt;
var ncomuni,occupati,occupatiagricoltura,contacomuni,totoccupati,totoccupatiagric,i:integer;
percagricoltura:real;
nome:string;
begin
clrscr;
writeln('numero comuni');
readln(ncomuni);
contacomuni:=0;
totoccupati:=0;
totoccupatiagric:=0;
for i:=1 to ncomuni do
begin
writeln('occupati');
readln(occupati);
writeln('occupati in agricoltura');
readln(occupatiagricoltura);
contacomuni:=contacomuni+1;
totoccupati:=totoccupati+occupati;
totoccupatiagric:=totoccupatiagric+occupatiagricoltura;
percagricoltura:=(totoccupati/totoccupatiagric)*100;

end;
writeln('il totale degli occupati Š ' , totoccupati);
writeln('la percentuale degli occupati in agricoltura rispetto al totale Š ' , percagricoltura:0:2, '%');
readln;
end.

Con ciclo REPEAT:
program comuni;
uses crt;
var ncomuni,occupati,occupatiagricoltura,percagricoltura,contacomuni,totoccupati,totoccupatiagric:real;
nome:string;
begin
clrscr;
writeln('numero comuni');
readln(ncomuni);
contacomuni:=0;
totoccupati:=0;
totoccupatiagric:=0;
repeat
writeln('occupati');
readln(occupati);
writeln('occupati in agricoltura');
readln(occupatiagricoltura);
contacomuni:=contacomuni+1;
totoccupati:=totoccupati+occupati;
totoccupatiagric:=totoccupatiagric+occupatiagricoltura;
percagricoltura:=(totoccupati/totoccupatiagric)*100;
until (contacomuni>=ncomuni);
writeln('il totale degli occupati Š ' , totoccupati:0:2);
writeln('la percentuale degli occupati in agricoltura rispetto al totale Š ' , percagricoltura:0:2, '%');
readln;
end.


Con ciclo WHILE:
program comuni;
uses crt;
var ncomuni,occupati,occupatiagricoltura,contacomuni,totoccupati,totoccupatiagric:integer;
percagricoltura:real;
nome:string;
begin
clrscr;
writeln('numero comuni');
readln(ncomuni);
contacomuni:=0;
totoccupati:=0;
totoccupatiagric:=0;
while ( contacomuni<ncomuni) do
begin
writeln('occupati');
readln(occupati);
writeln('occupati in agricoltura');
readln(occupatiagricoltura);
contacomuni:=contacomuni+1;

totoccupati:=totoccupati+occupati;
totoccupatiagric:=totoccupatiagric+occupatiagricoltura;
percagricoltura:=(totoccupati/totoccupatiagric)*100;
end;
writeln('il totale degli occupati Š ' , totoccupati);
writeln('la percentuale degli occupati in agricoltura rispetto al totale Š ' , percagricoltura:0:2, '%');
readln;
end.

Registrati via email