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

  1. Qual è l'obiettivo principale del programma descritto nel testo?
  2. 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.

  3. Quali cicli vengono utilizzati nel programma per raccogliere i dati?
  4. 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.

  5. Come viene calcolata la percentuale di occupati in agricoltura?
  6. 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.

Domande e risposte

Hai bisogno di aiuto?
Chiedi alla community