registro di classe

esci altro.htm

program voti;
uses crt;
var k,somma,totale:integer;
media:array[1..4] of real;
allievo,h:string;
nomi:array[1..4] of string;
ita:array[1..4] of integer;
mat:array[1..4] of integer;
ing:array[1..4] of integer;
sto:array[1..4] of integer;
sci:array[1..4] of integer;




procedure dati;
begin
nomi[1]:='bassi mario......';
nomi[2]:='grasso luigi.....';
nomi[3]:='rossini paolo....';
nomi[4]:='zanella anna.....';
end;

begin
clrscr;
dati;
h:='...';
write('scrivi numero allievi=');readln(totale);
clrscr;
for k:=1 to totale do
begin
writeln('scrivi i voti come interi 4.5.6.7.8.9 ');
writeln(nomi[k]);
write('italiano=');readln(ita[k]);
write('matematica=');readln(mat[k]);
write('inglese=');readln(ing[k]);
write('storia=');readln(sto[k]);
write('scienze=');readln(sci[k]);
somma:=ita[k]+ing[k]+mat[k]+sto[k]+sci[k];
media[k]:=somma/5;
writeln('*******************************************');
writeln('media allievo:',nomi[k],'=',media[k]:8:2);
if media[k]>5 then writeln('promosso')
else
writeln('non promosso');
writeln('*******************************************');
writeln('premi invio per altro allievo');readln;
clrscr;
end;
writeln('....................','ita',h,'mat',h,'ing',h,'sto',h,'sci');
for k:=1 to totale do
begin

write(nomi[k]);
write(ita[k]:6);
write(mat[k]:6);
write(ing[k]:6);
write(sto[k]:6);
write(sci[k]:6);
writeln('..media=',int(media[k]):8:3);

end;
writeln('premi invio per finire');readln;
clrscr;
end.