Informatika va programmalash

GetPixel (x,y: integer): Word

funksiyasi orqali amalga oshiriladi va Word turidagi qiymat-piksel rangini tartib nomerini bildiradi (0..15).
Pikselni boshqarish. Turbo Paskalda pikselni boshqarish uchun
PutPixel (x,y: integer; Color: Word)
protsedurasi orqali amalga oshiriladi. Bu protsedura ekranning (x,u) nuqtasini Color rangida yoritadi.

Uses Graph, CRT; {CRT modulidan foydalaniladi}

{$I initgraf.pas} {initsializatsiya protsedurasi}
Const
minx = 290; miny = 70; {Chizilayotgan figuraning}
maxx = 350; maxy = 130;{tomonlarini tashkil}
Nx = Succ(maxx - minx); {etuvchi kesmalarning}
Ny = Succ(maxy - miny); {etuvchi kesmalarning}
Npixels = Nx * Ny; {koordinatalarini berish}
Var
countpixels, color : Word; {nuqtalar sanagichi va ularning rangi}
x, y : Integer; {joriy nuqtaning koordinatalari}
Begin
GrInit; {grafika initsializatsiyasi}
color := GetMaxColor; {nuqtalar rangini belgilash}
countpixels :=0; {nuqtalar sanagichini nolga tenglashtirish}
{Sanagichning qiymati figuradagi nuqtalar soniga teng}
repeat {bo‘lguncha takrorlash}
x := minx + Random(Nx); {To‘g‘ri to‘rtburchakdagi tasodifiy}
y := miny + Random(Ny); {nuqta koordinatalari}
if GetPixel(X,Y) = Black then {Agar (X,Y) nuqtada }
begin {hech narsa yo‘q(rangi qora)}
PutPixel(x,y,color); {bo‘lsa, uni rangli qilish va}
Inc(countpixels); {sanagichni bittaga oshirish}
end;
until countpixels = Npixels;
repeat until KeyPressed; {biror klavisha bosilgancha kutish}
{Sanagichning qiymati nolga teng bo‘lguncha takrorlash }
repeat
x := minx + Random(Nx); {To‘g‘ri to‘rtburchakdagi tasodifiy}
y := miny + Random(Ny); {nuqta koordinatalari}
if GetPixel(X,Y) = color then {Agar (X,Y) nuqta}
begin {rangli bo‘lsa, uni}
PutPixel(x,y,black); {qoraga bo‘yash va}
Inc(countpixels); {sanagichni bittaga kamaytirish}
end;
until countpixels = 0;
CloseGraph; {grafik rejimini yopish}
End.


Tasvir bo‘laklari bilan ishlash. Quyidagi protsedura va funksiyalar to‘rtburchak bilan chegaralangan grafik tasvirni bufer xotiraga saqlaydi va ko‘rsatilgan joyda paydo qiladi. Tasvir bo‘yog‘i bilan ishlaganda, uning baytlarda hajmini bilash kerak, chunki turli adapterlar tasvirni turli o‘lchamda hosil qiladi: