Menu (Pascal)

A.      List Program

Kali ini kita akan membuat program Menu pada Turbo Pascal. Caranya sangat mudah, yang pertama tuliskan atau copy paste listing program dibawah ini :

uses crt;

var

nama,npm,kelas : string ;

button,an,jl,Tn,ul,Gapok,a,t : integer;

luas : real;

const

umr = 2200000;

begin

writeln('Pilih salah satu Dari pilihan yang disediakan');

writeln('1.Untuk Menghitung Gaji Pokok');

Writeln('2.Untuk Menghitung Luas Segitiga ');

writeln('3.Untuk Input NPM,Nama,Kelas');

writeln('4.Untuk Keluar ');

readln(button);

case button of

1 : begin

    write('Masukan Jumlah anak = '); readln (an);

    write('Jumlah jam lembur   = '); readln (jl);

    Tn := an * 100000;

    ul := jl * 50000;

    Gapok := Tn + ul + umr;

    writeln('Gaji Total = ',Gapok);

    end;

2 : begin

    write('Masukan Alas  = '); readln(a);

    write('Masukan Tinggi= '); readln(t);

    luas:= 1/2*a*t;

    writeln('Luas Segitiga adalah',luas);

    end;

3 : begin

    write('Masukan NPM   ='); readln(npm);

    write('Masukan Nama  ='); readln(nama);

    write('Masukan Kelas ='); readln(kelas);

    Writeln('NPM adalah  =',npm);

    writeln('Nama adalah =',nama);

    writeln('kelas adalah=',kelas);

    end;

end;

end.

B.      Output

Compile terlebih dahulu program diatas dengan menekan alt + f9 (gambar 1.1). Jika tidak terjadi kesalahan, kemudian run program dengan menekan alt +f9, akan muncul output seperti pada gambar 1.2 :

Gambar 1.1

Gambar 1.2

Setelah program dijalankan, anda tinggal menekan nomor yang anda inginkan untuk membuka menu yang tersedia.