Ominide 30 punti

Pascal - In classe

Per n studenti della scuola inserire il cognome, la classe, il paese di provenienza e il voto preso nell’ultima verifica di informatica. Contare gli studenti che provengono dalla classe 3AProgrammatori di Brescia e il voto medio nella verifica di informatica.

program es1;
uses crt;
var nome,paese,classe:string;
nstud,voto,conta,conta2,contavoto,conta3Aprg,i:integer;
mediavoto:real;
begin
clrscr;
conta3Aprg:=0;
conta:=0;
conta2:=0;
writeln('numero studenti');
readln(nstud);
for i:=1 to nstud do
begin
writeln('nome');
readln(nome);
writeln('classe');
readln(classe);
writeln('paese di provenienza');
readln(paese);
conta:=conta+1;
writeln('voto nell''ultima verifica di informatica');
readln(voto);
conta2:=conta2+1;
contavoto:=contavoto+voto;

if (classe='3Aprg') or (classe='3A programmatori') or (classe='3a prg') and (paese='Brescia')then
conta3Aprg:=conta3Aprg+1;
end;
mediavoto:=contavoto/nstud;
writeln('gli studenti della 3A programmatori che provengono da Brescia sono ' , conta3Aprg);
writeln('la media dei voti dell''ultima verifica di info è ' , mediavoto:0:2);
readln;
end.

Registrati via email