Program Rental DVD dg Pascal

Posted: 12 Desember 2010 in Pemrograman Pascal
Tag:, , , ,

Met sore,,, kali ini aku akan posting tentang program lagi… yang mau ikut silahkan lihat sampai akhir. tapi sebelum mencoba program ini silahkan download Compiler Turbo Pascal 7 dulu. seletah itu ketik secara manual code di bawah ini. Kita belajar bareng yuk ,,,hehehe

 

 

Program Rental_DVD;

uses crt;

Var harga,tambah,menu,total,jumlah3,plus,i:longint;

jumlah,jumlah2,jenis,nama,najen:string;

begin

clrscr;

TextColor(Red+Blink);

Gotoxy(30,2);

writeln(‘ MENU RENTAL DVD dan CD ‘);

Gotoxy(20,4);

writeln(”);

TextColor(White);

writeln(‘ Menu DVD dan CD yang tersedia’);

writeln;

writeln(‘ 1. Harry Potter And The Deathly Hallows Part 1 ‘);

writeln(‘ 2. TRON Legacy       ‘);

writeln(‘ 3. Spiderman 4        ‘);

writeln(‘ 4. Iron Man 3          ‘);

writeln(‘ 5. Superman           ‘);

writeln(‘ 6. Keluar                  ‘);

writeln;

write(‘ Masukkan menu pilihan anda : ‘);readln(menu);

case menu of

1: begin

harga:=7000;

nama:=’Harry Potter and The Deathly Hallows Part 1’;

write(‘ Jumlah (1/2/3)                       : ‘);readln(jumlah);

write(‘ Jenis(DVD/CD)                   : ‘);readln(jenis);

end;

2: begin

harga:=7000;

nama:=’TRON Legacy’;

write(‘ Jumlah (1/2/3) : ‘);readln(jumlah);

write(‘ Jenis(DVD/CD) : ‘);readln(jenis);

end;

3: begin

harga:=6000;

nama:=’Spiderman 4 ‘;

write(‘ Jumlah (1/2/3) : ‘);readln(jumlah);

write(‘ Jenis(DVD/CD) : ‘);readln(jenis);

end;

4: begin

harga:=6000;

nama:=’Iron Man 3 ‘;

write(‘ Jumlah (1/2/3) : ‘);readln(jumlah);

write(‘ Jenis(DVD/CD) : ‘);readln(jenis);

end;

5: begin

harga:=5000;

nama:=’Superman ‘;

write(‘ Jumlah (1/2/3) : ‘);readln(jumlah);

write(‘ Jenis(DVD/CD) : ‘);readln(jenis);

end;

6: begin

end;

end;

if jumlah=’1′ then

begin

tambah:=0;

jumlah2:=’1′;

end;

if jumlah=’2′ then

begin

tambah:=4000;

jumlah2:=’2′;

end;

if jumlah=’3′ then

begin

tambah:=9000;

jumlah2:=’3′;

end;

if jenis=’dvd’ then

begin

plus:=1000;

najen:=’DVD’;

end;

if jenis=’cd’ then

begin

plus:=500;

najen:=’CD’;

end;

jumlah3:=harga+tambah;

total:=jumlah3+plus;

if menu<=5 then

begin

writeln;

writeln;

writeln(‘ =============================’);

writeln;

writeln;

writeln(‘ Pinjaman Anda ‘);

writeln;

writeln(‘       ‘,nama,’                     : ‘,’Rp. ‘,jumlah3,’,-‘);

writeln(‘      Jumlah Pinjaman        : ‘,jumlah2);

writeln(‘      Jenis                                 : ‘,najen);

writeln(‘     Total                                  : Rp. ‘,total,’,-‘);

readln;

end;

end.

 

Sedikit Penjelasan;

Program Rental_DVD; merupakan blok judul program dengan ketentuan tidak boleh di awali dengan angka, tidak boleh ada unsur blank/spasi, jika ada harus pakai tanda( _ ) sebagai tanda penhubung.

Uses CRT; di gunakan untuk memanipulasi layar

Var merupakan blog variabel program

Clrscr; digunakan untuk membersihkan layar dari program yang sebelumnya di jalankan.

Begin merupakan sintak memulai program

End. merupakan sintak mengakhiri program

Untuk donwload code klik disini

klik untuk lihat screeshot

Komentar
  1. muklis mengatakan:

    siip …nnti sy cb…
    makasih ych… 🙂

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s