Membuat Program Penjualan Sederhana Menggunakan Turbo Pascal

haii teman-teman, sedikit berbagi nihh cara membuat program penjualan sederhana menggunakan pascal.

langsung aja,, cekidottt :

.      

      Listing Program

Program Penjualan_barang;

Uses Wincrt;

var

kode_brg  : char;

nama_brg : string[20];

harga_brg,banyak,diskon : real;

total : real;

begin

writeln('    =====================================');

writeln('              AZWAR MIFTAHURROHMAN');

writeln('    =====================================');

writeln('       KODE   |       NAMA BARANG       ');

writeln('    -------------------------------------');

writeln('         A    |    KAOS OBLONG          ');

writeln('         B    |    KEMEJA               ');

writeln('         C    |    CELANA JEANS         ');

writeln('         D    |    JAKET                ');

writeln('    =====================================');

writeln('               Formulir Penjualan');

writeln;  

write('    Masukan Kode Barang : ');readln(kode_brg);

writeln('    -------------------------------------');

if (kode_brg = 'A') or (kode_brg = 'a') then

   begin

   nama_brg :='KAOS OBLONG';

   harga_brg := 50000;

   diskon :=1000;

   end

else if (kode_brg = 'B') or (kode_brg = 'b') then

   begin

   nama_brg := 'KEMEJA';

   harga_brg := 100000;

   diskon := 3000;

   end

else if (kode_brg = 'C') or (kode_brg = 'c') then

   begin

   nama_brg := 'CELANA JEANS';

   harga_brg := 150000;

   diskon := 7000;

   end

else if (kode_brg = 'D') or (kode_brg = 'd') then

   begin

   nama_brg := 'JAKET';

   harga_brg := 200000;

   diskon := 10000;

   end

else begin

   nama_brg := 'Tidak Ditemukan';

   harga_brg := 0;

   diskon := 0;

   end;

writeln('    Nama Barang : ',nama_brg);

writeln('    Harga       : Rp. ',harga_brg:0:0);

writeln('    Diskon      : Rp. ',diskon:0:0);

write('    Jumlah Beli : ');Readln(banyak);

writeln('    =====================================');

total := (harga_brg-diskon)*banyak;     

write('    Total Bayar : Rp. ',total:0:0);

end.

nih nanti akan tampil Tampilan Programnya kayak gini

Gimana??? Mudahkan?? hehehe...

tidak ada sesuatu hal pun yang sulit jika kita berusaha dengan sungguh-sungguh...

semoga Bermanfaat.. 

Terimakasiiihhh ....

Liat Profil Ku??

Azwar Miftahurrohman

Nama : Azwar Miftahurrohman

NPM  : 432007006120356

Cari Aku Di facebook atau twitter atau googleplus