1- dars. Mavzu: Masalalarni kompyuterda yechish bosqichlari

Download 1,92 Mb.
bet	62/145
Sana	14.02.2024
Hajmi	1,92 Mb.
	#156614

Bog'liq
1- dars. Mavzu Masalalarni kompyuterda yechish bosqichlari Dars

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)} WriteLnfBu 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.
Bu matn ekranga ko'k fonda sariq rang bilan chiqadi
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 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 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

Download 1,92 Mb.