program belanja

malem sobat bloger ! saat ini kita coba belajar turbo pascal yuk?!
yap! tentunya kalian pasti tau, apa itu turbo pascal, jika ada yang belum tau, silakan di lihat dsni!
gak akan copas (copy paste) pengertian or lain2 cuma biar keliatan penuh, kita langsung ajah menuju sasaran ! dibawah ini ialah contoh script sederhana untuk program belanja.

program penjualan;
uses wincrt;
var i,n:integer
    kode,nama:string;
    lagi:char;
    harga,beli,subtotal,jumlah:real;
    bayar,kembali:real;
begin
lagi:='y';
while (lagi='y') or (lagi='Y') do
begin
clrscr;
write('Jumlah barang yang dibeli : '); readln(n);
for i:=1 to n do
 begin
 write('Kode barang : '); readln(kode);
 write('Nama Barang : '); readln(nama);
 write('Harga       : '); readln(harga);
 write('Beli        : '); readln(beli);
 jumlah:=harga*beli;
 writeln('Jumlah       : ',jumlah:0:2);
 subtotal:=subtotal+jumlah;
end;

writeln('Subtotal   : ',subtotal:0:2);
if subtotal>=200000 then
  diskon:=subtotal*10/100
else
if (subtotal <200000) and (subtotal>=100000) then
  diskon:=subtotal*5/100
else
  diskon:=0;

writeln('Diskon  : ',diskon:0:2);
total:=subtotal-diskon;
writeln('Total      : ',total:0:2);
writeln('Bayar      : '); readln(bayar);
kembali:=bayar-total;
writeln('Kembali    : ',kembali:0:2);

write('Transaksi di Ulang : '); readln(lagi);
end;
readln;
donewincrt;
end.