Pascal: Hogy lehet egy kiválasztott menüpontból visszalépni az alap menübe?

Ciklus a barátod.

ciklus:

.. menü kiírása

.. billentyű bekérése

.. ha billentyű = 1, akkor funkció-1

.. ha billentyű = 2, akkor funkció-2

amíg billentyű <> X

Ha pedig almenüt is szeretnél, funkció-1-en belül eljátszhatod ugyanezt.

Nyilván érdemes külön eljárásokba szervezni a programod.

program menu;

{$mode objfpc}{$H+}

uses Crt;

var ch : Char;

procedure menu_1;

begin

ClrScr;

WriteLn('1.menupont');

ReadLn;

end;

procedure menu_2;

begin

ClrScr;

WriteLn('2.menupont');

ReadLn;

end;

procedure menu_3;

begin

ClrScr;

WriteLn('3.menupont');

ReadLn;

end;

begin

repeat

ClrScr;

WriteLn('1 --> menu_1');

WriteLn('2 --> menu_2');

WriteLn('3 --> menu_3');

WriteLn('Esc --> Kilep');

ch := ReadKey;

// Benyeljük a funkció billentyűket

if ch = #0 then ch := ReadKey;

case ch of

'1': menu_1;

'2': menu_2;

'3': menu_3;

end;

until ch = #27;

end.