Program Menu Pada Pascal

Pada program pascal menu yang bisa di buat sangat sederhana dengan tujuan untuk menggabungkan 2 program menjadi satu program.

Kedua program tersebut akan digabungkan menjadi satu program dengan menambahkan menu, sehingga semua program bisa dijalankan pada satu waktu.

Untuk itu tentu saja anda harus menggunakan prosedure, sehingga memudahkan dalam menyatukan program program yang ada.

Pada prinsipnya struktur program menu pada pascal, ini bisa terlihat seperti di bawah ini :
Variabel....
....


Procedure InputMahasiswa;
Begin    {pada bagian ini untuk menginputkan data mahasiswa}
End;
Procedure InformasiMahasiswa;
Begin    {pada bagian ini untuk menampilkan data mahasiswa}
End;

Begin    {pada bagian ini di program utama dan untuk menu}

End.






Lebih lengkapnya program menu pada Pascal, bisa dilihat dibawah ini :

uses crt ;
type
    mahasiswa = record
      npm   : string[8] ;
      nama  : string[30];
    end;
var
   rmhs     : mahasiswa ;
   fmhs     : file of mahasiswa ;
   i        : byte;
   mad      : char ;
   pil      : byte ;

Procedure informasimahasiswa;
begin     assign(fmhs,'D:mhs.dat') ;
     {$I-} Reset(fmhs) ;
     {$I+} if IOresult <> 0 then rewrite(fmhs) ;

  clrscr ;
     writeln ('Informasi Data Mahasiswa') ;
     writeln ('--------------------------------');
     seek(fmhs, 0) ;
     i := 1 ;
     while not eof(fmhs) do
     begin
           seek (fmhs, i-1) ;
           read (fmhs, rmhs);
           writeln (i:2, rmhs.npm:9,' ', rmhs.Nama) ;
           inc(i) ;
     end;
     writeln ('--------------------------------');
     readln;
end;

procedure inputmahasiswa;
begin     assign(fmhs,'D:mhs.dat') ;
     {$I-} Reset(fmhs) ;
     {$I+} if IOresult <> 0 then rewrite(fmhs) ;

     mad :='Y' ;
     while upcase(mad)='Y' do
     begin
          Clrscr ;
          writeln ('Input Data Mahasiswa') ;
          writeln ('--------------------------------');
          write ('NPM      : ') ; readln(rmhs.npm) ;
          write ('Nama     : ') ; readln(rmhs.nama) ;
          writeln ('--------------------------------');

          seek(fmhs, filesize(fmhs)) ;
          write(fmhs, rmhs) ;
          write ('Masih Input Lagi      : ') ; readln(mad);

     end;

end;
begin     pil := 1;
     while pil<>3 do
     begin
          clrscr ;
          writeln(' Menu Utama ');
          writeln('------------------------');
          writeln('[1] Input Mahasiswa');
          writeln('[2] Informasi Mahasiswa');
          writeln('[3] Keluar Program');
          writeln('------------------------');
          write  ('Pilihan Anda : '); readln(pil);
          case pil of
          1 : inputmahasiswa ;
          2 : informasimahasiswa;
          end;
     end;
end. 




divine-music.info