Mencetak Teks Warna di Pascal

Dalam belajar bahasa pemrograman Pascal memang menarik jika kita menemukan suatu cara untuk menampilkan yang beda dari yang diintruksikan (lebih baik). Kali ini akan dibahas tentang bagaimana menampilkan teks berwarna secara acak menggunakan perulangan (looping) while -do. Dalam contoh program kali ini kita membutuhkan beberapa variabel string, integer, dan char.

Berikut kode penulisannya.

PROGRAM Teks_Warna;

USES CRT;

VAR

  i: INTEGER;

  h,j,k,l,m,x,y,s: STRING;

  JK: CHAR; {Jenis Kelamin}

BEGIN

CLRSCR;

  Write('Masukkan Nama Anda : ');

  readln(s);

  Write('Masukan Jenis Kelamin (L/P) : ');

  Readln(JK);

  Repeat

  clrscr;

  i:=1;

  j:='Saya : ';

  l:='Menyatakan bahwa saya ';

  if (JK = 'P') or (JK='p') then

     x:='CANTIK !!!'

  else

    if (JK = 'L') or (JK='l') then

     x:='GANTENG !!!'

  else

     x:='Berkelamin Ganda !!!';

  gotoxy(2,2);

  while i <= length(j) do

    BEGIN

      k:=copy(j,i,1);

      delay(200);

      textcolor(cyan);

      write(k);

      i:=i+1;

    END;

  gotoxy(2,4);

  i:=1;

  While i <= length(s) do

    BEGIN

      h:=copy(s,i,1);

      delay(150);

      textcolor(i);

      write(h,' ');

      i:=i+1;

    END;

  gotoxy(2,6);

  i:=1;

  While i <= length(L) do

    BEGIN

      m:=copy(l,i,1);

      delay(150);

      textcolor(cyan);

      write(m);

      i:=i+1;

    END;

  gotoxy(2+length(l),6);

  i:=1;

  while i <= length(x) do

    BEGIN

      y:=copy(x,i,1);

      delay(250);

      textcolor(LIGHTGREEN);

      write(y,' ');

      i:=i+1;

    END;

UNTIL KEYPRESSED;

END.

Dari hasil pengkodean (coding) di atas maka akan menampilkan output sepert ini :

Masukkan Nama Anda : [inputan bebas]

Masukkan Jenis Kelamin : [Hanya boleh menginput L atau P]

Setelah selesai menginput, layar akan kembali dibersihan dan akan menampilkan output yang lain, yaitu :

Pada baris ke 2 dan kolom 2:

Output 1: Saya : [kata yang telah kita buat di atas]

{dicetak per karakter dengan warna cyan (2 dalam index pascal) dalam tempo 200 MS}

{setelah selesai ditampilkan}

Pada kolom 2 dan baris 4 :

output 2: nama anda [kata atau kalimat yang anda inputkan] {dicetak per karakter dengan warna yang berbeda dalam tempo 150 MS}

{setelah ditampilkan}

Pada kolom 2 dan baris 6 :

output 3: [sebuah pernyataan yang telah kita buat di atas] {dicetak per karakter dengan warna cyan dalam tempo 150 MS}

{setelah selesai ditampilka}

Pada kolom  2+length(teks)  dan baris 6 : {pointer akan menunjukkan pada kolom dan baris setelah huruf terakhir dari output 3}

output 4: [isi pernyataan] {Seperti contoh GANTENG !!! atau CANTIK !!! sesuai yang telah kita buat di atas dan dicetak per karakter dengan warna LightGreen (hijau terang) dalam tempo 250 MS}

Program ini akan terus berjalan (mencetak) selama kondisi TRUE, dan program akan berakhir setelah kita menekan tombol pada keyboard.

Selamat Mencoba dan Semoga Sukses.