Program Menu Pada Pascal

Jumat, 8 Maret 2013 | 14:07 WIB | Pengirim : Mesran | Dibaca : 2070 kali | Kategori : Prog PASCAL
Program Menu Pada Pascal

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

Pada artikel sebelumnya, yaitu :

1. File Bertipe Pada Pemrograman Pascal

2. Menampilkan Record File Bertipe di Pemrograman Pascal

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.


Jika Pil dipilih 1, maka akan memanggil procedure inputmahasiswa, jika 2 maka akan memanggil procedure informasimahasiswa.

Mudah mudahan artikel program menu pada Pascal , ini bermanfaat buat anda.





Tag : Program Menu Pada Pascal, program pascal, belajar bahasa pemrograman


Bila bermanfaat silahkan share Program Menu Pada Pascal ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Program Menu Pada Pascal

Anda berada di halaman Program Menu Pada Pascal, dan telah membaca artikel Program Menu Pada Pascal. Artikel Program Menu Pada Pascal bisa anda peroleh pada halaman http://www.mesran.net/berita-589-program-menu-pada-pascal.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Program Menu Pada Pascal sebagai sumbernya
Web Rekomendasi
Tutorial Programming Online Mesran Punya Blog

Tutorial Programming Online

Site Live Programming

Global Online Book

Bengkel Bangun

Free Download Tutorial

Global Online Book

CnC Online Shop

Mutiara Future

Share Program and Tutorial

Free Share Software and Games

 Copyright (c) 2011 - 2014 mesran.net