0
SYNTAX PEMBELIAN BARANG
Posted by Unknown
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..............');
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 :)
Posting Komentar