Pascal program leállítása (? )

Írsz egy hátultesztelő ciklust (repeat...until), amiben teszteled, hogy a bekért billentyű kódja 27-es-e. (27 az escape ascii kódja.)

Ha a kérdés arra irányult, a klasszikus értelemben vett végtelen ciklusból is "ki lehet ugrani" a break utasítással (ennek hatására a program futása a ciklus utáni utasítással folytatódik), azonban ezt illik kerülni, mert nem szép, és általában elegánsabban is megoldható.

Pl:

repeat

...

ch := ReadKey;

until ch=#27;

#3 voltam, asszem nem is jó páldát írtam, mert az mindig vár egy billenytű leütésre.

Inkább így:

uses crt;

repeat

...

until Keypressed;

Valami ilyesmivel próbálkozz:

Repeat

[...]

If keypressed then c:=readkey;

Until c=#27;

Ugyan így megírható előltesztelò cíklusra is, de azt már neked kell megírni.