Header Ads Widget

Ticker

6/recent/ticker-posts

Reserved Word Pada PASCAL


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 INHE RITED OR THEN
ARRAY END INLINE PACKED TO
BEGIN EXPORTS INTERFACE TYPE PROCEDURE
CASE FILE LABEL PROGRAM UNIT
CONST FOR LIBRARY RECORD UNTIL
REPEAT USES FUNCTION MOD CONSTRUCTOR
GOTO NIL SET VAR DESTRUCTOR
DIV IF NOT SHL WHILE
DO OBJECT SHR WITH IMPLEMENTATION
Selain dari Reserved Word di atas, Turbo Pascal masih memiliki tambahan Reserved Word lainnya. Baca di next tulisan y!! Kata kunci untuk mencari : Reserved word ( 1 ) sampai Reserved word ( 7 ).

Reserved Word (2) Statemen 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 (Aku sayang kamu);

GotoXY(01,13);Writeln (Tekan Enter !);

Delay(1000);

GotoXY(15,12);

DelLine;

Read(x);

End.

Hasilnya adalah :

I Love Dinda

tunggu sebentar!!

Aku sayang kamu

Tekan Enter !

Post a Comment

0 Comments