O’rta maxsus

PutPixel(X,Y,Rang) protsedurasi ekranning (X,Y) koordinatali nuqtasini “Rang” parametri bilan aniqlangan rangga bo‘yaydi. Masalan, PutPixel(400,200,Red) protsedurasi ekranning (400,200) koordinatasiga mos joyda qizil rangli nuqta joylashtiradi (yuqoridagi rasm).
۩. Ekranning to‘rtta burchagida sariq rangli nuqta hosil qiluvchi dastur tuzing.

Yechim: Grafik ekran (0..639x0..479) nuqtalar to‘plamidan iborat. Shuning uchun ekranni burchakdagi nuqtalari quyidagilar: chap yuqori nuqta (0,0); o‘ng yuqori nuqta (639,0); chap quyi nuqta (0,479); o‘ng quyi nuqta (639,479). Ekran grafik holatga o‘tkazilgach (avvalgi mashqdagi kabi) PutPixel(X,Y,Rang) protsedurasi yordamida nuqtalar joylashtiramiz. Bunda nuqtalar sariq rangda aks etishi uchun rangni Yellow (yoki 14) kabi tanlanadi. Dasturni Enter klavishi bosilguncha kuttirish uchun CloseGraph protsedurasidan avval Readln; operatori yoziladi.
Dasturi: Uses graph; var gd, gm: integer; Begin gd:=0; initgraph(gd, gm, ''); PutPixel(0,0,yellow); PutPixel(639,0,yellow); PutPixel(0,479,14); PutPixel(639,479,14); readln; closegraph; End.	Natijaning ekrandagi ko‘rinishi:

GetPixel(X,Y) funksiyasi ekranning (X,Y) koordinatali nuqtasi qanday rangda ekanini aniqlaydi. Masalan, Rang – butun turdagi o‘zgaruvchi bo‘lsa, Rang:= GetPixel(40,50); operatori bajarilgach Rang nomli o‘zgaruvchi qiymati (40,50) koordinatali nuqta rangining qiymatiga teng bo‘ladi.