A. Penyusunan Data Sistem Penjualan Menggunakan Program Pascal
Berbelanja atau shopping merupakan kegiatan yang tentu amat digemari.
Banyak dari para pecinta shopping yang rela berburu seharian hanya
untuk mencari produk yang bekualitas, trendy dan pas dengan keinginan.
Bahkan bagi mereka yang tidak begitu bermasalah dengan budget
keuangan, perburuan bisa dilakukan sampai ke mancanegara. Pasalnya
banyak yang percaya bahwa produk asing lebih berkualitas. Namun,
tahukah anda bagaimana perhitungan pembayaran produk itu dilakukan?
Pada proses jual beli secara konvensional, banyak dari kita
menggunakan alat-alat sederhana seperti jari-jari tangan atau
kalkulator untuk menghitung berapa harga produk yang harus dibayar.
Program Penjualan Menggunakan Pascal
Tetapi ini menjadi terkendala ketika perhitungan mencapai ratusan ribu
bahkan sampai jutaan. Belum lagi adanya diskon, bonus, pajak, dan itu
dilakukan berulang-ulang.
Bisa anda bayangkan jika anda memiliki swalayan namun tidak
menggunakan suatu sistem penjualan untuk menghitung perhitungan
pembayaranproduknya. Anda akan mengalami kesulitan dalam pelayanan
para pelanggan anda tentunya.
Untuk mengatasi hal itu kita dapat menggunakan program pascal untuk
contoh penhhitungannya. Hal pertama yang harus dilakukan adalah
menyusun dapa yang akan dihitung, jumlah barang yang dibeli, harga
Selain data diatas, anda juga dapat menambahkan data lain semisal
pajak pembelian barang atau lainnya sesuai kebutuhan.
B. Penyusunan Program Penjualan Menggunakan Pascal
Sebelum program disusun atau dibuat, terlebih dahulu kita membuatsistematika algoritmanya.
Misalnya, jika seorang membeli almari degnan jumlah tertentu, dengan
diskon yang diberikan 0.25% (tidak berlaku kelipatannya), dan akan
mendapat bonus kaos jika pembelian lebih dari satu juta, mendapat
bonus radio jika pembelian lebih dari dua juta, serta tidak mendapat
diskon jika di bawah satu juta.
Maka algoritmanya adalah sebagai berikut:
1. Masukkan pilihan barang yang akan dibeli
2. Masukkan jumlah barang yang dibeli
3. Diskon yang didapat
4. Harga yang harus dibayar
5. Jika harga bayar> 1 juta then mendapat bonus kaos
6. Jika harga bayar >2 juta then mendapat bonus radio
7. Else tidak mendapat bonus.
Setelah kita menyusun algoritmanya langkah selanjutnya adalah menyusun
programnya. Kita bisa menggunakan beberapa statemen pokok seperti
If-then atau Case-of untuk mengerjakannya.. Disini penulis menggunakan
Case-of untuk memodelkan program penjualannya. Listing programnya
adalah sebagai berikut:
program pascal;Selamat mencoba ya program penjualan menggunakan pascal ini semoga bisa membantu ... :D
uses wincrt;
varjumlah_barang_yang_dibeli:integer;
harga_meja_makan,diskon,diskon2,harga_bayar,harga_meja_belajar,harga_almari:real;
pilihan:byte;
begin clrscr;writeln('T');
writeln('u');
writeln('g');
writeln('a');
writeln('s');
writeln(' ');
writeln('K');
writeln('a');
writeln('m');
writeln('i');
writeln(' ');
writeln('L');
writeln('h');
writeln('o');
writeln;
gotoxy(10,2);writeln('Pilihan Anda 1,2,3 dan 4!!',^g);
writeln;
gotoxy(12,4);writeln('1.Meja Makan');
gotoxy(12,6);writeln('2.Meja Belajar');
gotoxy(12,8);writeln('3.Almari');
gotoxy(12,10);writeln('4.Selesai');
writeln;
gotoxy(10,14);write('Masukkan Pilihan Anda=');readln(pilihan);
clrscr;
case pilihan of1:beginharga_meja_makan:=1000000;
gotoxy(15,2);writeln('Harga meja makan @=',harga_meja_makan:12:2);
gotoxy(15,4);Write('Jumlah Barang Yang
Dibeli=',#7);readln(jumlah_barang_yang_dibeli);
diskon:=0.025*harga_meja_makan;
gotoxy(15,6);writeln('Diskon=',diskon:12:2);
harga_bayar:=harga_meja_makan*jumlah_barang_yang_dibeli;
gotoxy(15,8);writeln('Harga yang harus anda bayar=',harga_bayar:12:2);
gotoxy(15,10);writeln('Selamat!!! Bonus yang anda peroleh adalah taplak meja.');
gotoxy(10,12);Writeln('~ ~ ~ O iya...Diskon Tidak Berlaku Untuk
Kelipatannya Lho? ~ ~ ~');
gotoxy(15,14);writeln('Thank you beibeh.....Besok Beli Lagi Yach!!!',#7);
end;
2:begin
harga_meja_belajar:=1500000;
gotoxy(15,2);writeln('Harga meja belajar @=',harga_meja_belajar:12:2);
gotoxy(15,4);Write('Jumlah Barang Yang
Dibeli=',#7);readln(jumlah_barang_yang_dibeli);
diskon:=0.05*harga_meja_belajar;
gotoxy(15,6);writeln('Diskon=',diskon:12:2);
harga_bayar:=harga_meja_belajar*jumlah_barang_yang_dibeli;
gotoxy(15,8);writeln('Harga yang harus anda bayar=',harga_bayar:12:2);
gotoxy(15,10);writeln('Selamat!!! Bonus yang anda peroleh buku pascal.');
gotoxy(10,12);Writeln('~ ~ ~ O iya...Diskon Tidak Berlaku Untuk
Kelipatannya Lho? ~ ~ ~');
gotoxy(15,14);writeln('arigato ghozaimashu beibeh.....Besok Beli Lagi
Yach!!!',#7);
end;
3:begin
harga_almari:=2000000;
gotoxy(15,2);writeln('Harga almari @=',harga_almari:12:2);
gotoxy(15,4);Write('Jumlah Barang Yang
Dibeli=',#7);readln(jumlah_barang_yang_dibeli);
diskon:=0.05*harga_almari;
gotoxy(15,6);writeln('Diskon=',diskon:12:2);
harga_bayar:=harga_almari*jumlah_barang_yang_dibeli;
gotoxy(15,8);writeln('Harga yang harus anda bayar=',harga_bayar:12:2);
gotoxy(15,10);writeln('Selamat!!! Bonus yang anda peroleh 1 lusin hanger.');
gotoxy(10,12);Writeln('~ ~ ~ O iya...Diskon Tidak Berlaku Untuk
Kelipatannya Lho? ~ ~ ~');
gotoxy(15,14);writeln('syukron katsiiron beibeh.....Besok Beli Lagi
Yach!!!',#7);
end;
elsebegingotoxy(10,2);writeln( 'Pilihan yang tersedia Hanya 1,2, dan 3 githu...????',#7);
gotoxy(15,4);writeln('******Angka Yang Anda Masukkan Salah******');
end; end;end.
Disini penulis menambahkan beberapa statemen seperti:
• Gotoxy untuk menata posisi x,y dati tampilan di layar,
• Tata karakter integer untuk menata nol decimal angka integer hasil
eksekusi, dan
• #7 suatu kode ASCII yang digunakan untuk membunyikan bel.
EmoticonEmoticon