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

 

program Gaji_Tunjangan_dan_Pajak;
uses crt;
var
 nama,jab:string[20];
 noin:string[10];
 golgaj:char;stmerid,jmlanak:integer;
 gaj,tjistri,tjanak,pjgaj,jmltgaj,tolgaj,jmlpajgaj,tolgastpaj:real;
begin
 clrscr;
  writeln('=============================================');
  writeln('PERHITUNGAN GAJI DAN TUNJANGAN DAN PAJAK GAJI');
  writeln('=============================================');
  writeln;
  writeln('Isikan Data anda sesuai ketentuan berikut ini:');
  writeln('----------------------------------------------');
  writeln;
   writeln('Golongan Gaji      :         Status Perkawinan  :');
   writeln('a. Rp.2.000.000.00           1.Kawin');
   writeln('b. Rp.2.500.000.00           2.Belum Kawin');
   writeln('c. Rp.3.000.000.00           3.Cerai');
   writeln;
   write('Masukkan No Karyawan       :');
   readln(noin);
   write('Masukkan nama Anda         :');
   readln(nama);
   write('Masukkan Jabatan           :');
   readln(jab);
   write('Masukkan Golongan gaji Anda:');
   readln(golgaj);
     case golgaj of
      'a' : begin
          gaj:=2000000;
          pjgaj:=(2/100);
          write('Status Perkawinan anda : ');
          readln(stmerid);
       case stmerid of
            1:begin
             tjistri:=(5/100)*gaj;
             write('Jumlah anak     :'); readln(jmlanak);
               if jmlanak <=3 then
               tjanak:=jmlanak*((2/100)*gaj)
               else
               tjanak:=3*((2/100)*gaj);
             end;
            2:begin
             tjistri:=0;
             tjanak:=0;
             end;
            3: begin
             tjistri:=0;
             write('Jumlah anak     :'); readln(jmlanak);
              if jmlanak <=3 then
              tjanak:=jmlanak*((2/100)*gaj)
              else
              tjanak:=3*((2/100)*gaj);
             end;
            else
            writeln;
            writeln('==========================================================');
            writeln;
       writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
            end;
          end;
       'b' : begin
          gaj:=2500000;
          pjgaj:=(2.5/100);
          write('Status Perkawinan anda : '); readln(stmerid);
          case stmerid of
            1:begin
             tjistri:=(5/100)*gaj;
             write('Jumlah anak     :'); readln(jmlanak);
               if jmlanak <=3 then
               tjanak:=jmlanak*((2/100)*gaj)
               else
               tjanak:=3*((2/100)*gaj);
             end;
            2:begin
             tjistri:=0;
             tjanak:=0;
             end;
            3: begin
             tjistri:=0;
             write('Jumlah anak     :'); readln(jmlanak);
              if jmlanak <=3 then
              tjanak:=jmlanak*((2/100)*gaj)
              else
              tjanak:=3*((2/100)*gaj);
             end;
          else
            writeln;
            writeln('==========================================================');
            writeln;
       writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
            end;
          end;
     'c' : begin
          gaj:=3000000;
          pjgaj:=(3/100);
          write('Status Perkawinan anda : '); readln(stmerid);
          case stmerid of
            1:begin
             tjistri:=(5/100)*gaj;
             write('Jumlah anak     :'); readln(jmlanak);
               if jmlanak <=3 then
               tjanak:=jmlanak*((2/100)*gaj)
               else
               tjanak:=3*((2/100)*gaj);
             end;
            2:begin
             tjistri:=0;
             tjanak:=0;
             end;
            3: begin
             tjistri:=0;
             write('Jumlah anak     :'); readln(jmlanak);
              if jmlanak <=3 then
              tjanak:=jmlanak*((2/100)*gaj)
              else
              tjanak:=3*((2/100)*gaj);
             end;
           else
            writeln;
            writeln('==========================================================');
            writeln;
       writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
            end;
          end;
     else
      writeln;
      writeln('======================================================');
      writeln;
      writeln('Maaf, Golongan Gaji tidak terdaftar !!!');
      writeln;
      end;
      jmltgaj :=tjistri+tjanak;
      tolgaj :=gaj+jmltgaj;
      jmlpajgaj:=tolgaj*pjgaj;
      tolgastpaj:=tolgaj-jmlpajgaj;
      writeln;
      writeln('Slip Gaji------------------------------------------>');
      writeln;
      writeln('Nama       :',nama);
      writeln('NoKaryawan :',noin);
      writeln('Jabatan    :',jab);
      writeln('|====================================|');
      writeln('| Rincian        | Jumlah            |');
      writeln('|===========================================|');
      writeln('|Besar gaji      |Rp.',gaj:8:0,'            |');
      writeln('|tunjangan istri |Rp.',tjistri:8:0,'        |');
      writeln('|Tunjangan Anak  |Rp.',tjanak:8:0,'         |');
      writeln('|total gaji      |Rp.',tolgaj:8:0,'         |');
      writeln('|pajak gaji      |Rp.',jmlpajgaj:8:0,'      |');
      writeln('||---------------------|--------------------|');
      writeln('Total gaji setelah pajak :| Rp.',tolgastpaj:8:0,'  |');
      writeln('|----------------|-------------------|');
      writeln('Program by, Yongky Gusta Indra');
      readln;

end.

selamat mencoba....

alfanie...