Program pascal supermarket sederhana

By Masprastyo

Saturday, June 29, 2013

Assalamu'alaykum.

Alhamdulillah kini gw mau ngeshare lagi nih salah satu program pascal yang gw buat.
sederhana aja sih didalam kodingnya ini ada proses percabangannya lo..
cekidot

uses crt;
const
        Pastagigi = 4000;
        shampo = 7000;
        detergen = 8000;
Var

       kode,produk:string;
       TH,JP,TH3,TH4:longint;
       TH2:real;

begin
clrscr;
       writeln('<<<<<<<<<<<SELAMAT DATANG>>>>>>>>>>>>>') ;
       writeln('');
       writeln('Daftar Kode Barang beserta Harga :') ;
       writeln('Pasta gigi Rp.4000 = P001');
       writeln('Shampo Rp.7000 = P002');
       writeln('Detergen Rp.8000 = P003');

       writeln('"""""""""""""""""""""""""""""""""""""""""');

        write('Kode barang : '); readln(kode);

        If kode='P001' then
        begin
                writeln('Produk = Pasta gigi');
                write('Jumlah produk : '); readln(JP);
                TH:=JP*Pastagigi;

        end else

        if kode='P002' then
        begin
                writeln('Produk = Shampo');
                write('Jumlah produk : '); readln(JP);
                TH:=JP*Shampo;

        end else

        if kode='P003' then
        begin
                writeln('Produk = detergen');
                write('Jumlah produk : '); readln(JP);
                TH:=JP*detergen;


           end;
             writeln('Total Harga : Rp.',TH);

       if TH>25000 then
        begin
                writeln('Anda mendapatkan diskon 10% atas pembelian anda');
                TH2:=TH-(TH*10)/100;
                writeln('Harga : Rp.',TH2:0:0);


                writeln ('<<<<<<<<<<<<<<<<<<<<<<TERIMA KASIH>>>>>>>>>>>>>>>>>>>>>');
        end else
        begin


         writeln ('<<<<<<<<<<<<<<<<<<<<<<TERIMA KASIH>>>>>>>>>>>>>>>>>>>>>');

        end;

      readln;
end.

kalo mau bisa langsung donlot file .pasnya (DISINI)
dan ini ouputnya. silahkan dicoba ya  kalau ada pertanyaan komeng aja :)

Share :

Facebook Twitter Google+