Parma98 (Normal User)
Newbie
Messaggi: 6
Iscritto: 11/01/2013
|
ciao a tutti, volevo creare un programma, solo che non funziona e non capisco dove ho sbagliato.
questo č il codice:
Codice sorgente - presumibilmente Delphi |
program mediaclasse; uses crt; var nome:integer; nomealunno:string; vl,vo,vs,media:integer; begin clrscr; nome:=0; writeln('Questo programma calcolera''la media di ogni alunno della classe.'); clrscr; repeat writeln('Inserire il nome del PRIMO alunno partendo in ordine alfabetico:'); readln(nomealunno); writeln('Inserire il voto di laboratorio:'); readln(vl); writeln('inserire il voto di scritto:'); readln(vs); Writeln('Inserire il voto di orale:'); readln(vo); if vl<=10 and vs<=10 and vo<=10 and vl>=2 and vs>=2 and vo>=2 then begin media:= ((vl + vs + vo) div 3); if media<6 then begin textcolor(5); textbackground(15); writeln(nome,' e''bocciato!'); end; if media>=6 then begin writeln(nome,' e''promosso!'); end; end; nome:=nome+1; until nome=29; end.
|
Grazie a tutti quelli che rispondono!
|