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