Nom kiritish bosManishini

Rang	Kodi	Konstanta nomi	Rang	Kodi
Konstanta nomi
Qora	0	Black	To'q kulrang	8	DarkGray
Ko'k	1	Blue	Havorang	9	Light Blue
Yashil	2	Green	Och yashil	10	LightGreen
Billur	3	Cyan	Och billur	11	LightCyan
Qizil	4	Red	Och qizil	12	LightRed
%ohrang	5	Magenta	Och siyohrang	13	LightMagenta
.figarrang	6	Brown	Sariq	14	Yellow
ll^hjculrang	7	LightGray	Oq	15	White

Biror rangni tanlash uchun Paskalning maxsus protseduralari yor­damida qavs ichida shu rangning kodi yoki unga mos konstanta nomi ko'rsatiladi. Ranglar matn va fon uchun turlicha tanlanishi maqsadga muvofiq, aks holda matn fon ichida ko'rinmay qoladi. Matn va fon uchun belgilangan oxirgi ranglar mos ravishda matnning joriy rangi va forming joriy rangi deyiladi. Agar avvaldan biror rang tanlanmagan bo'lsa, matn uchun oq, fon uchun esa qora rang joriy hisoblanadi.

Endi Crt moduli tarkibiga kirgan ba'zi protseduralari bilan tanishamiz. Matn va matn foni rangi bilan ishlaydigan protseduralari quyidagilar:

Matn rangini belgilaydigan protseduralar

TextCotor(rang);

Matn foni rangini belgilaydigan protseduralar

Text B ack Gr ou nd (r an g);

bu yerda rang - o'garuvchi yoki o'zgarmas miqdor boiib, tanlangan rang kodi yoki konstanta nomini ifodalaydi.

1- misol.

Uses Crt;

Begin TextColor(14); {yoki TextColor(yellow)} WriteLn('Bu matn ekranga sariq rangda chiqadi');

End.

2- misol.

Uses Crt; Begin

TextColor(Yellow); TextBackGround(Blue); WriteLn(" Bu matn ekranga ko'k fonda sariq rang bilan chiqadi');

End.

Ba'zan ekranda ma'lumotlar ko'payib ketganidan keraklisini topish qiyinlashadi. Bunday holda qo'llangan ClrScr protsedurasi ekranni tozalaydi va yurgichni ekran boshiga (chap yuqori burchagiga) o'rnatadi. Agar dasturda ClrScr protsedurasi matn foni rangidan keyin yozilsa, u holda ekran matn foni rangiga bo'yaladi.

3- misol.

Uses Crt; Begin

ClrScr; {ekran tozalanib, yurgich ekran boshiga o'rnatiladi]

TextColor(14); TextBackGround(2); WriteLn('Bu matn yashil fonda sariq rang bilan chiqadi'); End.4- misol.

Uses Crt; Begin

TextColor( 14); TextBackGround(2); ClrScr; {ekran tozalanib, ekran rangi yashilga bo'yaladi va yurgich ekran boshiga o'rnatiladi}

WriteLn('Bu matn yashil ekranga sariq rang bilan chiqadi'); End.

Dastur natijasi «chiroyli» ko'rinishda bo'lishi uchun turli ranglardan foydalanish bilan birga uni ekranning kerakli joyidan chiqarish ham aha-miyatga 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 B-satr kesishgan joyiga o'rnatadi. Ekran matn holatida, asosan, 80x25 o'lchamga ega.Ya'ni, 80 ta ustun va 25 ta satr (maxsus operatorlar yordamida bu o'lchamni o'zgartirish ham mumkin). Shu sababli mazkur protsedurasida 1

5- misol. Uses Crt; Begin

ClrScr; {ekran tozalandi}

GotoXY(22,12); {yurgich 22-ustun va 12-satr kesishgan joyga o'rnatildi}

Write('Bu matn ekranning o'rtasidan chiqadi');

End.

-----------,--------------------------------------

Bu dasturda ekranga chiqariladigan matn 36 ta belgidan iborat. Matnning chap va o'ng tomonidan bir xil joy qoldirib, ekranning o'rtasidan chiqarish uchun GotoXY protsedurasidagi A va B ning qiymati quyidagicha hisoblandi:

A=[25/2]=12, B=[(80-36)/2]=22.