Membuat Program Hotel [Pascal-Part2]

Tutorial sebelumnya telah membahas bagaimana membuat program hotel dengan bahasa pascal tetapi tidak menggunakan fungsi if dan discount. Pada tutorial ini kita akan coba membuat program hotel dan mengkolaborasikannya dengan fungsi if , bila sobat belum melihat tutorial pertama, silahkan sobat lihat di Membuat Program Hotel [Pascal-Part1] ,untuk pengguaan codenya tidak banyak perubahan hanya saja kita perlu menambahkan fungsi if. Silakan simak code dibawah ini.

PROGRAM Hotel_Citra;
USES Wincrt;
VAR
LM, HK, JMLBayar, BayarAkhir:REAL;

Judul program silahkan sobat ubah dengan nama program yang sobat buat. uses wincrt; bisa juga menggunakan uses crt; jika sobat menjalankan progran pascal di windows xp. Var adalah variabel yang akan kita gunakan dalam program nantinya. Selanjutnya tulis code dibawah ini tepat dibawah code yang diatas.

Begin
Write('Lama Menginap =');
Readln(LM);
Write('Harga Perhari =');
Readln(HK);
JMLBayar:=LM*HK;

Lalu dibawah code tersebut, sobat tuliskan fungsi if berikut ini.

IF JMLBayar>=100000
THEN
BayarAkhir:=JMLBayar-(JMLBayar*0.1)
ELSE
BayarAkhir:=JMLBayar;

Writeln;
Writeln('Harus di Bayar=',JMLBayar:8:2);
Writeln('Bayar Akhir=',BayarAkhir:8:2);
Readln;
End.

Sobat perhatikan dalam code diatas terdapat if then dan else. Maksudnya adalah Jika variabel JmlBayar lebih dari atau sama dengan 100.000, kemudian BayarAkhir = JmlBayar dikuragi ( - ) JmlBayar x 0.1 (0.1 = diskon 10%). Else, jika JmlBayar kurang dari atau tidak sama dengan 100.000, BayarAkhir = JmlBayar (tidak mendapat diskon). Sampai disini mudah-mudahan sobat faham. Kemudian:

Writeln;
Writeln('Harus di Bayar=',JMLBayar:8:2);
Writeln('Bayar Akhir=',BayarAkhir:8:2);
Readln;
End.

Code tersebut fungsinya untuk menampilkan hasil akhir dari proses perhitungan, untuk penjelasannya silahkan soat buka tutorial part1. Setelah selesai menuliskan code-code tersebut, sekarang coba Run/Jalankan program yang sobat buat, tekan (Ctrl+F9) untuk menjalankan. Jika sudah sesuai dan berjalan normal silahkan simpan pekerjaan sobat.

Tutorial berikutnya kita akan membuat program hotel ini memiliki keterangan, jika harga bayar misal lebih dari = 200.000 maka akan muncul keterangan Anda mendapat diskon  20%, jika tidak, akan muncul keterangan Anda Tidak mendapat diskon.

Semoga bermanfaat

Penuls: Firman A-Arrsnet

Keyword

• Pascal Tutorials
• Tutorial Pascal
• Membuat Program Hotel
• Membuat Program di Pascal
• Membuat Program dengan Pascal