[pascal] probleem bij berichten

[Tusk]

ik ben dus beetje bezig met pascal
beetje van die gesprekjes maken maar nou wilde ik dit

code:

Uses Crt;
var
   answer : String;
begin
   // andere shit enzo stond er nog tussen
   // met paar strings erbij hierboven
   Writeln('rook je');
   Readln(answer);
   if answer=('no') then Writeln('jawel');
   
end.

alleen hele gesprek doet ie...alleen als ik een antwoord typ bij rook je? sluit ie af....

edit: damn vergeet ik de helft van de titel

[D2k]

wat moet je titel worden?

[Tusk]

uhmmm, good question
doe maar: klein probleem bij klein progje
als je iets beters weet doe dat maar

[Verwijderd]

kan het niet zijn dat je de rest niet ziet omdat je programma beeindigd is?

[$n@p$hot]

Het moet dit worden:

code:

Uses Crt;
var
   answer : String;
begin
   // andere shit enzo stond er nog tussen
   // met paar strings erbij hierboven
   Writeln('rook je');
   Readln(answer);
   if answer=('no') then Writeln('jawel');
   readln
end.

Die readln zorgt ervoor dat het programma pas wordt afgesloten als er op enter wordt gedrukt.

[ludo]

Op maandag 18 februari 2002 21:35 schreef $n@p$hot het volgende:
Het moet dit worden:

code:

Uses Crt;
var
   answer : String;
begin
   // andere shit enzo stond er nog tussen
   // met paar strings erbij hierboven
   Writeln('rook je');
   Readln(answer);
   if answer=('no') then Writeln('jawel');
   readln;
end.

Die readln zorgt ervoor dat het programma pas wordt afgesloten als er op enter wordt gedrukt.

Vergeet de ';' achter readln niet

[Tusk]

hej kewl
ik d8 zelf ook al zoiets
maar ik zette een ; achter die readln maar dan gaf ie fout in pascal zelf
maar nu doet ie het...thx !

[$n@p$hot]

Op maandag 18 februari 2002 21:37 schreef lOdUde het volgende:

[..]

Vergeet de ';' achter readln niet

die ; hoeft niet voor een end

[ludo]

Op maandag 18 februari 2002 21:38 schreef $n@p$hot het volgende:

[..]

die ; hoeft niet voor een end

idd, je hebt gelijk

[Verwijderd]

fancier is

code:

.
.
.
var ch: char;
.
.
.
writeln('druk op escape')
repeat
  ch:=readkey;
until ch=#27;
end.

#27 is dus escape, #13 is enter en #32 spatie

[Tusk]

dit heb ik nu gemaakt
anderhalf uur geleden voor het eerst pascal gedaan...(andere prog ervaring...half uur delhpi )
http://members.tripodnet.nl/tusk/GESPREK.EXE