Contoh Program Toko Alat Tulis pada Pascal

Disini akan saya bagikan source code contoh program toko alat tulis pada Pascal,, berikut source codenya..

uses crt;
var brg:char; dis,totp:real; hrg,toth,jb:integer;
begin
clrscr;
writeln('1. Pulpen     3. Penggaris');
writeln('2. Tipe-X     4. Buku'); writeln;
write('Apa yang ingin anda beli [1-4] ? '); readln(brg);
case brg of
'1':hrg:=2000;
'2':hrg:=1500;
'3':hrg:=500;
'4':hrg:=3000;
else begin hrg:=0;
writeln('Anda salah input'); end; end;
writeln; writeln('===>Keterangan Barang<==='); writeln;
writeln('Harga  => Rp.',hrg); writeln;
writeln('  NB=>Jika anda membeli lebih dari 5 akan dapat diskon 10%');
writeln;
write('Masukkan Jumlah Barang => ');readln(jb); writeln;
begin
if jb>5 then
begin
toth:=hrg*jb;
dis:=toth/10; totp:=toth-dis; end;
if jb<=5 then
begin
toth:=hrg*jb;
dis:=toth*0; totp:=toth; end;
writeln('Total Harga      => Rp.',toth);
writeln('Diskon 10%       => Rp.',dis:0:0);
writeln('Total Pembayaran => Rp.',totp:0:0);
writeln; writeln('===>Terima Kasih<===');
gotoxy(48,21);writeln('created by : J1F113038'); end;
readkey; end.


untuk mendownload programnya,, silahkan download (DISINI)