Program Menu II dalam pascal

Selasa, September 13, 2011 andrytech.co.cc No comments

Untuk membuat menu II dalam program pascal bisa di gunakan dengan algoritma

If – then

Begin

...........

End

else 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

else If pilih=2 then

Begin

Writeln(‘Ini adalah menu Kedua’);

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

Write(‘Menu Kedua’);

End;

End.

Posted in: Turbo Pascal