Membuat Program Hotel [Pascal-Part1]

   Kali ini kita akan membahas seputar Bahasa Pascal, tapi sebelumnya sobat harus memiliki dulu programnya, silahkan sobat cari terlebihdahulu. Hari ini kita akan coba membuat program sederhana yaitu program perhitungan untuk hotel, kenapa harus hotel? karena program yang kita akan buat tidak terlalu sulit jadi kita cari mudahnya, untuk membuat sebuah program tentu kita harus menuliskan codenya, tentusaja kita akan menulis kode tersebut. Sobat simak kode dibawah ini.

PROGRAM Hotel_Arrs;
USES Wincrt;
VAR
LM, HK, JMLBayar:REAL;

    Kode diatas adalah kode awal, sobat tuliskan seperti kode diatas. Sobat dapat merubah Hotel_Arrs dengan judul program yang sobat buat sendiri. 

uses wincrt; bisa juga menggunakan uses crt; jika sobat menjalankan progran pascal di windows xp. Var adalah Variabel yang akan kita gunakan didalam program, disana tertulis LM untuk Lama Menginap, HK untuk Harga Kamar, JMLBayar untuk Jumlah Bayar dan :Real menyatakan bilangan real.

    Selanjutnya tuliskan kode berikut dibawah kode sebelumnya.

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

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

Kode diatas diawali dengan Begin, ini ditujukan untuk memulai sebuah proses.

Write('Lama Menginap =');   // Kegunaanya untuk menampilkan kata Lama Menginap =

Readln(LM);   // Untuk membaca variabel LM:Real

Write('Harga Perhari =');   // Kegunaanya untuk menampilkan kata Harga Perhari =

Readln(HK);   // Untuk membaca variabel LM:Real

JMLBayar:=LM*HK;   // Ini adalah rumus, lama menginap x harga perhari

Writeln;

Writeln('Harus diBayar =',JMLBayar:8:0);   // Kegunaanya untuk menampilkan kata Harus dibayar = . dengan variabel Jumlah Bayar. 8 spasi dari tanda = , dan 0 karakter dibelakang nominal harga (tanpa koma)

Readln;   // Tujuannya aga pengguna dapat melihat preview akhir, jika tidak ada kode ini pengguna program tidak dapat melihat harga akhir yang harus dibayar, karena program akan otomatis mengClose.

    Silahkan sobat mencobanya, tutorial berikutnya kita akan menggunakan fungsi IF dan akan kita masukan kode pemotongan harga atau Diskon dengan minimal harga sewa tertentu.

Semoga bermanfaat

Penulis: Firman A-Arrsnet

Keyword

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