1- dars. Mavzu: Masalalarni kompyuterda yechish bosqichlari Darsning texnologik xaritasi

Download 1,92 Mb.
bet	87/208
Sana	23.07.2021
Hajmi	1,92 Mb.
	#15865

Bu sahifa navigatsiya:

• 1- misol.

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.