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
Użytkownik Kusek edytował ten post 10.01.2012 20:16