Statemen Dalam Pascal

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.

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);

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.

Write/Writeln [prosedur]

Digunakan untuk menampilkan isi dari suatu nilai variabel di layar.
Write/Writeln = statement ini digunakan untuk mencetak variabel ke dalam monitor.

Contoh :
Program input;
Uses Crt;
Var nama : String;
NIS, Kls : String;

Begin
Clrscr;
Writeln ('masukkan data anda ');
Writeln ('------------------------------');
Write ('NIS anda : ');
Readln (NIS);
Write ('nama anda : ');
Readln (nama);
Write ('Kelas: ');
Readln (Kls);
End.

Bila program dijalankan maka akan tampil:

masukkan data anda
------------------------------

nama anda : ( di input )
NIS anda : ( di input )
Kelas : (di input)

Pernyataan Bersyarat

Pernyataan bersyarat dalam pascal ada dua yaitu IF dan CASE, digunakan untuk menentukan suatu pernyataan dikerjakan atau tidak. Pernyataan IF merupakan pernyataan kendali untuk mengambil keputusan. Sedangkan pernyataan CASE merupakan pernyataan yang meminta kita untuk memilih diantara beberapa pilihan yang ada.

Pernyataan IF
 

Pernyataan IF ada dua macam yaitu IF… THEN dan IF… THEN… ELSE.
Bentuk umum pernyataan IF… THEN adalah:
IF (syarat logika) THEN
pernyataan

Bentuk umum pernyataan IF… THEN… ELSE adalah:
IF (syarat logika) THEN
Pernyataan-1
ELSE
Pernyataan-2

Syarat logika adalah ungkapan boolean. Bila kondisi syarat logika bernilai true maka pernyataan akan dikerjakan. Tetapi bila syarat logika bernilai false, pernyataan tidak dikerjakan.
Pernyataan merupakan perintah yang harus dikerjakan bila syarat logika bernilai true.

Pernyataan Perulangan

Pengulangan (loop) merupakan bentuk yang sering ditemui di dalam suatu program aplikasi. Dalam hampir setiap program yang kompleks mutlak memerlukan suatu perulangan dan percabangan. Tujuan perulangan disini adalah untuk mengulang statement atau blok statement berulang kali sesuai sejumlah yang ditentukan pemakai. Pengulangan dapat dilakukan sejumlah kali, atau sampai kondisi berhenti dan pengulangan tercapai. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan pernyataan For, While-Do,  dan Repeat…Until.

  

Pernyataan FOR

Pernyataan for adalah konstruksi pengulangan tanpa kondisi, artinya instruksi-instruksi di dalam badan pengulangan diulangi sejumlah kali yang di spesifikasikan oleh pemrogram. Dalam hal ini, jumlah pengulangan sudah diketahui sebelum konstruksi pengulangan eksekusi. Perulangan dengan pernyataan For digunakan untuk mengulang pernyataan atau satu blok pernyataan berulang kali sejumlah yang ditentukan. Jumlah pengulangan diketahui atau dapat ditentukan sebelum eksekusi. Untuk mencacah beberapa kali pengulangan dilakukan, diperlukan sebuah peubah (variable) pencacah (counter). Peubah ini nilainya selalu bertambah satu setiap kali pengulangan dilakukan. Jika cacah pengulangan sudah mencapai jumlah yang dispesifikasikan, maka proses pengulangan berhenti. Perulangan dengan pernyataan For dapat berbentuk perulangan positif, perulangan negatif dan perulangan tersarang.

Perulangan Positif

Perulangan positif adalah perulangan dengan penghitung dari kecil ke besar atau pertambahan positif. Perulangan positif dapat dibentuk dengan menggunakan pernyataan For-To-Do, dengan bentuk umum:
For variabel-kontrol:=nilai awal To nilai akhir Do
pernyataan

Contoh perulangan positif :
Contoh 1. Mencetak “saya sedang belajar for” sebanyak 5 kali.
Program cetak;
Uses wincrt;
Var
   I:Integer;
Begin
   For I:= 1 to 5 Do Writeln(‘sedang belajar for’);
End.

Contoh 2. Menjumlahkan deret 1 sampai N (1+2+3…+N). N adalah bilangan bulat positif.
Program penjumlahan_deret;
Uses wincrt;
Var
N :integer;
I :integer;
Jumlah:integer;
Begin
Write (‘berapa N ?’);readln(N);
Jumlah:=0;
For I := 1 to N do
Begin
Jumlah := jumlah + i
End;
Writeln (‘jumlah deret = ‘ , jumlah);
End.