Concetti Chiave
- Il programma richiede di inserire il numero di comuni e i dati sugli occupati totali e quelli in agricoltura per ciascun comune.
- Calcola la percentuale di occupati in agricoltura rispetto al totale degli occupati.
- Sono presentati tre approcci diversi per l'iterazione: cicli FOR, REPEAT e WHILE.
- Ogni ciclo incrementa un contatore e aggiorna il totale degli occupati e degli occupati in agricoltura.
- Il risultato finale mostra il totale degli occupati e la percentuale di quelli in agricoltura.
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
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.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
