Pemrograman Pascal Membuat Menu Pilihan

Membuat Program Menu Pilihan pada Pascal  

Pada kesempatan kali ini ane akan mengshare Pemrograman yaitu "Cara Membuat Menu Pilihan dengan FreePascal" dengan eksekusi:

            >>> Menu <<<

=======================

1. Baca Data 

2. Cetak Data 

3. Ubah Data

4. Hapus Data 

5. Keluar Program

=======================

Pilih Menu : (misalnya ane memilih no.1)

Anda Memilih menu Baca Data (hasil/output)

Hasil

Inputan:

Program Menu_Pilihan;

uses crt;

var

        nomor_menu:integer;

        panjang,lebar:real;

        luas,keliling,diagonal:real;

begin

        clrscr;

        writeln('Cetak Menu');

        writeln('Nama : Farhan Misbahul Hayat');

        writeln('Npm  : 202143502440');

        writeln('==============================');

        writeln('>>> Menu <<<');

        writeln('1. Baca data');

        writeln('2. Cetak data');

        writeln('3. Ubah data');

        writeln('4. Hapus data');

        writeln('5. Keluar program');

        write('Pilih menu : ');

        readln(nomor_menu);

        case (nomor_menu) of

                1: writeln('Anda memilih menu Baca Data');

                2: writeln('Anda memilih menu Cetak Data');

                3: writeln('Anda memilih menu Ubah Data');

                4: writeln('Anda memilih menu Hapus Data');

                5: writeln('Keluar Data');

        end;

        readln;

end.

Output:

Segitu aja ges