PROGRAM SEWA CD SEDERHANA DENGAN PASCAL - Hai kawan setia blog SEKOLAH KOMPUTER, saya akan sedikit membagi pengalaman saya dengan kalian semua nih. Tips saya ini berisi tentang logika if yang dipakai oleh pascal 7.1. Logika IF adalah logika yang sering muncul di setiap pemrograman entah itu VB, Pascal, C++ dan pemrograman java. Logika IF sering dipakai oleh para programmer untuk menyelesaikan beberapa bentuk logika, contohnya seperti ini.
Kita misalnya mempunyai soal seperti berikut ini :
- Kita disuruh membuat program pembayaran sewa CD di sebuah toko.
- Peminjaman maksimal 2 hari dan setelah itu dihitung terlambat dan akan dikenakan denda.
- Pembayaran diperoleh dengan rumusan denda + harga sewa
- Denda dibagi menjadi 2 lagi :
- Denda terlambat 2 hari pertama sebanyak 1500 perhari
- Denda terlambat setelah 2 hari pertama sebanyak 2000 per hari
- Harga sewa terdiri dari 3 macam :
- Tipe A dengan harga 2000 per unit sewa
- Tipe B dengan harga 3000 per unit sewa
- Dan tipe C dengan 4000 per unit sewa
- Penyewa yang tidak terlambat mengembalikan CD maka diberikan diskon sebanyak 20/100 dari total pembayan sewa CD.
Dengan soal di atas ada banyak penyelesaian dengan menggunakan program pascal di antaranya adalah sebagai berikut ini source code :
PROGRAM COBA;
USES CRT;
VAR
NAMA :STRING[20];
GOL :CHAR;
LPNJAM,DENDA2, DENDA1, DPINJAM :INTEGER;
HARGA, BYR1, BYR2, TOTAL, JUMLAH, DISKON :REAL;
BEGIN
CLRSCR;
WRITELN('=========FORM INPUT DATA==========');
WRITE('NAMA PELANGGAN : ');READLN(NAMA);
WRITE('GOLONGAN (A/B/C) : ');READLN(GOL);
WRITE('LAMA PINJAM : ');READLN(LPNJAM);
WRITELN(' ');
IF (GOL = 'A') OR (GOL = 'a') THEN
HARGA:=2000
ELSE IF (GOL ='B') OR (GOL = 'b') THEN
HARGA:=3000
ELSE IF (GOL ='C') OR (GOL='c') THEN
HARGA:=4000
ELSE
WRITELN('DATA INPUTAN SALAH, MOHON ULANGI LAGI');
IF LPNJAM>=5 THEN
BEGIN;
DPINJAM:=2;
DENDA1:=2;
BYR1:=DENDA1*1500;
DENDA2:=LPNJAM-4;
BYR2:=DENDA2*2000;
DISKON:=0;
JUMLAH:=BYR1+BYR2+HARGA;
TOTAL:=JUMLAH-DISKON;END
ELSE IF LPNJAM=4 THEN
BEGIN;
DPINJAM:=2;
DENDA1:=2;
BYR1:=DENDA1*1500;
DENDA2:=0;
BYR2:=DENDA2*2000;
DISKON:=0;
JUMLAH:=BYR1+BYR2+HARGA;
TOTAL:=JUMLAH-DISKON;END
ELSE IF LPNJAM=3 THEN
BEGIN;
DPINJAM:=2;
DENDA1:=1;
BYR1:=DENDA1*1500;
DENDA2:=0;
BYR2:=DENDA2*2000;
DISKON:=0;
JUMLAH:=BYR1+BYR2+HARGA;
TOTAL:=JUMLAH-DISKON;END
ELSE IF LPNJAM<=2 THEN
BEGIN;
DPINJAM:=LPNJAM;
DENDA1:=0;
BYR1:=DENDA1*1500;
DENDA2:=0;
BYR2:=DENDA2*2000;
JUMLAH:=BYR1+BYR2+HARGA;
DISKON:=20/100*JUMLAH;
TOTAL:=JUMLAH-DISKON;
END;
WRITELN('=========FORM HITUNG DATA==========');
WRITELN('NAMA PELANGGAN : ',NAMA);
WRITELN('GOLONGAN : ',GOL);
WRITELN('LAMA PINJAM : ',LPNJAM);
WRITELN('LEBIH HARI PERTAMA : ',DENDA1);
WRITELN('LEBIH HARI LANJUT : ',DENDA2);
WRITELN('BAYAR DENDA PERTAMA : ',BYR1:10:2);
WRITELN('BAYAR DENDA LANJUT : ',BYR2:10:2);
WRITELN('HARGA SEWA : ',HARGA:10:2);
WRITELN('JUMLAH BAYAR : ',JUMLAH:10:2);;
WRITELN('DISKON : ',DISKON:10:2);
WRITELN('JUMLAH BAYAR - DISKON : ',TOTAL:10:2);
WRITELN('===================================');
READLN;
END.
Agar lebih mudah diedit, salin kode di atas pada notepad dan simpan dengan nama CD.PAS jangan lupa untuk mengganti file tipe menjadi all files. Langkahnya adalah save as -> save as type : diganti dengan all files, name : PDAM.PAS.
Untuk menjalankan program yang baru disimpan buka pascal anda dan pada menu file -> change dir : pilih direktori dimana anda menyimpan file tadi, kemudian file ->; open pilih CD.PAS
Baru dijalankan programnya dengan di run.
Tampilan program saat dijalankan
Jika ingin memakai program aslinya download di sini
Terima kasih sudah berkunjung di SEKOLAH KOMPUTER, jangan lupa besok kembali lagi yaa...
Keyword :
Program Sewa CD Sederhana dengan Pascal, Program Sederhana dengan Pascal 7.1, Program dengan Pascal 7.1, Program Sederhana Pascal, Program Sederhana Pascal 7.1, Program Sewa CD Sederhana dengan Turbo Pascal, Program Sewa CD Sederhana dengan Pascal 7.1
0 komentar :
Posting Komentar