registro classe

esci altro.htm

valutazione scolastica ridotta

program voti;
uses crt;
var contatore,ita,mat,ing,sto,sci,somma,totale:integer;
media:real;
allievo:string;
begin
clrscr;
write('scrivi numero allievi=');readln(totale);
clrscr;
for contatore:=1 to totale do
begin
writeln('scrivi i voti come interi 4.5.6.7.8.9 ');
write('nome allievo=');readln(allievo);
write('italiano=');readln(ita);
write('matematica=');readln(mat);
write('inglese=');readln(ing);
write('storia=');readln(sto);
write('scienze=');readln(sci);
somma:=ita+ing+mat+sto+sci;
media:=somma/5;
writeln('*******************************************');
writeln('media allievo:',allievo,'=',media:8:2);
if media>5 then writeln('promosso')
else
writeln('non promosso');
writeln('*******************************************');
writeln('premi invio per altro allievo');readln;
clrscr;
end;
writeln('premi invio per finire');readln;
clrscr;
end.