Concetti Chiave
- Il programma consente di contare il numero di alunni maggiorenni e minorenni in base all'anno di nascita inserito.
- Viene illustrato l'uso di tre diversi cicli: FOR, WHILE e REPEAT per implementare il conteggio.
- Il costante annocorrente è impostato nel 2006, utilizzato per calcolare l'età degli alunni.
- Ogni ciclo gestisce l'input dell'anno di nascita e aggiorna i contatori per maggiorenni e minorenni.
- Il programma conclude mostrando il totale degli alunni maggiorenni e minorenni a video.
Di n alunni inserire il nome e l’anno di nascita. Contare quelli maggiorenni.
Con ciclo FOR:
Ciclo FOR per il conteggio
program es2;
uses crt;
const annocorrente=2006;
var n,annonascita,percmaggiorenni,conta,conta1,anni,conta2,i:integer;
begin
clrscr;
writeln('inserisci il numero degli alunni da contare');
readln(n);
conta:=0;
conta1:=0;
conta2:=0;
for i:=1 to n do
begin
writeln('anno di nascita');
readln(annonascita);
conta:=conta+1;
anni:=annocorrente-annonascita;
if (anni>=18) then
conta1:=conta1+1
else
conta2:=conta2+1;
end;
writeln('gli alunni maggiorenni sono ' , conta1);
writeln('gli alunni minorenni sono ' , conta2);
readln;
end.
Con ciclo WHILE:
program es2;
uses crt;
const annocorrente=2006;
var n,annonascita,percmaggiorenni,conta,conta1,anni,conta2:integer;
begin
clrscr;
writeln('inserisci il numero degli alunni da contare');
readln(n);
conta:=0;
conta1:=0;
conta2:=0;
while (conta
begin
writeln('anno di nascita');
readln(annonascita);
conta:=conta+1;
anni:=annocorrente-annonascita;
if (anni>=18) then
conta1:=conta1+1
else
conta2:=conta2+1;
end;
writeln('gli alunni maggiorenni sono ' , conta1);
writeln('gli alunni minorenni sono ' , conta2);
readln;
end.
Con ciclo REPEAT:
program es2;
uses crt;
const annocorrente=2006;
var n,annonascita,percmaggiorenni,conta,conta1,anni,conta2:integer;
begin
clrscr;
writeln('inserisci il numero degli alunni da contare');
readln(n);
conta:=0;
conta1:=0;
conta2:=0;
repeat
writeln('anno di nascita');
readln(annonascita);
conta:=conta+1;
anni:=annocorrente-annonascita;
if (anni>=18) then
conta1:=conta1+1
else
conta2:=conta2+1;
until (conta>=n);
writeln('gli alunni maggiorenni sono ' , conta1);
writeln('gli alunni minorenni sono ' , conta2);
readln;
end.
Domande da interrogazione
- Qual è lo scopo del programma descritto nel testo?
- Quali cicli vengono utilizzati nel programma per effettuare il conteggio?
- Come viene calcolata l'età degli alunni nel programma?
Il programma ha lo scopo di contare il numero di alunni maggiorenni e minorenni in base all'anno di nascita fornito dall'utente.
Il programma utilizza tre tipi di cicli: FOR, WHILE e REPEAT per contare gli alunni e determinare se sono maggiorenni o minorenni.
L'età degli alunni viene calcolata sottraendo l'anno di nascita dall'anno corrente, definito come 2006 nel programma. Se l'età è maggiore o uguale a 18, l'alunno è considerato maggiorenne.