3 replies to this topic

[Kusek]

siemka, mam taki o to koddd (kawałki)

PROCEDURE koniec;
label powrot2;
BEGIN
writeln('Czy chcesz wyjsc z programu [T/N]');
powrot2:
stop:=readkey;
IF (stop='T') OR (stop='t') THEN halt;
IF (stop='N') OR (stop='n') THEN goto powrot3
ELSE goto powrot2;
END;

i nie chce mi przejść goto powrot3 który jest położony w części głównej programu

BEGIN
powrot3:
clrscr;
writeln('Co chcesz zrobic?');

errory takie

JWtx6YdV.pas(18,1) Error: Goto statements aren't allowed between different procedures
JWtx6YdV.pas(75) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted

Edited by Kusek, 10.01.2012 20:16.

[^KoZa]

Nie można używać goto do przechodzenia z głównego programu do procedury, z procedury do głównego programu, jak i z procedury 1 do procedury 2.

[Kusek]

to jak przejść z procedure 1 do glównego kodu?

[sebul]

Może zrób to za pomocą funkcji? I wtedy w zależności co zwróci ta funkcja, to albo wrócisz się do jakiegoś miejsca w głównym kodzie, albo coś tam innego.