TextColor dan TextBackground pada Pemograman Pascal

TextColor dan TextBackground pada Pemograman Pascal

1.      TextColor

PROGRAM warna_warni;

USES CRT;

BEGIN

CLRSCR;

TEXTCOLOR(red);

WRITELN(‘SAYA SUKA WARNA MERAH’);

TEXTCOLOR(GREEN);

WRITELN(‘KAMU SUKA WARNA HIJAU’);

READLN;

END

Keterangan:

Red = merah

Green = hijau

Blue = biru

White = putih

Black = hitam

Yellow = kuning

Magenta = hijau toska

Cyan =  ungu

Teks yang berwarna dapat dirubah sesuai dengan selera anda.

2.      TextBackground

PROGRAM example13;

Uses crt;

{program to demonstrate the textbackground function.}

Begin

    Textcolor(white);

    Writeln(‘ditulis dengan warna latar belakang default’);

    Textbackground(hijau);

    Writeln(ditulis dengan warna latar belakang hijau’);

    Textbackground(brown);

    Writeln(ditulis dengan warna latar belakang brown’);

    Textbackground(hitam);

    Writeln(ditulis dengan warna latar belakang hitam’);

End.