Breaking News
Loading...
Jumat, 02 Agustus 2013

Program Sewa CD dengan Array Pascal

Kali ini saya akan memposting buat kalian tentang pemrograman Pascal. Yaitu tentang program sewa CD. Program ini merupakan program yang memakai array,
untuk lebih jelasnya maka kita langsung lihat kodingnya.


PROGRAM COBA; USES CRT; VAR NO, NAMA : ARRAY[1..100] OF STRING[15]; LAMA, JUMLAH : ARRAY[1..100] OF INTEGER; HARGA, DENDA, DISK, BYR : REAL; I,JD : INTEGER; TANYA : CHAR; BEGIN I:=0; REPEAT CLRSCR; I:=I+1; WRITE('NO REKENING : ');READLN(NO[I]); WRITE('NAMA PELANGGAN : ');READLN(NAMA[I]); WRITE('JUMLAH KASET : ');READLN(JUMLAH[I]); WRITE('LAMA PINJAM : ');READLN(LAMA[I]); WRITE('MASIH ADA LAGI ? Y/T : ');READLN(TANYA); UNTIL TANYA='T'; JD:=I; I:=0; CLRSCR; WRITELN(' DAFTAR PENERIMAAN BIAYA SEWA CASSET '); WRITELN(' ROMEO VIDEO RENTAL'); WRITELN(''); WRITELN('__________________________________________________________________________'); WRITELN('| NO REK | NAMA | JML | LAMA | BIAYA | DENDA | DISKON | BAYAR |'); WRITELN('| | PELANGGAN | CASSET | SEWA | | | | |'); WRITELN('=========================================================================='); REPEAT I:=I+1; HARGA:=JUMLAH[I]*2500; DENDA:=1000; IF LAMA[I]&gt;2 THEN DENDA:=1000*(LAMA[I]-2) ELSE DENDA:=0; DISK:=10/100*(HARGA+DENDA); BYR:=(HARGA+DENDA)-DISK; WRITELN('|',NO[I]:8,'|',NAMA[I]:12,'|',JUMLAH[I]:8,'|',LAMA[I]:7,'|',HARGA:8:0,'|',DENDA:7:0,'|',DISK:8:0,'|',BYR:7:0,'|'); WRITELN('__________________________________________________________________________'); UNTIL I=JD; WRITELN('=========================================================================='); READLN; END. Cukup sekian yang dapat saya sampaikan kali ini. Semoga Bermanfaat ^_^<br />

1 komentar :

 
Toggle Footer