B. J. Boltayev, A. R. Azamatov, G. A. Azamatova, B. S. Xurramov nazariya, algoritm, dastur toshkent 2013

TextColor(rang);
TextBackGround(rang);

bu yerda rang – o‘garuvchi yoki o‘zgarmas miqdor bo‘lib, tanlangan rang kodi

yoki konstanta nomini ifodalaydi.

1–misol. 
Uses Crt;
Begin TextColor(14); {yoki TextColor(yellow) }

WriteLn(‘Matn ekranga sariq rangda chiqadi‘);

End.

Matn ekranga sariq rangda chiqadi 

---

65

2–misol. 
Uses Crt;
Begin TextColor(Yellow); TextBackGround(Blue);

WriteLn(‘ Matn ekranga ko‘k fonda sariq rang bilan chiqadi‘);

End.

Ba’zan ekranda ma’lumotlar ko‘payib ketganidan keraklisini topish qiyin-

lashadi. Bunday holda qo‘llangan ClrScr protsedurasi ekranni tozalaydi va yur-
gichni ekran boshiga (chap yuqori burchagiga) o‘rnatadi. Agar dasturda ClrScr
protsedurasi matn foni rangidan keyin yozilsa, u holda butun ekran matn foni
rangiga bo‘yaladi.

3–misol. 
Uses Crt;
Begin ClrScr; {ekran tozalanib, yurgich ekran boshiga
o‘rnatiladi}
TextColor(14); TextBackGround(2);

WriteLn(‘Matn yashil fonda sariq rang bilan chiqadi‘);

End.


4–misol. 
Uses Crt;
Begin
TextBackGround(2); ClrScr; {ekran tozalanib, ekran rangi yashilga
b
o‘yaladi va yurgich ekran boshiga o‘rnatiladi}

TextColor(14); WriteLn(‘Matn yashil ekranga sariq rang bilan

chiqadi‘);
End.

Dastur natijasi “chiroyli” ko‘rinishda bo‘lishi uchun turli ranglardan foyda-

lanish bilan birga uni ekranning kerakli joyidan chiqarish ham ahamiyatga ega.
Buning uchun yurgichni ekranning kerakli joyiga o‘rnatish zarur. Paskal tilida bu
vazifani GotoXY protsedurasi amalga oshiradi. Uning umumiy ko‘rinishi
quyidagicha: GotoXY(A,B);, bu yerda A va B butun sonli o‘zgaruvchi yoki
o‘zgarmaslar bo‘lib, GotoXY(A,B) protsedurasi yurgichni ekranning A-ustun va