Program Data Tamu Dengan Turbo Pascal

dandriabas       Comment   

Berikut ini adalah source kode pascal Program Data Tamu

Program Ujian;
Uses Crt;
Var      kode, nama, alamat, inap, tipe                 : String;
         tarif, total, potongan                         : Real;
Begin
Clrscr;

Gotoxy(15,4); Write('Kode Kamar               : '); Readln(kode);
Gotoxy(15,5); Write('Nama Tamu                : '); Readln(nama);
Gotoxy(15,6); Write('Alamat                   : '); Readln(alamat);
Gotoxy(15,7); Write('Lama Inap                : '); Readln(inap);
Gotoxy(15,8); Write;


if kode = 'A1' Then
   Begin
   tipe        := 'EKONOMI';
   tarif       := 65000;
   End

else if kode = 'A2' Then
   Begin
   tipe        := 'SUITE';
   tarif       := 75000;
   End

else if kode = 'A3' Then
   Begin
   tipe        := 'DELUXE';
   tarif       := 105000;
   End

else if kode = 'A4' Then
   Begin
   tipe        := 'PRESIDENT';
   tarif       := 165000;
   potongan    := tarif * 0.5;
   total       := tarif - potongan;
   End;


Gotoxy(15,9);  Writeln('Kode Kamar            : ', kode);
Gotoxy(15,10); Writeln('Nama Tamu             : ', nama);
Gotoxy(15,11); Writeln('Alamat                : ', alamat);
Gotoxy(15,12); Writeln('Lama Inap             : ', inap);
Gotoxy(15,13); Writeln('Type Kamar            : ', tipe);
Gotoxy(15,14); Writeln('Biaya Kamar           : ', tarif:4:2);
Gotoxy(15,15); Writeln('Potongan              : ', potongan:4:2);
Gotoxy(15,16); Writeln('Total Bayar           : ', total:4:2);

End.
  

Dan Berikut Hasil Run Dari ProgramNya.

Selamat malam, dan salam Pemograman.