0

SYNTAX PEMBELIAN BARANG

Posted by Luluk Ratna Sari on 02.46
Saya mau bagi bagi syntax pemrograman Pascal nih :D




program pembelianbarang; 
uses wincrt; 
var 
nb,bonus:string[30]; 
kode:byte; 
jb:integer; 
total,bayar,hs,diskon:real; 
begin 
write('masukkan kode barang : ');readln(kode); 
write('masukkan jumlah pembelian : ');readln(jb); 
if kode=01 then 
begin 
writeln('nama barang : Printer'); 
hs:=500000; 
end 
else if kode=02 then 
begin 
writeln('nama barang : Monitor'); 
hs:=750000; 
end 
else if (kode=03) then 
begin 
writeln('nama barang : Speaker'); 
hs:=300000; 
end 
else if (kode=04) then 
begin 
writeln('nama barang : Mouse'); 
hs:=100000; 
end 
else if(kode=05) then 
begin 
writeln('nama barang : flashdisk'); 
hs:=120000; 
end; 
total:=jb*hs; 
begin 
if (total=1000000) then 
begin 
diskon:=2.5/100*total; 
bonus:=('cover'); 
end 
else if (total>1000000) and (total5000000 then 
begin 
diskon:=10/100*total; 
bonus:=('flashdisk'); 
end; 
bayar:=total-diskon; 
writeln('Total Belanjaan : Rp ',total:10:2); 
writeln('Diskon : Rp ',diskon:10:2); 
writeln('...........................................................-'); 
writeln('Total Pembayaran : Rp ',bayar:10:2); 
writeln('Bonus : ',bonus); 
end; 
writeln('...................TERIMAKASIH SUDAH BERBELANJA..............');




Semoga Bermanfaat untuk kawan-kawan :)

|

0 Comments

Poskan Komentar

Copyright © 2009 sukasuka All rights reserved. Theme by Laptop Geek. | Bloggerized by FalconHive.