Hogyan lehet Free Pascalban labeleket létrehozni/használni?

Általában nem szokták ajánlani a label és a goto utasítások használatát a programozás során, mert átláthatatlanná teheti a kódot, de persze vannak esetek amikor jól használható.

Íme egy bugyuta példa a label és a goto használatára:

program labelteszt;

label

ide;

var

i : byte;

begin

i:=0;

ide:

inc(i);

if i>15 then exit;

writeln(I);

goto ide;

end.

Mint láthatod, a program elején definiálom az ide cimkét, majd a program törzsében használom, és a goto utasítással hivatkozok arra a helyre ahol az ide cimkével ellátott rész kezdődik. A program egyébként annyit csinál, h 1-től 15-ig kiírja a számokat mintha csak egy ciklussal íratnád ki. Az if igaz ágán a halt utasítással állítom meg a program futását amint az i változó értéke elérte a 15-öt.

Üdv!

A FP nem támogatja a labeleket, sem a GOTO utasítást.

Ha ilyet szeretnél alkotni, akkor használd a TurboPascal-t.