Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - programma da correggere per favore!
Forum - Pascal - programma da correggere per favore!

Avatar
Parma98 (Normal User)
Newbie


Messaggi: 6
Iscritto: 11/01/2013

Segnala al moderatore
Postato alle 21:38
Mercoledė, 27/03/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

  1. program mediaclasse;
  2. uses crt;
  3. var nome:integer;
  4.     nomealunno:string;
  5.     vl,vo,vs,media:integer;
  6.  
  7. begin
  8. clrscr;
  9. nome:=0;
  10. writeln('Questo programma calcolera''la media di ogni alunno della classe.');
  11. clrscr;
  12. repeat
  13. writeln('Inserire il nome del PRIMO alunno partendo in ordine alfabetico:');
  14. readln(nomealunno);
  15. writeln('Inserire il voto di laboratorio:');
  16. readln(vl);
  17. writeln('inserire il voto di scritto:');
  18. readln(vs);
  19. Writeln('Inserire il voto di orale:');
  20. readln(vo);
  21. if vl<=10 and vs<=10 and vo<=10 and vl>=2 and vs>=2 and vo>=2 then
  22.  begin
  23.  media:= ((vl + vs + vo) div 3);
  24.  if media<6 then
  25.   begin
  26.   textcolor(5);
  27.   textbackground(15);
  28.   writeln(nome,' e''bocciato!');
  29.   end;
  30.  if media>=6 then
  31.   begin
  32.   writeln(nome,' e''promosso!');
  33.   end;
  34.  end;
  35. nome:=nome+1;
  36. until nome=29;
  37. end.



Grazie a tutti quelli che rispondono!

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 11:51
Giovedė, 28/03/2013
Ciao!
Il programma non funziona per un semplice errore di sintassi: nel costrutto if, le condizioni vanno racchie tra parentesi quando sono pių di una.

( Invece di
Codice sorgente - presumibilmente Delphi

  1. if vl<=10 and vs<=10 and vo<=10 and vl>=2 and vs>=2 and vo>=2 then


scrivi
Codice sorgente - presumibilmente Delphi

  1. if (vl<=10) and (vs<=10) and (vo<=10) and (vl>=2) and (vs>=2) and (vo>=2) then

)

PM Quote