Program Menu dalam pascal

Untuk membuat menu program bisa di gunakan ddengan algoritma

If – then

Begin

...........

End

Baiklah, berikut ini algoritmanya

Program menu;

Uses wincrt;

Var

Pilih:integer;

Begin

Writeln(‘1. Menu pertama’);

Writeln(‘menu kedua’);

Write(‘Pilih Menu (1-2 ) : ’);readln(pilih);

Clrscr;

If pilih=1 then

Begin

Writeln(‘Ini adalah menu Pertama’);

Writeln(‘---------------------------------’);

Write(‘Menu Pertama’);

End;

If pilih=2 then

Begin

Writeln(‘Ini adalah menu Kedua’);

Writeln(‘------------------------------’);

Write(‘Menu Kedua’);

End;

End.