Ominide 30 punti

Pascal - Maggiorenni
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<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 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.

Registrati via email