Procedure dan Fungsi Unit Crt pada Pascal

1. Clreol
Deklarasi: procedure clreol
Deskripsi: menghapus dari posisi kursor diletakan sampai baris terakhir sintak.dan kursor tidak tetap di posisi kursor diletakan

contoh program

Program satu;

uses Crt;

{program penggunaan prosedur clreol}
var
I,J:integer;

begin
For I:=1 to 15 do
For J:=1 to 80 do
begin
gotoxy(j,i);
Write (j mod 10);
end;
Window(5,5,75,12);
Write(’garis ini akan dihapus dari’,
’sini sampai sebelah kanan windows’);
GotoXY(27,WherexY);
ReadKey;
ClrEol;
WriteLn;
end.

2. Clrscr
Deklarasi:procedure Clrscr;
Deskripsi: membersihkan layar kerja

contoh program

program dua;

user crt;
{program penggunaan clrscr}
begin
writeln('rivai ganteng');
readkey;
clrscr;
writeln('baris pertama telah terhapus');
end.

3. Delay
Deklarasi:procedure delay(Ms:Word)
Deskripsi:memberi jeda waktu pada saat program di eksekusi

contoh program

program 3;
uses crt;

{program memberi jeda pada program}
var
i:longint;
begin
writeln('menghitung mundur');
for i:=10 downto 1 do
begin
writeln(i);
delay(3000); {menunggu selama tiga detik}
end;
writeln('door');
end.

4. Gotoxy
Deklarasi: procedure gotoxy(x : byte; y: byte)
Deskripsi: mengatur posisi kursor pada tampilan

contoh program

Program 4;
uses Crt;
{program penggunaan function gotoxy}
begin
ClrScr;
GotoXY(10,10);
Write(’10,10’);
GotoXY(70,20);
Write (’70,20’);
GotoXY(1,22);
end.

5. Readkey
Deklarasi:function readkey:char)
Deskripsi:membaca char yang telah di masukan lewat keyboard

contoh program

Program 5;
uses Crt;

{program penggunaan function readkey}
var
ch:char;
begin
writeln(’Tekan kiri/kanan,Esc=keluar’) ;
repeat
ch:=ReadKey;
case ch of
#0 : begin
ch:=ReadKey; {membaca code}
case ch of
#75:WriteLn(’kiri’);
#77:WriteLn(’kanan’);
end;
end;
#27:WriteLn(’keluar’);
end;
until ch=#27 {keluar}
end.