Concetti Chiave
- Il programma calcola il numero di alunni maggiorenni e minorenni in base all'anno di nascita inserito.
- Viene utilizzato l'anno corrente 2006 per determinare la maggiore età, fissata a 18 anni.
- Il conteggio degli alunni viene implementato utilizzando tre tipi di cicli: FOR, WHILE e REPEAT.
- Ogni ciclo incrementa un contatore per alunni maggiorenni e minorenni in base all'età calcolata.
- Il programma richiede in input il numero di alunni e i rispettivi anni di nascita per eseguire il conteggio.
Di n alunni inserire il nome e l’anno di nascita. Contare quelli maggiorenni.
Con ciclo FOR:
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
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.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
