Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Qual è l'errore nel mio codice?
Forum - Pascal - Qual è l'errore nel mio codice?

Avatar
DarkFelix (Normal User)
Newbie


Messaggi: 14
Iscritto: 18/10/2010

Segnala al moderatore
Postato alle 20:40
Martedì, 09/11/2010
Poco fa ho sviluppato un piccolo programmino di prova (anche un po' idiota, se posso dirlo), ma il compilatore (bloodshed devpascal) mi da un errore, sembra sia nel secondo rigo... Mi dite qual è e se ce ne sono altri?

Codice sorgente - presumibilmente Delphi

  1. program Nome
  2. var name:string
  3. eta:integer;
  4. begin
  5. write(Scrivi il tuo nome:);
  6. readln(nome);
  7. if nome=vilma then
  8. begin
  9. write(Quanti anni hai?);
  10. readln(età);
  11. if età=47 then
  12. write(Wow!);
  13. else
  14. write(Bugiarda!);
  15. end;
  16. elseif nome=osvaldo then
  17. begin
  18. write(Quanti anni hai?);
  19. readln(eta);
  20. if eta=52 then
  21. write(Wow!);
  22. else
  23. write(Che bugiardo...);
  24. end;
  25. clrscr;
  26. end.




Grazie a tutti

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 968
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 22:35
Martedì, 09/11/2010
Ciao!

Ho letto il tuo programma, e ho notato alcuni errori:

Le stringhe vanno sempre indicati tra singoli apici ( ' ).
Non esiste in Pascal il comando elseif
Ed altre piccole imperfezioni. Posto quì il codice corretto:
Codice sorgente - presumibilmente Delphi

  1. program Name;
  2. var nome:string;
  3.     eta:integer;
  4.  
  5. begin
  6. write('Scrivi il tuo nome:');
  7. readln(nome);
  8. if nome='vilma' then
  9. begin
  10. write('Quanti anni hai?');
  11. readln(eta);
  12. if eta=47 then
  13. write('Wow!')
  14. else
  15. write('Bugiarda!');
  16. end;
  17. if nome='osvaldo' then
  18. begin
  19. write('Quanti anni hai?');
  20. readln(eta);
  21. if eta=52 then
  22. write('Wow!')
  23. else
  24. write('Che bugiardo...');
  25. end;
  26. readln;
  27. end.


Ultima modifica effettuata da Poggi Marco il 09/11/2010 alle 22:36
PM Quote
Avatar
DarkFelix (Normal User)
Newbie


Messaggi: 14
Iscritto: 18/10/2010

Segnala al moderatore
Postato alle 14:55
Mercoledì, 10/11/2010
Ok, ora non mi da errori, però non lo fa partire. Cioè, se clicco su Run dice

Runtime error 103 at 0x00401054
0x00401054
0x00401319

Help

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 968
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 23:03
Mercoledì, 10/11/2010
Davvero molto strano che il programma non parta! A me funziona.

Posta il codice con le correzioni.

PM Quote
Avatar
Phi (Member)
Expert


Messaggi: 241
Iscritto: 30/12/2009

Segnala al moderatore
Postato alle 20:23
Mercoledì, 17/11/2010
Il runtime error 103 è un errore dovuto a un errore di lettura/scrittura in un file, o, più in generale, nell'utilizzo delle procedure write/writeln/read/...
Dato che tu non hai aperto alcun file suppongo che l'errore sia dovuta a una lettura/scrittura dalla/sulla console. Quindi controlla che il compilatore sia impostato correntemente.

PM Quote