Pascal - Qual è l'errore nel mio codice?

Forum - Pascal - Qual è l'errore nel mio codice?

DarkFelix (Normal User)
Newbie

Messaggi: 14
Iscritto: 18/10/2010

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

program Nome
var name:string
eta:integer;
begin
write(Scrivi il tuo nome:);
readln(nome);
if nome=vilma then
begin
write(Quanti anni hai?);
readln(età);
if età=47 then
write(Wow!);
else
write(Bugiarda!);
end;
elseif nome=osvaldo then
begin
write(Quanti anni hai?);
readln(eta);
if eta=52 then
write(Wow!);
else
write(Che bugiardo...);
end;
clrscr;
end.

Grazie a tutti

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

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

program Name;
var nome:string;
    eta:integer;
 
begin
write('Scrivi il tuo nome:');
readln(nome);
if nome='vilma' then
begin
write('Quanti anni hai?');
readln(eta);
if eta=47 then
write('Wow!')
else
write('Bugiarda!');
end;
if nome='osvaldo' then
begin
write('Quanti anni hai?');
readln(eta);
if eta=52 then
write('Wow!')
else
write('Che bugiardo...');
end;
readln;
end.

Ultima modifica effettuata da Poggi Marco il 09/11/2010 alle 22:36

DarkFelix (Normal User)
Newbie

Messaggi: 14
Iscritto: 18/10/2010

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

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

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.

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

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.