Programma per la gestione dei giudizi degli studenti di scuola media

Di n studenti provenienti dalla scuola media si introducono da tastiera il

nome, la scuola di provenienza e il giudizio di licenza media. si deve

scrivere il programma che stampa il nome e la scuola degli studenti che

hanno ottenuto il giudizio "buono", effettuandone anche il conteggio. alla

fine si devono comunicare anche il numero degli studenti contati e la percentuale

di questi rispetto al totale degli studenti considerati.

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;

Procedura di inserimento

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;

Visualizzazione dei dati

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;

Conteggio degli studenti

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;

Calcolo della percentuale

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.