Membuat menu pilihan dengan Pascal

uses crt;

type

    recmhs = record

    nama : string;

    kelas : string;

    npm : string;

end;

    coba = object

    mhs : array [1..5] of recmhs;

    procedure input;

    procedure output;

end;

var

   i,j,pil : integer;

   satu : recmhs;

   dua : coba;

procedure coba.input;

begin

     clrscr;

     for i := 1 to j do

     with mhs[i] do

          begin

          write('Nama :');readln(nama);

          write('Kelas :');readln(kelas);

          write('NPM :');readln(npm);

          writeln;

     end;

readln;

end;

procedure coba.output;

begin

     clrscr;

     for i := 1 to j do

     with mhs[i] do

          begin

          writeln;

          writeln('Nama kamu  :',nama);

          writeln('Kelas kamu :',kelas);

          writeln('NPM kamu   :',npm);

     end;

readln;

end;

begin

     clrscr;

     write('Masukkan jumlah data yang akan diinput : ');

     readln(j);

     repeat;

            clrscr;

            writeln('........DATA MAHASISWA........');

            writeln('1.input data');

            writeln('2.output data');

            writeln('3.keluar dari data');

            writeln;

            writeln('Masukkan pilihan anda : ');

            readln(pil);

     case pil of

     1: dua.input;

     2: dua.output;

     end;

     until(pil=3);

     clrscr;

     writeln('Terima kasih (^_^)');

     readln;

end.

output yang dihasilkan adalah :

Tampilan awal ketika program dijalankan. User diminta untuk memasukkan banyaknya data yang akan diinput.

 

Setelah memasukkan banyak data yang diinput lalu tekan enter, maka akan tampil menu pilihan dari mahasiswa. User diminta untuk menginput nomor yang diinginkan. Misalnya nomor 1.

 Setelah user menginput nomor  1 lalu menekan ENTER,maka akan tampil program untuk menginput data yang banyaknya telah ditentukan sendiri oleh user  pada awal proses.

 

Setelah user selesai  menginput kemudian menekan tombol enter, maka akan kembali ke tampilan menu pilihan data mahasiswa dan user dapat memilih kembali nomor berapa yang akan diproses.

 JIka user memilih nonor 3 maka tampilannya seperti di bawah ini dan jika menekan enter program akan kembali ke editor window.