Selasa, 20 Desember 2011

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)

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

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 <0>
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

0 comments:

Posting Komentar

Diberdayakan oleh Blogger.

You can replace this text by going to "Layout" and then "Page Elements" section. Edit " About "