Membuat Data Master Di Pascal Menggunakan Record dan Procedure

      Kali Ini Saya Kasih Source Code Data Master Menggunakan Record dan Procedure di Program Pascal Sebelum Saya Kasih Source Code Alangkah lebih baiknya saya bahas dulu Apa Itu Record ? dan Apa Itu Procedure ?, Okeh Langsung Saja....

Apa Itu Record ?
     Record Adalah Tipe Data Yang Terstruktur, tipe data record digunakan untuk menyimpan sejumlah data dengan nilai tipe data yang berbeda dalam satu wadah.

nah itu merupakan Definisi dari record kita lanjut ke procedure.

Apa Itu Procedure ?
      Procedure adalah suatu program terpisah dalam blok yang berfungsi sebagai sub-program,diawali kata procedure pada bagian deklarasi prosedur.Procedure Banyak digunakan untuk membuat program rumit yang dipecah menjadi suatu program yang lebih sederhana,Procedure Juga Bisa Dipanggil bila sewaktu-waktu memang dibutuhkan dan cukup ditulis sekali saja.

okeh itu dia definisi Dari Record Dan Procedure langsung saja ini dia source codenya :
 Program Master_Data_Barang;

uses crt;

type
    t_toko = record
    kd_barang : longint;
    kategori : string[30];
    nm_barang : string[20];
    st_barang : integer;
    harga : longint;
    satuan : string[10];
end;
   var
   toko:array[1..100] of t_toko;
   i,n:integer;
   pil:char;
procedure masuk;
begin
     n:=0;
     repeat;
     clrscr;
     inc(n);
     textcolor(blue);
     writeln;
     writeln('===============================================');
     writeln('        PENGISIAN DATA TOKO BUTURA INDO        ');
     writeln('===============================================');
     writeln;
     with toko[n] do
     begin
     write(' KODE BARANG             : ');readln(kd_barang);
     write(' NAMA BARANG             : ');readln(nm_barang);
     write(' KATEGORI                : ');readln(kategori);
     write(' SATUAN                  : ');readln(satuan);
     write(' HARGA                   :Rp');readln(harga);
     write(' STOCK BARANG            : ');readln(st_barang);
     end;
     writeln;
     write('SELESAi TEKAN [Y/y]: '); pil:=readkey;
     until ((pil='y')or(pil='Y'));
     end;
     procedure laporan;
 begin
     writeln;
     writeln('-----+++++++++++DAFTAR HARGA BARANG TOKO BUTURA INDO++++++++++-----');
     writeln('===================================================================');
     writeln;
     writeln('===================================================================');
     writeln('NO. | kd_barang | nm_barang | kategori | satuan | harga | st_barang');
     writeln('===================================================================');
     for i:= 1 to n do
     begin
     with toko[i] do
     begin
     writeln(' ',i:2,'|',kd_barang:11,'|',nm_barang:12,'|',kategori:10,'|', satuan:7,'|',harga:7,'|',st_barang);
     end;
     end;
     writeln('===================================================================');
     end;
     procedure pembuat;
 begin
      clrscr;
      writeln;
      writeln('   ++--==================***=============---++    ');
      writeln;
      writeln(' #################### CREATED ####################');
      writeln(' +++++++++++++++++++++   BY   ++++++++++++++++++++');
      writeln(' ============= BUDIMAN TULUS RAHARJA =============');
      writeln(' *************   432007006160100     *************');
      writeln(' ----------------  (C) 2016   --------------------');
      writeln;
      writeln('  ++--===================***==============--++    ');
      readkey;
      end;
 procedure keluar;
 begin
        clrscr;
        writeln;
        writeln(' GUNAKAN PROGRAM INI SEBAIK MUNGKIN ');
        writeln('           TERIMA KASIH             ');
        readkey;
        end;
        function menu:char;
        var xx:char;
        begin
        clrscr;
        writeln;
        writeln('  PROGRAM PENDAYTAAN BARANG TOKO  ');
        writeln('==================================');
        writeln;
        writeln(' ***********************  ');
        writeln(' | << MENU UTAMA  >> |  ');
        writeln(' ***********************  ');
        writeln(' | 1. MASUKAN DATA BARANG  |  ');
        writeln(' | 2. LAPORAN DATA BARANG  |  ');
        writeln(' | 3. PEMBUAT              |  ');
        writeln(' | 4. KELUAR               |  ');
        writeln(' ************************  ');
        writeln;
        write(' PILIH SALAH SATU [1..4]:');
        xx:=readkey;
        menu:=xx;
        end;
        begin
        repeat
        pil := menu;
        case pil of
        '1' : begin
        clrscr;
        masuk;
        readkey;
        end;
        '2' : begin
        clrscr;
        laporan;
        readkey;
        end;
        '3': pembuat;
        '4' : keluar;
        else
        begin
        clrscr;
        writeln;
        writeln(' MOHON MAAF PILIHAN ANDA TIDAK ADA ! ');
        readkey;
        end;
        end;
        until pil='4';
        end.


Maka hasil Dari Codingnya Akan Seperti ini :


Sekian Terimakasih Semoga Postingan ini Bermanfaat Untuk Kalian Semua :)

Happy Ngoding :)
Previous
Next Post »