Oppure

Loading
09/11/10 19:40
DarkFelix
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?

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
aaa
09/11/10 21:35
Poggi Marco
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:
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 09/11/10 21:36
aaa
10/11/10 13:55
DarkFelix
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
aaa
10/11/10 22:03
Poggi Marco
Davvero molto strano che il programma non parta! A me funziona.

Posta il codice con le correzioni.
aaa
17/11/10 19:23
Phi
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.
aaa