Hallooo
loohhhaa,.. Seelamat sore para Hadiriin. :)
uda lama nih saya ngga posting tentang Program PASCAL. Nah pada
hari ini nih saya mau share Pengetahuan saya dalam pascal. Kali ini mengenai
cara menghitung Bonus atau DISCOUNT dengan cara menggunakan pascal. Download Pascal di sini
program Diskon_harga;
uses wincrt;
var
tipe:char;
nama: string[20];
jumlah, harga: real;
discount, bayar, total: real;
begin
write(' Nama Barang = ');readln(nama);
write(' Jumlah Beli = ');readln(jumlah);
write(' Harga Satuan = ');readln(harga);
total:= jumlah*harga;
writeln('---------------------------------');
writeln(' Total Beli : ',total:9:2);
if total <=10000 then discount:=1*total;
if total >=10000 then discount:=5/100*total;
if (total >=50000) then discount:=10/100*total;
if total >=100000 then discount:=20/100*total;
writeln(' diskon : ',discount:9:2); bayar:= total-discount;
writeln('---------------------------------');
writeln(' Total Bayar : ', bayar:9:2);
uses wincrt;
var
tipe:char;
nama: string[20];
jumlah, harga: real;
discount, bayar, total: real;
begin
write(' Nama Barang = ');readln(nama);
write(' Jumlah Beli = ');readln(jumlah);
write(' Harga Satuan = ');readln(harga);
total:= jumlah*harga;
writeln('---------------------------------');
writeln(' Total Beli : ',total:9:2);
if total <=10000 then discount:=1*total;
if total >=10000 then discount:=5/100*total;
if (total >=50000) then discount:=10/100*total;
if total >=100000 then discount:=20/100*total;
writeln(' diskon : ',discount:9:2); bayar:= total-discount;
writeln('---------------------------------');
writeln(' Total Bayar : ', bayar:9:2);
Kira2 like this :
Setelah di RUN , seperti ini jadinya:
SELESAI
input Nama Barang dapat di input sesuai keinginan .. :)
Cukup sampai di sini dulu aja, besok lagi ketemu nya dengan
postingan2 yang lebih Enjoy , Amin
Selamat
mencoba, Terima kasih atas Kunjungan nya, mampir lagi yaa,.. haha33x :D
Salam success .!! Cheerrss!
0 komentar