Mualilah dengan BASMALLAH dan akhiri dengan HAMDALLAH

Sabtu, 05 Mei 2012

Program Paskal Sederhana

Diposting oleh Ria Nur Handayani.S di 06.52
kali ini gw akan share ilmu  bahasa pemograman ( paskal )  yang gw dapet dari ibu fatimah (dosen paskal gw) karena gw yakin ada sebagian dari pengungjung setia blog gw ( *kamsa hamnida  = terimakasih) yang mungkin belum familier dengan bahsa pemograman dengan niat yang tuluis setidaknya orang2 awam bisa sedit mengerti tentang ilmu yang sekarang lagi gw tuntut. dsni gw share beberapa contoh program dan listing programnya untuk catatan listing ini jalan pada TPW (turbo paskal for windows) untuk paskal for DOS tinggal diedit2 sedikit..


 listing program dengan menggunakan statement IF atau CASE.
Output
Nama Pelanggan
Kode KWH
Besar KWH
Biaya Beban
Biaya Pemakaian
Angka Pemakaian Bulan Lalu
Angka Pemakaian Bulan Akhir
Jumlah Pemakaian
Total Biaya Pemakaian
PPH
Total Bayar
Ketentuan
-       Nama Pelanggan Rekening Listrik diinput manual.
-       Kode KWH diinput manual minimal 3 Kode.
-       Besar KWH, Biaya Beban dan Biaya Pemakaian berdasarkan Kode KWH, besarnya anda tentukan sendiri.
-       Angka Pemakaian Bulan Lalu dan Bulan Akhir diinput manual.
-       Jumlah Pemakaian = Angka Pemakaian Bulan Akhir – Angka Pemakaian Bulan Lalu.
-       Total Biaya Pemakaian = Biaya Pemakaian x Jumlah Pemakaian.
-       PPH berdasarkan Total Biaya Pemakaian, jika Total Biaya Pemakaian >= 300000 maka PPH = 2.3% x Total Biaya, selain itu tidak ada PPH.
-       Total Bayar = Biaya Beban + Total Biaya Pemakaian + PPH.

dan dibawah ini adalah listing programnya 

PROGRAM TIPE_A;

USES WINCRT;
VAR   NAMA,BESAR                  :  STRING[15];
            KODE                                  :  CHAR;
            ANGKABL,ANGKABA   :  WORD;
            JUMLAHP                          :  BYTE;
            BBEBAN,BPAKAI,TOTAL,PPH,TTLBYR :  REAL;

BEGIN
CLRSCR;
WRITELN ('PT. PLN (PERSERO WILAYAH KALSELTENG)');
WRITELN ('      PEMBAYARAN REKENING LISTRIK');   
WRITELN ('=====================================');
WRITELN;

WRITE ('MASUKKAN NAMA PELANGGAN           : ');READLN(NAMA);
WRITE ('MASUKKAN KODE KWH [A/B/C]             : ');READLN(KODE);
 
CASE KODE OF
'A','a' : BEGIN
          BESAR  := '450 KWH';
          BBEBAN := 15000;
          BPAKAI := 800;
          END;
'B','b' : BEGIN
          BESAR  := '900 KWH';
          BBEBAN := 35000;
          BPAKAI := 1500;
          END;
 'C','c': BEGIN
          BESAR  := '1200 KWH';
          BBEBAN := 60000;
          BPAKAI := 2500;
          END;
END;

WRITELN ('BESAR KWH                                             : ',BESAR);
WRITELN ('BIAYA BEBAN                                        : Rp  ',BBEBAN:6:0);
WRITELN ('BIAYA PEMAKAIAN                              : Rp  ',BPAKAI:6:0);

WRITE ('MASUKKAN ANGKA PEMAKAIAN BLN LALU   : ');READLN(ANGKABL);
WRITE ('MASUKKAN ANGKA PEMAKAIAN BLN AKHIR : ');READLN(ANGKABA);

JUMLAHP := ANGKABA - ANGKABL;

WRITELN ('JUMLAH PEMAKAIAN                            : ',JUMLAHP);

TOTAL := BPAKAI * JUMLAHP;

WRITELN ('TOTAL BIAYA PEMAKAIAN                : Rp ',TOTAL:6:0);

IF  TOTAL >= 300000  THEN  PPH := 2.3/100 * TOTAL   ELSE   PPH := 0;

WRITELN ('BESAR PPH                                                 : Rp ',PPH:6:0);

TTLBYR := BBEBAN + TOTAL + PPH;

WRITELN ('TOTAL PEMBAYARAN                           : Rp ',TTLBYR:6:0);
READLN;
END.               '


dan contoh program yang kedua



buat lah listing program dengan menggunakan statement IF atau CASE.
Output
Kode Operator Jaringan Telepon
Nama Operator Jaringan Telepon
Kode Wilayah Jaringan
Nama Wilayah Jaringan
Biaya Percakapan/Detik
Biaya SMS
Jumlah Pemakaian Percakapan
Jumlah Pemakaian SMS
Total Biaya Percakapan
Total Biaya SMS
Total Bayar
Ketentuan
-       Kode Operator Jaringan Telepon diinput manual minimal 3 Kode.
-       Nama Operator Jaringan Telepon berdasarkan Kode Operator.
-       Kode Wilayah Jaringan diinput manual minimal 3 Kode.
-       Nama Wilayah Jaringan berdasarkan Kode Wilayah Jaringan.
-       Biaya Percakapan/Detik dan Biaya SMS berdasarkan Kode Operator Jaringan dan Kode Wilayah, besarnya anda tentukan sendiri.
-       Jumlah Pemakaian Percakapan dan Pemakaian SMS diinput manual.
-       Total Biaya Percakapan = Biaya Percakapan/Detik x Jumlah Pemakaian Percakapan.
-       Total Biaya SMS = Biaya SMS x Jumlah Pemakaian SMS.
-       Total Bayar = Total Biaya Percakapan + Total Biaya SMS.

listing program seperti dibawah ini

PROGRAM TIPE_B;

USES WINCRT;
VAR   KODEO,KODEW            :  CHAR;
            NAMAO,NAMAW          :  STRING[15];
            JUMLAHP,JUMLAHS    :  WORD;
            BIAYAP,BIAYAS,TOTALP,TOTALS,TTLBYR :  REAL;

BEGIN
CLRSCR;
WRITELN ('DAFTAR BIAYA OPERATOR TELEPON CELLULAR');
WRITELN ('==========================================');
WRITELN;

WRITE ('MASUKKAN KODE OPERATOR TELEPON [T/I/X] : ');READLN(KODEO);

CASE KODEO OF
'T','t'    : NAMAO  := 'TELKOMSEL';
'I','i'     : NAMAO  := 'INDOSAT';
'X','x'   : NAMAO  := 'XL';
END;

WRITELN ('NAMA OPERATOR JARINGAN TELEPON         : ',NAMAO);

WRITE ('MASUKKAN KODE WILAYAH JARINGAN [S/J/K] : ');READLN(KODEW);

CASE KODEW OF
'S','s'    : NAMAW := 'SUMATERA';
'J','j'     : NAMAW := 'JAWA';
'K','k'   : NAMAW := 'KALIMANTAN';
END;

WRITELN ('NAMA WILAYAH JARINGAN TELEPON          : ',NAMAW);

IF (KODEO = 'T')  AND  (KODEW = 'S') THEN
     BEGIN
     BIAYAP := 15;
     BIAYAS := 100;
     END
ELSE  IF (KODEO = 'T')  AND  (KODEW = 'J') THEN
     BEGIN
     BIAYAP := 20;
     BIAYAS := 125;
     END
ELSE  IF (KODEO = 'T')  AND  (KODEW = 'K') THEN
     BEGIN
     BIAYAP := 25;
     BIAYAS := 150;
     END
ELSE  IF (KODEO = 'I')  AND  (KODEW = 'S') THEN
     BEGIN
     BIAYAP := 17;
     BIAYAS := 75;
     END
ELSE  IF (KODEO = 'I')  AND  (KODEW = 'J') THEN
     BEGIN
     BIAYAP := 22;
     BIAYAS := 100;
     END
ELSE  IF (KODEO = 'I')  AND  (KODEW = 'K') THEN
     BEGIN
     BIAYAP := 25;
     BIAYAS := 125;
     END
ELSE  IF (KODEO = 'X')  AND  (KODEW = 'S') THEN
     BEGIN
     BIAYAP := 20;
     BIAYAS := 125;
     END
ELSE  IF (KODEO = 'X')  AND  (KODEW = 'J') THEN
     BEGIN
     BIAYAP := 25;
     BIAYAS := 150;
     END
ELSE  IF (KODEO = 'X')  AND  (KODEW = 'K') THEN
     BEGIN
     BIAYAP := 30;
     BIAYAS := 175;
     END;

WRITELN ('BESAR BIAYA PERCAKAPAN                 : Rp ',BIAYAP:6:0);
WRITELN ('BESAR BIAYA SMS                                    : Rp ',BIAYAS:6:0);

WRITE ('MASUKKAN JUMLAH PEMAKAIAN PERCAKAPAN     : ');READLN(JUMLAHP);
WRITE ('MASUKKAN JUMLAH PEMAKAIAN SMS                        : ');READLN(JUMLAHS);

TOTALP := BIAYAP * JUMLAHP;
TOTALS := BIAYAS * JUMLAHS;

WRITELN ('TOTAL BIAYA PERCAKAPAN                    : Rp ',TOTALP:6:0);
WRITELN ('TOTAL BIAYA SMS                                       : Rp ',TOTALS:6:0);

TTLBYR := TOTALP + TOTALS;

WRITELN ('TOTAL PEMBAYARAN                                : Rp ',TTLBYR:6:0);
READLN;
END.               '

listing program dengan menggunakan statement IF atau CASE.
Output
Nama Penumpang
Jenis Penumpang
Kode Kapal
Nama Kapal
Tujuan Kapal
Jam Berangkat
Jenis Tiket
Harga Tiket
PPN
Total Bayar
Ketentuan
-       Nama Penumpang diinput manual.
-       Jenis Penumpang diinput  manual minimal 2 Jenis.
-       Kode Kapal diinput manual minimal 3 Kode.
-       Nama Kapal, Tujuan Kapal dan Jam Berangkat berdasarkan Kode Kapal.
-       Jenis Tiket diinput terdiri atas Bisnis dan Ekonomi.
-       Harga Tiket berdasarkan Jenis Penumpang, Nama Kapal dan Jenis Tiket, besarnya anda tentukan sendiri.
-       PPN diberikan jika Jenis Tiket adalah Bisnis, besar PPN = 3.6% dari Harga Tiket.
-       Total Bayar didapat dari perhitungan Harga Tiket dan PPN.



 berikut listing programnya

PROGRAM TIPE_C;

USES WINCRT;
VAR   NAMAP,TUJUAN                         :  STRING[15];
            JENISP,NAMAK,JAM,JENIST    :  STRING[10];
            KODE                                             :  CHAR;
            HARGA,PPN,TOTAL                    :  REAL;

BEGIN
CLRSCR;
WRITELN ('PT. PELINDO (PERSERO) TRISAKTI)');
WRITELN ('      DAFTAR PENUMPANG');   
WRITELN ('==============================');   
WRITELN;

WRITE ('MASUKKAN NAMA PENUMPANG                                    : ');READLN(NAMAP);
WRITE ('MASUKKAN JENIS PENUMPANG [ANAK/DEWASA]    : ');READLN(JENISP);
WRITE ('MASUKKAN KODE KAPAL [A/B/C]                                   : ');READLN(KODE);
                                           
CASE KODE OF
'A','a' : BEGIN
          NAMAK  := 'KELIMUTU';                     
          TUJUAN := 'SURABAYA';
          JAM    := '08.00';
          END;
'B','b' : BEGIN
          NAMAK  := 'SERUNI';
          TUJUAN := 'SEMARANG';
          JAM    := '10.00';
          END;
 'C','c': BEGIN
          NAMAK  := 'SERAYU';
          TUJUAN := 'SOLO';
          JAM    := '14.00';
          END;
END;

WRITELN ('NAMA KAPAL                                     : ',NAMAK);
WRITELN ('TUJUAN KAPAL                                 : ',TUJUAN);
WRITELN ('JAM BERANGKAT                              : ',JAM);

WRITE ('MASUKKAN JENIS TIKET [BISNIS/EKONOMI]  : ');READLN(JENIST);

IF (JENISP = 'ANAK')  AND  (NAMAK = 'KELIMUTU')  AND  (JENIST = 'BISNIS') THEN
            HARGA := 125000
ELSE  IF (JENISP = 'ANAK')  AND  (NAMAK = 'KELIMUTU')  AND  (JENIST = 'EKONOMI') THEN
            HARGA := 100000
ELSE  IF (JENISP = 'ANAK')  AND  (NAMAK = 'SERUNI' ) AND  (JENIST = 'BISNIS') THEN
            HARGA := 135000
ELSE  IF (JENISP = 'ANAK')  AND  (NAMAK = 'SERUNI')  AND  (JENIST = 'EKONOMI') THEN
            HARGA := 110000
ELSE  IF (JENISP = 'ANAK')  AND  (NAMAK = 'SERAYU')  AND  (JENIST = 'BISNIS') THEN
            HARGA := 145000
ELSE IF (JENISP = 'ANAK')  AND  (NAMAK = 'SERAYU') AND (JENIST = 'EKONOMI') THEN
            HARGA := 120000

ELSE  IF (JENISP = 'DEWASA') AND (NAMAK = 'KELIMUTU') AND (JENIST = 'BISNIS') THEN
            HARGA := 150000
ELSE  IF (JENISP = 'DEWASA') AND (NAMAK = 'KELIMUTU') AND (JENIST = 'EKONOMI') THEN
            HARGA := 125000
ELSE  IF (JENISP = 'DEWASA')  AND  (NAMAK = 'SERUNI')  AND  (JENIST = 'BISNIS') THEN
            HARGA := 160000
ELSE  IF (JENISP = 'DEWASA')  AND  (NAMAK = 'SERUNI')  AND  (JENIST = 'EKONOMI') THEN
            HARGA := 135000
ELSE  IF (JENISP = 'DEWASA')  AND  (NAMAK = 'SERAYU')  AND  (JENIST = 'BISNIS') THEN
            HARGA := 170000
ELSE  IF (JENISP = 'DEWASA')  AND  (NAMAK = 'SERAYU')  AND  (JENIST = 'EKONOMI') THEN
            HARGA := 145000;

WRITELN ('HARGA TIKET                                     : Rp ',HARGA:6:0);

IF  JENIST = 'BISNIS'   THEN   PPN :=  3.6/100 * HARGA   ELSE   PPN := 0;

WRITELN ('BESAR PPN                                          : Rp ',PPN:6:0);

TOTAL := HARGA + PPN;

WRITELN ('TOTAL PEMBAYARAN                     : Rp ',TOTAL:6:0);
READLN;
END.               '

listing program dengan menggunakan statement IF atau CASE.
Output
Nama Pembeli
Kode Mobil
Merk Mobil
Harga Mobil
Jenis Mobil
Bonus
Cara Beli
Harga Kredit
Uang Muka
Lama Kredit
Cicilan Bulanan
Ketentuan
-       Nama Pembeli diinput manual.
-       Kode Mobil diinput manual minimal 3 Kode.
-       Merk Mobil dan Harga Mobil berdasarkan Kode Mobil.
-       Jenis Mobil diinput manual minimal 2 Jenis.
-       Bonus Pembelian berdasarkan Merk Mobil dan Jenis Mobil.
-       Cara Beli diinput manual yaitu Cash atau Kredit.
-       Jika Cara Beli = Kredit maka :
       Harga Kredit  = Harga Mobil + (8.35% x Harga Mobil).
       Uang Muka    = (25.6% x Harga Mobil).
       Lama Kredit  = 30.
-       Cicilan Bulanan didapat dari perhitungan (Harga Kredit - Uang Muka) / Lama Kredit.
 berikut listing programnya

PROGRAM TIPE_D;

USES WINCRT;
VAR   NAMA,MERK,BONUS :  STRING[15];
            JENIS,CARA                   :  STRING[8];
            KODE                               :  CHAR;
            LAMA                               :  BYTE;
    HARGA,HARGAK,UANG,CICILAN :  REAL;

BEGIN
CLRSCR;                                            
WRITELN ('SHOWROOM PUTRA RAHMAN JAYA');
WRITELN ('    DAFTAR PENJUALAN MOBIL');   
WRITELN ('===============================');   
WRITELN;

WRITE ('MASUKKAN NAMA PEMBELI              : ');READLN(NAMA);
WRITE ('MASUKKAN KODE KAPAL [A/B/C]    : ');READLN(KODE);

CASE KODE OF
'A','a' : BEGIN
          MERK   := 'TOYOTA';                     
          HARGA  := 150000000;
          END;
'B','b' : BEGIN
          MERK   := 'MITSUBISHI';
          HARGA  := 130000000;
          END;
 'C','c': BEGIN
          MERK   := 'DAIHATSU';
          HARGA  := 120000000;
          END;
END;

WRITELN ('MERK MOBIL                                      : ',MERK);
WRITELN ('HARGA MOBIL                                   : ',HARGA:8:0);

WRITE ('MASUKKAN JENIS MOBIL [MINIBUS/PICK UP]  : ');READLN(JENIS);

IF (MERK = 'TOYOTA')  AND  (JENIS = 'MINIBUS') THEN
            BONUS := 'TV 4 INC'
ELSE  IF (MERK = 'TOYOTA')  AND  (JENIS = 'PICK UP') THEN
            BONUS := 'BANTAL JOK'
ELSE  IF (MERK = 'MITSUBISHI')  AND (JENIS = 'MINIBUS') THEN
            BONUS := 'SOUND SYSTEM'
ELSE  IF (MERK = 'MITSUBISHI')  AND  (JENIS = 'PICK UP') THEN
            BONUS := 'TAPE MOBIL'
ELSE  IF (MERK = 'DAIHATSU')  AND  (JENIS = 'MINIBUS') THEN
            BONUS := 'AC MOBIL'
ELSE  IF (MERK = 'DAIHATSU')  AND  (JENIS = 'PICK UP') THEN
            BONUS := 'ALAS JOK';

WRITELN ('BONUS PEMBELIAN                        : ',BONUS);
WRITE ('MASUKKAN CARA BELI [CASH/KREDIT]       : ');READLN(CARA);

IF CARA = 'KREDIT' THEN
       BEGIN
       HARGAK := HARGA + (8.35/100 * HARGA);
       UANG   := (25.6/100 * HARGA);
       LAMA   := 30;
       CICILAN := (HARGAK - UANG) / LAMA;
       END;

WRITELN ('HARGA KREDIT                                 : Rp ',HARGAK:8:0);
WRITELN ('UANG MUKA KREDIT                      : Rp ',UANG:8:0);
WRITELN ('LAMA KREDIT                                    :  ',LAMA,'  BULAN');
WRITELN ('CICILAN/BLN                                      : Rp ',CICILAN:8:0);
READLN;
END.
Categories

1 komentar:

Langganan: Posting Komentar (Atom)
 

Life Template by Ipietoon Blogger Template | Gift Idea