Concetti Chiave
- Il programma calcola il numero totale degli occupati e degli occupati in agricoltura in un dato numero di comuni.
- Utilizza tre strutture di controllo (FOR, REPEAT, WHILE) per gestire l'input dei dati e i calcoli.
- Calcola la percentuale di occupati in agricoltura rispetto al totale degli occupati.
- Mostra a video i risultati finali, inclusi il totale degli occupati e la percentuale di occupati in agricoltura.
- Il codice è strutturato per essere chiaro e facilmente comprensibile, facilitando eventuali modifiche o miglioramenti.
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:
Ciclo FOR per calcolare
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
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.
Domande da interrogazione
- Qual è l'obiettivo principale del programma descritto nel testo?
- Quali cicli vengono utilizzati nel programma per raccogliere i dati?
- Come viene calcolata la percentuale di occupati in agricoltura?
L'obiettivo del programma è calcolare il numero totale degli occupati e il numero di lavoratori occupati in agricoltura nei comuni inseriti, oltre a determinare la percentuale di occupati in agricoltura rispetto al totale.
Il programma utilizza tre tipi di cicli: FOR, REPEAT e WHILE, per iterare attraverso i comuni e raccogliere i dati sugli occupati e sugli occupati in agricoltura.
La percentuale di occupati in agricoltura viene calcolata come il rapporto tra il totale degli occupati e il totale degli occupati in agricoltura, moltiplicato per 100, come indicato nel codice.