PROGRAM ENTERI DATA BARANG MENGGUNAKAN TURBO PASCAL

uses crt;
var
 pil:integer;
 data:real;
 procedure data_barang;
 var
  kd_brg,nm_brg,jmlh,hrg:string;
 begin
  clrscr;
  writeln('input data barang');
  writeln('-----------------');
  writeln('masukkan kode barang');
  readln(kd_brg);
  writeln('masukkan nama barang');
  readln(nm_brg);
  writeln('masukkan jumlah');
  readln(jmlh);
  writeln('masukkan harga');
  readln(hrg);
  end;
  procedure data_karyawan;
   var
    kd_kry,nm_kry,jbtn:string;
   begin
    clrscr;
    writeln('input data karyawan');
    writeln('-------------------');
    writeln('masukkan kode karyawan');
    readln(kd_kry);
    writeln('masukkan nama karyawan');
    readln(nm_kry);
    writeln('masukkan jabatan');
    readln(jbtn);
   end;
   procedure penjualan;
    var
     kd_brg,nm_brg:string;
     hrg,jmlh:integer;
     tot,D,byr:longint;
    begin
     clrscr;
     writeln('penjualan');
     writeln('---------');
     writeln('kode barang');
     readln(kd_brg);
     writeln('nama barang');
     readln(nm_brg);
     writeln('jumlah');
     readln(jmlh);
     writeln('harga');
     readln(hrg);
     tot:=jmlh*hrg;
     writeln(tot);
     D:=0*tot;
     writeln(D);
     byr:=tot-D;
     writeln(byr);
     readln;
     end;
   begin
    clrscr;
    writeln('program belanja');
    writeln('----------');
    writeln('[1] input data barang');
    writeln('[2] input data karyawan');
    writeln('[3] penjualan');
    writeln('[4] selesai');
    writeln('masukkan pilihan [1-3]');
    readln(pil);
   if pil=1 then
   data_barang
   else if pil=2 then
   data_karyawan
   else if pil=3 then
   penjualan;
   repeat until keypressed;
   end.

SELAMAT MENCOBA YAH....

Created By.Yongky Gusta Indra