Skip to content

Contoh Program kasir sederhana menggunakan pascal 7.1

May 31, 2011

Pada post kali nie gue mw ngasi listing contoh sederhan menggunakan pascal bro . .  nie listing progam kasir sederhana gue bw pake statment if else aja koq. kalo mw liat nie silahkan liat listingnya

program kasir;
uses crt;
{type data = record;}
var name : string;
harga,beli,bayar,cash,kembali,pot :real;

begin
clrscr;
writeln(‘masukkan data dalam satuan rupiah’);
writeln(‘_____________________________________’);
write(‘nama barang   : ‘); readln(name);
write(‘harga satuan  : ‘); readln(harga);
write(‘jumlah beli   : ‘); readln(beli);

if harga >= 60000 then

pot := 15/100*harga;

bayar:= harga*beli;

write(‘total bayar   : ‘,bayar:2:0); readln;
write(‘potongan harga: ‘,pot:2:0); readln;
write(‘uang cash     : ‘); readln(cash);

{kembali:=cash-(bayar + pot);}

write(‘uang kembalian: ‘,cash-bayar-pot:2:0); readln;
readln;
end.

nah kalo mw d edit silahkan saja bro !! nie aq kasi konsep dasarnya aja. Kalo pengen d kembangin silahkan aja

N jok lupa comment yaw . .

One Comment leave one →
  1. March 1, 2012 3:25 am

    maksih ,sangat membantu,,,,,

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: