fungsi clrscr pada pascal

 
Fungsi CLRSCR adalah prosedur untuk membersihkan layar yang ada di dalam unit CRT, maka untuk dapat memakai Clrscr, unit Crt harus di ‘Uses‘ dalam deklarasi unit. 


contoh pada program:
USES CRT;
VAR
BAYAR:REAL;
DISKON:REAL;
PEMBELIAN:REAL;
BEGIN
CLRSCR;
WRITELN('PROGRAM PEMBELIAN BARANG');
WRITE('JUMLAH PEMBELIAN: ');
READLN(PEMBELIAN);
IF PEMBELIAN>=PEMBELIAN*20*100;
       DISKON:=PEMBELIAN-DISKON;
WRITELN('BAYAR : ',BAYAR:10:0);
READLN;
END.