Pascal - Kata Tercadang [ Reserved Word ]

Kata Tercadang atau Reserved Word adalah Kata – kata yang tidak boleh digunakan dalam pascal. Kata-kata ini sudah ditentukan dan ada dalam program pascal, kata yang  tergolong sebagai reserved word tidak boleh dipakai untuk menamai label, tipe, variabel, konstanta bernama ataupun prosedur dan fungsi, field dari record, program dan unit.

Program pascal memiliki sebuah struktur, terdiri dari Judul program dan suatu blok program atau body / badan program. Blok dibagi menjadi dua, bagian deklarasi dan pernyataan.

Berikut struktur dasar program pascal :

Judul Program

Blok Program

     Deklarasi

     Peryataan

Begin

     Statement

     ………….

End.

Kita kembali lagi kepembahasan. Kat tercadang seperti yang telah dijelaskan diatas, berikut adalah beberapa kata tercadang atau Reserved Word dalam program Pascal

AND	CASE	DIV	END	IN	PROGRAM
FUNCTION	ASM	CONST	XOR	LABEL	USES
DO	EXPORTS	FILE	ELSE	NOT	VAR
GOTO	UNTIL	IF	FOR	REPEAT	UNIT
ARRAY	DOWNTO	BEGIN	LIBRARY	STRING	SET
OBJECT	TYPE	THEN	PROCEDURE	WHILE	OR

Kata tercadang diatas hanya sebagian, masih banyak sebenarnya, tapi mudah-mudahan ini dapat membantu sobat yah.

Membuat Program Hotel [Pascal-Part3]

Sebelumnya ditutorial part2 kita sudah membuat program hotel dengan fungsi if serta diskon 10%, pada kesempatan kali ini kita juga akan membuat program yang sama, tetapi sedikit akan kita tambahkan fitur/fungsi baru didalamnya. Kita akan coba menambahkan sebuah keterangan Dapat diskon / Tidak Dapat, kelihatanya cukup mudah, tapi perlu konsentrasi yang lebih untuk membuatnya. Seperti biasa pada awal program kita akan menulis code berikut.

PROGRAM Hotel_Citra;
USES Wincrt;
VAR
LM:Byte;
HK, JMLBayar, BayarAkhir:REAL;
Ket:string[40];

Sobat perhatikan code diatas, sudah terlihat perbedaannya.? Betul sekali, dalam code tersebut kita menempatkan variabel LM adalah Byte, sementara var HK, JmlBayar dan BayarAkhir tetap REAL. Kemudian kita juga menambahkan variabel Ket dengan tipe String [40], 40 disini maksudnya adalah pemsanan karakter untuk var Ket/ Keterangan. jika dalam pemesanan karakter kita tuliskan 10 maka kata-kata "Anda Mendapat Diskon 20%" akan tertulis "Anda Menda". Mudah-mudahan sampai disini sobat tidak bingung. Selanjutnya tuliskan code berikut tepat dibawah code sebelumnya.

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

Kemudian dibawahnya sobat tuliskan code berikut.

IF JMLBayar>=300000
THEN
begin
BayarAkhir:=JMLBayar-(JMLBayar*0.2);
Ket:= 'Anda Mendapat Diskon 20%';
end
ELSE
begin
BayarAkhir:=JMLBayar;
Ket:= 'Maaf Tidak Dapat diskon';
end;

Dalam code diatas setelah Then dan Else terdapat Begin, Mengapa demikian? karena code setelah begin adalah sebuah Proses kembali, Sobat lihat disana terdapat variabel Ket, ini gunanya untuk menampilkan apakah dapat atau tidak dapat diskon, karena diawal kita memesan variabel Ket dengan tipe string[40] maka akan tertulis sesuai dengan keterangan yang kita tulis dalam code diatas. Jika sobat menginginkan kata-kata yang cukup panjang dalam keterangannya, sobat bisa merubah pemesanan karakter [40] sesuai yang dibutuhkan.

Selanjutnya sobat tulis juga code berikut dibawah code sebelumnya.

writeln;
Writeln('Diskon? = ' ,Ket);
Writeln('Yang harus dibayar = ' ,JMLBayar:8:0);
Writeln('Harga Akhir = ' ,BayarAkhir:8:0);
Writeln('TERIMAKASIH...!');
readln;
End.

Kegunaan dari code diatas masih sama, yaitu untuk menampilkan hasil akhir dari proses perhitungan dan juga menampilkan Keterangan diskon atau tidak. Setelah semua code tertulis silahkan uji programnya apakah berjalan dengan baik, tekan Ctrl+F9 untuk menjalankan program. Selesai.

Semoga bermanfaat

Penulis: Firman A-Arrsnet

Keyword

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

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

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

Memulai Pascal di Lazarus

Lazarus sebuah aplikasi yang membantu kita menuliskan sebuah bahasa pemograman, karena kita sedang berbicara bahasa pascal, maka kita tidak akan berbicara tentang bahasa Basic apalagi Cobol.

Lazarus bisa disebut juga software multi, mengapa demikian? sobat penasaran? jika iya jawabanya adalah sobat cobalah sendri aplikasi ini. Langsung pada pembahasannya, untuk memulai penulisan bahasa pascal atau coding dengan bahasa pascal, langka awal adalah:

• Sobat buka Lazarus yang telah didownload
• Kemudian sobat ke menu File lalu pilih New.. setelah itu akan ada form yang muncul.
• Pada form tersebut sobat klik Project kemudian double klick di Simple Program 

Setelah itu maka form baru akan muncul, di form tersebut telah tertulis 

---

program Project1;

begin
end.

---

Nah pada bagian itulah sobat tuliskan coding-coding nya. Mudah bukan? sekarang sobat sudah bisa ber experimen dengan bahasa pascal tanpa perlu menggunakan Dos Box, ataupun XpMode dan bagi sobat yang kurang suka dengan latar belakang Turbo Pascal yang berwarna biru, sobat bisa gunakan Lazarus di windows 7 64bit mengingat Tpw 1.5 tidak work di 64bit.

---

Semoga membantu

Penulis: Firman A-Arrsnet