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);
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 variable di layar.
Write/Writeln= statement ini digunakan untuk mencetak variable 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)

2. Statemen-statemen yang digunakan untuk pengaturan letak layar.

 ClrScr [prosedur].
Perintah ini digunakan untuk membersihkan layar.
sintaks: ClrScr; →[Clear screen] (lihat contoh diatas)

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

Contoh :
Program input;
Uses Crt;
Begin
Clrscr;
Gotoxy(12,3);Writeln (‘KERJASAMA’);
Gotoxy(10,4);Writeln (‘PIKMI CLAdS’);
Gotoxy(18,5);Writeln (‘DAN’);
Gotoxy(3,6);Writeln (‘SMA N 1 SUMBERPUCUNG’);
End.

Bila dijalankan hasilnya adalah:

KERJASAMA
PIKMI CLAdS
DAN
SMA N 1 SUMBERPUCUNG

3. 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 menghasilkan nilai bertipe real.

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

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

Contoh
Program input;
Uses Crt;
Var X : REAL;

Begin
Clrscr;
Writeln (‘PROGRM MENCARI NILAI ABSOLUT, SIN, COS, TANGEN ‘);
Writeln (‘==============================================’);
Write (‘MASUKKAN NILAI X : ‘); Readln (X);
Writeln(‘1 Absolut = ‘,Abs(x):9:3);
Writeln(‘2 Sinus = ‘,Sin(x):9:3);
Writeln(‘3 Cosinus = ‘,Cos(x):9:3);
Writeln(‘4 Tangen = ‘,ArcTan(x):9:3);
End.

 Exp [fungsi].
Menghitung nilai pangkat dari bilangan e (bilangan alam),
yaitu sebesar x.
Sintaks: Exp (x);

 Frac [fungsi].
Untuk mendapatkan nilai pecahan dari suatu bilangan.
Sintaks: Frac (x);

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

 Sqr [fungsi].
Digunakan untuk menghitung nilai pangkat kuadrat dari suatu
bilangan.
Sintaks: Sqr (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
Writeln(‘Nilai X = ‘,x:5:2);
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);
End.
Hasilnya :
masukkan nilai dari X = -2.5
Nilai X = 2.50
Nilai logarima alamnya = 0,196
Nilai integernya = 2.00
Nilai fraksionalnya = 0.50
Nilai X dipangkatkan = 6.250
Nilai X diakarkan = 1.581

Soal Latihan
1. Soal I
Buatlah program dibawah ini
1. Mengubah derajat temperatur, dari derajat Celcius ke derajat Fahreinheit dan Reamur (derajat Celcius diinput)
2. Menghitung Luas dan Keliling lingkaran, dengan jari-jari diketahui (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).