Hogy kell menüt csinálni?

var menu: integer;

begin

.. write('Mit akarsz? ');

.. readln(menu);

.. case menu of

.. .. 1: begin writeln('Hello World!'); end;

A többi prémium tartalom, fizess érte.

program pelda;

uses CRT;

var

menu : char;

szam1, szam2, eredmeny : longint;

begin

repeat

WriteLN('Menu program');

WriteLN;

repeat

clrscr;

gotoxy(1,5);

WriteLN('kovetkezo menupontok kozul lehet valasztani:');

WriteLN;

WriteLN('1: Hello world kiiratasa');

WriteLN('2: ket szam osszeadasa');

WriteLN('3: ket szam szorzasa');

WriteLN('Esc: kilep');

WriteLN;

Write('Valasztas : ');

menu := ReadKey;

if menu = #0 then menu := ReadKey;

until (menu = '1') or (menu = '2') or (menu = '3') or (menu = #27);

case menu of

'1':

begin

WriteLN('Hello World!');

WriteLn('Nyomj entert : ');

ReadLN;

end;

'2':

begin

WriteLN;

Write('Osszeadas, elso szamot kerem : ');

readln(szam1);

Write('Masodik szamot kerem : ');

readln(szam2);

eredmeny := szam1 + szam2;

WriteLN('eredmeny : ',eredmeny);

WriteLN('Nyomj entert : ');

ReadLn;

end;

'3':

begin

WriteLN;

Write('szorzas, elso szamot kerem : ');

readln(szam1);

Write('Masodik szamot kerem : ');

readln(szam2);

eredmeny := szam1 * szam2;

WriteLN('eredmeny : ',eredmeny);

WriteLN('Nyomj entert : ');

ReadLn;

end;

end;

until (menu = #27);

end.