Reserved Word adalah kata-kata baku yang digunakan dalam program dan sudah terintergrated dalam pascal dan juga mempunyai bentuk serta kegunaan tertentu yang telah didefinisikan oleh Pascal.
Reserved Word tidak boleh didefinisikan kembali oleh pemakai, sehingga tidak dapat digunakan sebagai pengenal (Identifier). Dalam bahasa pemrograman Pascal,
beberapa Reserved Word dalam Pascal anatra lain:
AND                     DOWNTO                   IN                    OF                        STRING
ASM                      ELSE                          INHERITED       OR                        THEN
ARRAY                  END                          INLINE             PACKED                TO
BEGIN                    EXPORTS                   INTERFACE      PROCEDURE          TYPE
CASE                     FILE                           LABEL              PROGRAM             UNIT
CONST                  FOR                           LIBRARY           RECORD               UNTIL
CONSTRUCTOR     FUNCTION                MOD                REPEAT                USES
DESTRUCTOR        GOTO                        NIL                  SET                      VAR
DIV                       IF                               NOT                 SHL                     WHILE
DO                        IMPLEMENTATION     OBJECT             SHR                     WITH

Selain dari Reserved Word di atas, Turbo Pascal masih memiliki tambahan Reserved
Word berikut:
ABSOLUTE            ASSEMBLER ()             FAR            FORWARD             INDEX
Beberapa Statemen Turbo Pascal
Statemen adalah perintah untuk pengerjaan program pascal. Statemen terletak di bagian deklarasi statemen dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan kata cadangan END. Akhir dari setiap statemen diakhiri dengan titik koma [;]. Statemen statemen dalam bahasa Pascal terdiri dari pernyataan yang berupa fungsi dan prosedur yang telah disediakan sebagai perintah standar Turbo Pascal.

1. Statemen-statemen yang digunakan untuk input/output.
# Read/Readln [prosedur].
Perintah ini digunakan untuk memasukkan [input] data lewat keyboard ke
dalam suatu variabel.
Sintaks: Read/Readln(x); (ingat, selalu diakhiri dengan titik koma [;])
Keterangan : x = variabel.
Read = pada statemen ini posisi kursor tidak
pindah ke baris selanjutnya.
Readln = pada statemen ini posisi kursor akan
pindah ke baris selanjutnya setelah di
input.

# ReadKey [fungsi].
Untuk pembacaan sebuah karakter dari keyboard. Tipe data
yang dihasilkan adalah char.
Sintaks: ReadKey;

# Write/Writeln [prosedur].
Digunakan untuk menampilkan isi dari suatu nilai variable di
layar.
Sintaks: Write/Writeln(x);
Keterangan : x = variabel.
Write/Writeln= statement ini digunakan untuk mencetak variable ke dalam monitor

Contoh :
Program input;
Uses Crt;
Var nm : String;
npm : String;
Begin
Clrscr;
Writeln (‘masukkan nama dan NPM ‘);
Writeln (‘——————————’);
Write (‘nama anda : ‘);
Readln (nm);
Writeln (‘NPM anda : ‘);
Readln (npm);
End.
Bila dijalankan hasilnya adalah:
masukkan nama dan NPM
——————————
nama anda : ( di input )
NPM anda : ( di input )

2. Statemen-statemen yang digunakan untuk pengaturan letak layar.
# ClrScr [prosedur].
Perintah ini digunakan untuk membersihkan layar.
sintaks: ClrScr; 􀃆[Clear screen]

# GotoXY[prosedur].
Untuk menempatkan posisi kursor pada layar.
Sintaks: GotoXY(X, Y: Byte);
Keterangan : X = sumbu X (posisi horisontal)
Y = sumbu Y (posisi vertikal)

# DelLine [prosedur].
Untuk menghapus sebuah baris pada posisi kursor dan menaikkan
baris-baris dibawahnya.
Sintaks: DelLine;

# InsLine [prosedur].
Untuk menyisipkan sebuah baris pada posisi kursor dan meng-
geser kebawah tampilan-tampilan baris dibawahnya.
Sintaks: InsLine;

# Delay [prosedur].
Untuk menghentikan sejenak proses program.
Sintaks: Delay (MS: Word);
Keterangan : variable MS = ukuran waktu dalam milisecond.
Contoh :
Program Layar;
Uses Crt;
Var x : Char;
Begin
ClrScr;
GotoXY(35,10);Writeln (‘I Love Dinda’);
Write (tunggu sebentar…!!’);
Delay (5000);
InsLine;
GotoXY (35,11);Writeln (‘Bayi sehatku’);
GotoXY(01,13);Writeln (‘Tekan Enter !’);
Delay(1000);
GotoXY(15,12);
DelLine;
Read(x);
End.
Hasilnya adalah :
I Love Dinda
Bayi sehatku
tunggu sebentar…!!
Tekan Enter !

3. Statemen yang digunakan untuk memanipulasi string.
# ConCat[fungsi].
Untuk menggabungkan 2 atau beberapa variabel string.
Sintaks: ConCat (s1 [,s2,...,sn]: String) : String;
contoh: ConCat (‘ABC’,'DEF’) { ABCDEF }

# Copy [fungsi].
Mengambil satu atau beberapa karakter dari sebuah string.
Sintaks: Copy (S,Index,Count) : String;
Keterangan :
S = sebuah string (string).
Index = posisi awal kita akan mengambil beberapa
karakter (integer)
Count = banyaknya karakter yang akan diambil (integer).

# Delete [prosedur].
Menghapus sebagian karakter dari sebuah string.
Sintaks: Delete (S,Index,Count);
Keterangan : sama dengan statemen Copy.

# Insert [prosedur].
Menyisipkan satu atau beberapa karakter ke dalam sebuah string.
Sintaks: Insert (Source,var S,Index);
Keterangan : Source = sumber string untuk disisipi (string)
var S = string tujuan yang akan disisipi oleh
string Source (string)
Index = posisi mulai (integer).

# Length [fungsi].
Memberikan nilai panjang dari suatu string (jumlah karakter
dalam string).
Sintaks: Length (S);
Keterangan : S = string
Length(S) menghasilkan nilai integer.

# Pos [fungsi].
Mencari posisi sebuah bagian string (substring) didalam
sebuah string.
Sintaks: Pos (Substr,S); {menghasilkan nilai Byte}
Keterangan : Substr = substring yang akan dicari posisinya di
dalam sebuah string S.
Bila bernilai 0 berarti nilai string yang dicari tidak ada.

# Str [prosedur].
Merubah nilai numerik ke dalam nilai string.
Sintaks: Str (N,S);
Keterangan :
N = data tipe integer,
S = data tipe string.

# Val [prosedur].
Merubah nilai string ke dalam nilai numerik.
Sintaks: Val (S,N,P);
Keterangan :
S = nilai string,
N = nilai real,
P = posisi salah.
Nilai string harus berisi angka, plus atau minus, bila tidak
berarti kesalahan dan letak kesalahannya ditunjukkan oleh va-
riabel posisi salah. Jika benar, maka nilai variabel tsb = 0
(nol).

# UpCase [fungsi].
Memberikan huruf kapital dari argumen.
Sintaks: UpCase (S);
Keterangan :
S = variabel bertipe karakter.

Contoh :
Program Man_String;
Uses Crt;
Var s : String;
l : Integer;
h : String;
Const a=’Dinda’;
b=’Bayi ‘;
c=’Sehatku’;
Begin
ClrScr;
s:= ConCat (a,b,c);
Writeln (s);
Insert (‘ & ‘,s,6);
Writeln(s);
Delete (s,7,7);
Writeln (s);
h:=Copy (s,1,5);
Writeln (h);
l:= Length(s);
Writeln (‘Panjangnya string S : ‘,l);
Writeln (‘Posisi “Sehat” pada nilai S : ‘,POS(‘Sehat’,s));
END.
Hasilnya adalah :
DindaBayiSehatku
Dinda & Bayi Sehatku
Dinda Sehatku
Dinda
Panjangnya string S : 16
Posisi “Sehat” pada nilai S : 7

4. Statemen-statemen untuk perhitungan aritmatik.

# Abs [fungsi].
Memberikan nilai mutlak dari suatu argumen.
Sintaks: ABS(x);

# ArcTan[fungsi].
Memberikan nilai dari fungsi arctangent dari perhitungan
goniometri.
Sintaks: ArcTan (x);
dimana x dapat bertipe real atau integer dan akan menghasil-
kan nilai bertipe real.

# Cos [fungsi].
Memberikan nilai dari fungsi Cosinus.
Sintaks: Cos (x);

# Exp [fungsi].
Menghitung nilai pangkat dari bilangan e (bilangan alam),
yaitu sebesar x.
Sintaks: Exp (x);
x dapat bertipe real atau integer dan akan menghasilkan
nilai bertipe real.

# Frac [fungsi].
Untuk mendapatkan nilai pecahan dari suatu bilangan.
Sintaks: Frac (x);
Tipe dari x sama seperti yang diatas.

# Int [fungsi].
Memberikan nilai integer (bilangan bulat) dari suatu variabel
dengan membuang bilangan di belakang koma.
Sintaks: Int (X);

# Ln [fungsi].
Digunakan untuk menghitung nilai logaritma alam (natural
logarithm) dari nilai x.
Sintaks: Ln (x);

# Sin [fungsi].
Memberikan nilai dari fungsi Sinus.
Sintaks: Sin (x);

# Sqr [fungsi].
Digunakan untuk menghitung nilai pangkat kuadrat dari suatu
bilangan.
Sintaks: Sqr (x);
Tipe dari x bisa berupa real maupun integer. Dan hasilnya a-
kan sama dengan tipe dari x.

# Sqrt (fungsi).
Digunakan untuk menghitung nilai akar dari suatu bilangan.
Sintaks: Sqrt (x);
Contoh :
Program Aritmatik;
Uses Crt;
Var x : Real;
Begin
Clrscr;
Write(‘Masukkan nilai dari X = ‘);
Readln (x);
If x <0 Then x:=Abs (x);
Writeln(‘Nilai X = ‘,x:5:2);
Writeln (‘Nilai eksponentialnya = ‘,EXP(x):9:3);
Writeln (‘Nilai logaritma alamnya = ‘,LN(x):9:3);
Writeln (‘Nilai integernya = ‘,INT(x):5:2);
Writeln (‘Nilai fraksionalnya = ‘,FRAC(x):5:2);
Writeln (‘Nilai X dipangkatkan = ‘,SQRT(x):9:3);
Writeln (‘Nilai X diakarkan = ‘,SQRT(x):9:3);
Write(‘Nilai X jika dimasukkan dalam ‘);
Writeln(‘fungsi Sin,Cos,Tangen: ‘);
Writeln(‘- Sinus = ‘,Sin(x):9:3);
Writeln(‘- Cosinus = ‘,Cos(x):9:3);
Writeln(‘- Tangen = ‘,ArcTan(x):9:3);
End.
Hasilnya :
masukkan nilai dari X = -2.5
Nilai X = 2.50
Nilai eksponensialnya = 12,182
Nilai logarima alamnya = 0,196
Nilai integernya = 2.00
Nilai fraksionalnya = 0.50
Nilai X dipangkatkan = 6.250
Nilai X diakarkan = 1.581
Nilai X jika dimasukkan dalam fungsi Sin,Cos,Tangen:
- Sinus = 0.598
- Cosinus = -0.801
- Tangen = 1.190

5. Statemen-statemen untuk transfer nilai dari suatu variabel.
# Chr [fungsi].
Merubah nilai dari byte ke bentuk karakter yang sesuai dengan
kode ASCII.
Sintaks: Chr (x);
Keterangan : x bertipe byte
contoh : Writeln (Chr (61));
hasilnya : a

# Ord [fungsi].
Merubah nilai suatu variabel dari bentuk karakter ke bentuk
longint.
Sintaks: Ord (x);
Keteranagn : x bertipe char
contoh : Writeln(Ord (‘B’));
hasilnya : 42

# Round [fungsi].
Membulatkan data tipe real ke data tipe longint.
Sintaks: Round (x);
Keterangan : Jika nilai pecahan < 0,5 maka dibulatkan keba-
wah.
Jika nilai pecahan > 0,5 maka dibulatkan keatas.
contoh : Writeln(’10/3 dibulatkan = ‘,Round(10/3));
hasilnya : 10/3 dibulatkan = 3

# TRUNC [fungsi].
Membulatkan kebawah data tipe real ke data tipe longint.
Sintaks: Trunc (x);
contoh :
Writeln(’20/3 dibulatkan kebawah = ‘,Trunc (20/3));
hasilnya : 20/3 dibulatkan kebawah = 6

6. Statemen-statemen untuk memanipulasi data.
# Pred [fungsi].
Memberikan nilai sebelum nilai argumen dalam urutannya dalam
ASCII.
Sintaks: Pred (x);

# Succ [fungsi].
Memberikan nilai sesudah nilai argumen dalam urutannya dalam
ASCII.
Sintaks: Succ (x);

# Inc[fungsi].
Menambah (increments) nilai suatu variabel.
Sintaks: Inc (x,i); {i >= 1}

# Dec [fungsi].
Mengurangi (decrements) nilai suatu variabel.
Sintaks: DEC(x,i); {i >=1}
Contoh :
Progam Man_Data;
Uses Crt;
Type
hari = (hr0,hr1,hr2,hr3,hr4,hr5,hr6,hr7)
Var
urutanhr : hari;
Const
namahr : Array [hr1..hr7] of String [6]=
(‘Senin’,'Selasa’,'Rabu’,'Kamis’,
‘Jumat’,'Sabtu’,'Minggu’);
Begin
Writeln(‘Daftar Nama Hari);
urutanhr := hr0;
While Urutanhr < hr7 DO
Begin
urutanhr := Succ(urutanhr);
Write(‘hari ke ‘,Ord(Urutanhr):2,’ adalah ‘);
Writeln(namahr[urutanhr]);
End;
End.
hasilnya adalah :
Daftar Nama Hari
hari ke 1 adalah Senin
hari ke 2 adalah Selasa
hari ke 3 adalah Rabu
hari ke 4 adalah Kamis
hari ke 5 adalah Jumat
hari ke 6 adalah Sabtu
hari ke 7 adalah Minggu

7. Statemen-statemen tambahan (warna,suara dan window).
# TextColor [prosedur].
Untuk mengatur warna dari karakter-karakter di layar.
Sintaks: TextColor (color : Byte);
Catatan : untuk pilihan warna lihat pada buku Turbo Pascal yang anda miliki.
Daftar TextColor :
(2) Hijau Muda (3) Hijau pupus (4) Merah
(5) Ungu Tua (6) Kuning (7) Putih
(8) Biru Tua (9) Biru Cerah (10) Hijau Muda
(12) Merah Muda (13) Ungu Cerah (14) Kuning Muda
(15) Ungu Pupus (16) Hitam
Daftar TextColor dengan Blink :
(17) Biru Tua (18) Hijau Muda (19) Hijau Pupus
(20) Merah (21) Ungu Tua

# TextBackGround [prosedur].
Untuk mengatur warna latar belakang dari karakter-karakter di
layar.
Sintaks: TextBackGround (Color : Byte);

# Window [prosedur].
Untuk membuat suatu jendela (window) yang terletak pada
layar.
Sintaks: Window (x1,x2,y1,y2 : Byte);
x1,x2 = kordinat kiri atas dengan nilai maksimal
sesuai dengan mode layar.
y1,y2 = kordinat kanan bawah dengan nilai
maksimal sesuai dengan mode layar.

# TextMode [prosedur].
Untuk mengatur lebar layar, 80 kolom atau 40 kolom.
Sintaks: TextMode(Mode: Byte);
Default = C80

# Sound [prosedur].
Untuk mengaktifkan suara (beep) pada internal speaker.
Sintaks: Sound (Hz : word);
Untuk mengnonaktifkannya, gunakan statemen NoSound.
Contoh :
Program Layar2;
Uses Crt;
Begin
ClrScr;
Window (5,5,20,75);
TextBackGround(Red); 􀃆 anda juga bisa menggunakan angka (4)
TextColor(Yellow);
Sound (220);
GotoXY(10,7);
Writeln(‘I Love Dinda’);
GotoXY(11,7);
Writeln(‘Bayi Sehatku’);
NoSound;
End.
Sebagai Latihan dari teori-teori yang sudah anda pelajari diatas, coba anda kerjakan soal-soal dibawah ini (Good Luck….☺).
Soal Latihan
1. Soal I
Buatlah program dibawah ini dengan tampilan menggunakan perintah Window, TextColor, Blink TextColor, Textbackground, GotoXY, dan Sound untuk memperindah tampilan.
1. Mengubah derajat temperatur, dari derajat Celcius ke derajat
Fahreinheit dan Reamur (derajat Celcius diinput)
2. Menghitung Luas dan Keliling lingkaran, dengan jari-jari dike-
tahui (diinput).
3. Menghitung Luas dan Keliling segitiga sembarang yang diketahui
ke tiga sisinya.
4. Mencari nilai Sinus, Cosinus, dan Tangen dengan sudut diinput.
5. Mencari akar dan kuadrat dari suatu nilai (nilai diinput).
6. Mencari nilai bulat dan pecahan dari suatu nilai yang dimasuk-
kan melalui keyboard (diinput). Nilai pecahan tersebut dibulat-
kan sampai 3 angka dibelakang koma (,).
7. Tampilkan nama dan NPM anda di dalam window, dan terletak pada
tengah-tengah layar.
8. Tampilkan tulisan ‘I Love Dinda’ di dalam window pada pojok
kanan atas dengan ukuran window sama dengan tulisan tersebut.
2. Soal II
Buatlah program pada soal jenis I (no. 1-6) dengan tampilan menggunakan 2 window. Window yang pertama digunakan untuk nilai yang diinput. Window yang kedua untuk hasil dari program (output).
3. Soal III
1. Buatlah program untuk menggabungkan 2 buah kata yang diinput.
Setiap kata yang diinput harus berada didalam window yang dan
hasilnya berada pada window yang berbeda pula.
2. Buatlah program untuk menampilkan window secara acak dengan
warna yang berbeda.

Referensi
1. Lepkom Universitas Gunadarma.
2. Dasar-dasar Pemrograman Pascal, Teori dan Program terapan , Ir.P. Insap Santosa, M.Sc.

Dikutip dari : Cepat Mahir Bahasa Pascal Alwin sanjaya

Looping pada Pascal menggunakan beberapa keyword seperti FOR…DO, WHILE…DO dan REPEAT…UNTIL.

FOR…DO dipergunakan ketika nilai yang akan digunakan sudah diketahui dengan nilai yang ada di dalamnya selalu ditambah atau dikurangi satu ketika mengalami perulangan.

Sintaks:

FOR variable := startindex (TO/DOWNTO) endindex DO BEGIN

statement;

END;

Dari sintaks di atas, terdapat dua jenis perubahan yang dapat digunakan, yaitu TO dan DOWNTO. TO akan menghasilkan nilai incremental atau penambahan satu setiap kali terjadi perulangan. Sedangkan DOWNTO akan menghasilkan nilai decremental atau pengurangan satu setiap kali terjadi perulangan.

Contoh penggunaan FOR…DO:

for i:=1 to 10 do begin

write(i,’ ‘);

end;

for j:=10 downto 1 do begin

write(j,’ ‘);

end;

WHILE…DO dapat digunakan tanpa harus ada perubahan pada nilai kondisi. Selama kondisi masih bernilai TRUE, maka perulangan akan dilakukan terus.

Sintaks:

WHILE (condition) DO BEGIN

statement;

END;

Contoh penggunaan WHILE…DO:

i:=10;

while i>2 do begin

i:=i-2;

writeln(i);

end;

REPEAT…UNTIL berfungsi hampir sama dengan WHILE…DO. Pada REPEAT…UNTIL, looping akan berhenti justru ketika kondisi bernilai TRUE. Selain itu kondisi akan diuji pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu kali walaupun kondisi yang ada masih FALSE.

Sintaks:

REPEAT

statement;

UNTIL (condition);

Contoh penggunaan REPEAT…UNTIL:

i:=10;

repeat

i:=i-3;

writeln(i);

until i<1;

Dari penggalan program di atas, dapat dilihat bahwa REPEAT…UNTIL tidak memerlukan BEGIN dan END untuk menjalankan suatu blok statement.

TIPS: Gunakan variabel i, j, k, dan seterusnya untuk menandai indeks perulangan atau looping.

Dikutip dari : Pengantar pemrograman pascal karya William.

Umumnya selection menggunakan IF … THEN … ELSE …, akan tetapi terdapat pula CASE … OF. Penggunaan IF lebih umum digunakan bila terdapat pilihan yang tidak terlalu banyak dan eksekusi baris program yang panjang.

Blok pertama untuk IF dijalankan bila condition yang digunakan bernilai TRUE, sedangkan blok ELSE dijalankan bila nilai conditionnya adalah FALSE.

Contoh:

uses crt;
var bil1, bil2: integer;
begin
clrscr;
write(‘Masukkan bilangan 1 : ‘);
readln(bil1);
write(‘Masukkan bilangan 2 : ‘);
readln(bil2);
if bil1<bil2 then begin

writeln(‘Bilangan 1 lebih kecil’);

end

else begin

writeln(‘Bilangan 2 lebih kecil’);

end
readkey;
end.

Penggunaan IF dapat dikombinasikan sehingga suatu blok IF dapat menampung blok IF yang lainnya (nested selection). Penggunaan IF tidak selalu harus selalu bersama ELSE (simple selection). IF juga dapat digunakan lebih dari satu kondisi setelah ELSE (linear selection) atau pada IF yang sama menggunakan operator logika / logical operator (combined selection). Contohnya adalah seperti baris program di bawah:

if (condition1) then begin

if (condition2) then begin

statement1;

stetement2;

end

else if (condition3) then begin

statement3;

statement4;

end

else begin

statement5;

end;

statement6;

statement7;

if (condition4) then begin

statementx;

statementy;

end;

end

else if (conditionx AND conditiony OR conditionz) begin

statement01;

statement02;

end;

Penting: Ada baiknya setiap blok IF selalu dipisahkan dan ditandai dengan spasi kosong atau menggunakan TAB untuk menghindari kebingungan dalam pembuatan blok statement.

Dikutip dari : Pengantar pascal karya William.

Terdapat banyak jenis operator, tapi 4 jenis yang perlu dipelajari untuk saat ini adalah assignment operator, arithmatic operator, comparison operator, logical operator.

Assignment operator ditandai dengan :=, dan digunakan untuk memberi nilai ke suatu variabel.

Arithmatic operator ditandai dengan *, /, +, -, div, mod. Digunakan untuk pengolahan nilai matematika.

Comparison / Relational operator ditandai dengan =, <, >, <=, >=, <>, dan IN. Digunakan untuk perbandingan 2 nilai sehingga menghasilkan nilai true dan false.

Logical operator ditandai dengan AND, OR, XOR dan NOT. Digunakan untuk perbandingan logika antara dua pernyataan atau lebih.

Penting: penggunaan = dan := harus diperhatikan karena penggunaan operator ini terkadang salah tempat.

Input Output:

Terdapat 2 jenis input/output secara umum yaitu layar/keyboard dan file.

Input menggunakan readln() dan read(). Dalam penggunaan melalui keyboard, kedua procedure ini tidak berbeda. Akan tetapi bila input berasal dari file, kedua procedure akan berbeda dalam mengambil input. Readln() akan mengambil input dalam suatu baris, kemudian cursor akan dipindahkan ke baris selanjutnya. Pada read() akan mengambil input dalam suatu baris, kemudian cursor akan dipindahkan ke sebelah bagian yang diinput. Bila tidak ada lagi bagian yang dapat diinput, maka cursor baru dipindah ke bawah.

Output menggunakan writeln() dan write(). Penggunaannya hampir sama dengan yang read() dan readln(). Pada writeln dan write, keduanya akan berpengaruh baik di file maupun di layar.

Contoh program:

uses crt;
var a,b: integer;
begin
clrscr;
write(‘Masukkan bilangan antara 1 – 100: ‘);
readln(a);
b:= a * 2;
writeln(‘Bilangan yang dimasukkan adalah ‘, a);
writeln(‘Bilangan setelah dikali 2 adalah ‘, b);
readkey;
end.

Dikutip dari : pengantar pemrograman pascal karya William.

Integer

Integer (-2^15 sampai 2^15), word (0 sampai 2^16), shortint (-2^7 sampai 2^7), byte (0   sampai 2^7), longint (-2^23 sampai 2^23)

Float / Real

Real (6 byte), singel (4 byte), double (8 byte), extended (10 byte), comp (8 byte)

Boolean

Bernilai TRUE atau FALSE (1 atau 0)

Char

Merupakan integer yang telah dikonversikan ke kode ASCII.

Array

Merupakan deretan suatu variabel yang bertipe data sama. Pembahasan yang lebih lengkap akan terdapat di bagian tersendiri. String merupakan array dari char.

Dikutip dari : Pengantar bahasa pascal karya William.

program … ; {deklarasi nama program}

uses … ; {deklarasi penggunaan unit}

label … ; {deklarasi label}

const … ; {deklarasi konstant}

type … ; {deklarasi tipe data}

var … ; {deklarasi variabel}

procedure … ; {deklarasi procedure}

function … ; {deklarasi function}

begin

statement; {program ditulis di sini}

…

end.

Tulisan yang diapit oleh tanda kurung kurawal {} adalah comment dan tidak dianggap sebagai bagian program ketika di-compile oleh compiler. Pada baris pertama, anda dapat mendeklrasikan nama program. Umumnya untuk mengefisiensikan pengerjaan suatu program (khususnya pada lomba), baris pertama dapat diacuhkan atau dilewatkan.

Baris kedua yaitu “USES” merupakan deklarasi penggunaan unit dalam Turbo Pascal. Unit merupakan bagian dari program yang berisi kumpulan function dan procedure. Contoh fungsi yang banyak digunakan adalah CRT, dengan function yang terdapat di dalamnya yaitu clrscr dan readkey. Anda dapat menjalankan suatu program tanpa menggunakan USES, akan tetapi anda hanya dapat menggunakan function dan procedure yang sudah terkandung secara native dalam Turbo Pascal. Contohnya anda tidak dapat menggunakan clrscr atau readkey tanpa CRT, tetapi bisa menggunakan writeln dan readln tanpa CRT tersebut karena CRT merupakan unit untuk pengolahan output ke layar dan input dari keyboard.

Label digunakan bersamaan dengan keyword GOTO. GOTO sendiri jarang digunakan karena tidak efisien dan cenderung membingungkan penggunanya.

Const digunakan untuk mendeklarasikan suatu konstan. Konstan merupakan suatu keyword yang memiliki nilai tertentu. Misalnya bila anda mendeklrasikan PI sebagai 3.14, maka ketika anda menggunakan PI pada baris program, PI akan digantikan dengan 3.14.

Type digunakan untuk mendeklarasikan suatu tipe data baru dari tipe data yang sudah ada sebelumnya. Berguna ketika harus menggunakan pointer.

Var digunakan untuk mendeklarasikan suatu variabel. Variabel yang dideklarasikan harus memiliki tipe data tertentu. Penjelasan dalam penggunaan variabel akan dibahas di bagian berikutnya.

Procedure dan function merupakan sub-program. Procedure tidak mengembalikan nilai, sedangkan function mengembalikan nilai. Procedure dan function mengandung suatu penggalan program yang dapat dipanggil oleh program utama atau sub-program yang lainnya. Bila anda belum mengerti maksud dari “mengembalikan nilai” maka anda dapat membayangkan bahwa hasil dari function dapat dimasukkan ke dalam suatu variabel atau menghasilkan suatu nilai, sedangkan procedure hanya menjalankan suatu potongan program. Contoh procedure adalah writeln dan clrscr karena kedua procedure tersebut tidak mengembalikan nilai apapun. Sedangkan contoh function adalah “sqrt” yang akan mengembalikan nilai berupa akar kuadrat dari bilangan yang dimasukkan. Sebagai informasi: “procedure” adalah istilah yang digunakan pada Pascal. Pada bahasa pemrograman yang lainnya, biasa disebut “function yang tidak mengembalikan nilai” atau “void function”.

Program utama yang akan dijalankan oleh Turbo Pascal dapat ditulis diantara BEGIN sampai dengan END.

Dikutip dari : Pengantar bahasa pascal karya William.

Beberapa bahasa pemrograman tingkat tinggi lainnya yang ada yaitu BASIC dan DELPHI.

Sedangkan bahasa pemrograman tingkat rendah yaitu bahasa pemrograman yang masih banyak menggunakan tanda-tanda sehingga bahasa ini cenderung lebih “kotor”. Beberapa bahasa pemrograman tingkat rendah yang sering digunakan adalah C, C++ dan Java.

Mari kita melihat perbedaan antara bahasa Pascal dan C untuk pembanding dalam sintaks yang digunakan:

PASCAL

C

Dua penggalan program di atas akan menghasilkan program yang sama persis yaitu meminta sebuah input berupa angka antara 0 sampai 100. Kemudian sebuah tulisan akan muncul tergantung dari nilai input yang dimasukkan.

Dari 2 bahasa tersebut, dapat dilihat bahwa dalam bahasa Pascal lebih sederhana dan lebih banyak menggunakan bahasa manusia. Sedangkan dalam bahasa C, lebih banyak penggunaan simbol.

Turbo Pascal dan C merupakan program compiler. Compiler sendiri berarti program yang menerjemahkan tulisan berupa kode program menjadi bahasa mesin yang dapat dimengerti oleh komputer. Proses yang dilakukan disebut compile atau compiling. Suatu program dapat di-compile dengan menggunakan kombinasi tombol Alt + F9. Sedangkan untuk menjalankan program, tombol yang dapat digunakan adalah Ctrl + F9. Bila selama proses compile terdapat error atau kesalahan dalam penulisan program, maka Turbo Pascal atau C akan memberitahukan letak kesalahan tersebut sehingga pengguna dapat memperbaikinya di halaman editor.

Turbo Pascal merupakan bahasa yang case insensitive yang berarti penulisan dalam huruf kapital maupun huruf kecil tidak dipermasalahkan. Akan tetapi pada C yang case sensitive, maka penulisan huruf kapital atau kecil harus benar-benar diperhatikan.

Untuk pembahasan berikutnya, kita akan menggunakan program Turbo Pascal dengan bahasa pemrograman Pascal sebagai pengantar contoh. Perlu diingat bahwa bila anda telah menguasai satu bahasa pemrograman, maka anda akan dengan cukup mudah berpindah ke bahasa pemrograman lainnya selama anda memiliki dasar algoritma dan logika yang baik. Oleh sebab itu, pada pembahasan yang selanjutnya, yang akan ditekankan adalah algoritma dan logika, bukan sintaks dan function / procedure yang terdapat dalam Turbo Pascal. Function atau procedure yang telah disediakan oleh Turbo Pascal dapat anda pelajari sendiri penggunaannya melalui Help yang terdapat di Turbo Pascal.

Dikutip dari : Pengantar bahasa turbo pascal karya William.