Pascal - Votazioni

program es1;
uses crt;
const max=80;
var nome:array [1..max] of string;
var scuola:array [1..max] of string;
var giudizio:array [1..max]of string;
var i,n,opz,conta:integer;
var perc:real;
PROCEDURE INSERIMENTO;
BEGIN
CLRSCR;
for i:=1 to n do
begin
writeln('nome e cognome studente:');
readln(nome);
writeln('scuola di provenienza:');
readln(scuola);
writeln('giudizio:');
readln(giudizio);
end;
END;
PROCEDURE VISUALIZZA;
BEGIN
for i:=1 to n do
begin
writeln(' ' , i , 'ø studente:');
writeln('nome e cognome: ' , nome);
writeln('scuola di provenienza:' , scuola);
writeln('giudizio ottenuto:' , giudizio);
readln;
end;
END;
PROCEDURE CONTEGGIO;
BEGIN
conta:=0;
for i:=1 to n do
begin
if (giudizio='buono') then
conta:=conta+1;
end;
writeln('gli studenti che hanno ottenuto il giudizio buono sono ' , conta);
readln;
END;
PROCEDURE PERCENTUALE;
BEGIN
perc:=(conta/n)*100;
writeln('la percentuale degli studenti che hanno ottenuto il giudizio buono sono il ' , perc:0:2 , '%');
readln;
END;
{PROGRAMMA PRINCIPALE}
BEGIN
CLRSCR;
writeln('inserisci il numero di studenti');
readln(n);
REPEAT
CLRSCR;
WRITELN('1-INSERIMENTO');
WRITELN('2-VISUALIZZA');
WRITELN('3-CONTEGGIO');
WRITELN('4-PERCENTUALE');
WRITELN('INSERISCI OPZIONE');
READLN(OPZ);
CASE OPZ OF
1:INSERIMENTO;
2:VISUALIZZA;
3:CONTEGGIO;
4:PERCENTUALE;
END;
UNTIL (OPZ>=5);
READLN;
END.