O’rta maxsus

FillEllipse(X,Y,XR,YR) protsedurasi markazi (X,Y) koordinatali nuqtada, X va Y o‘qlari bo‘yicha radiuslari (eni va bo‘yi) mos ravishda XR va YR ga teng, joriy rang va usulda bo‘yalgan ellips chizadi.
۩. Ichi ko‘k rangli og‘ma katak chiziqlar bilan to‘ldirilgan ellips chizing.

Uses Graph;
Var gd, gm : Integer;
Begin
Gd:=Detect;InitGraph(gd,gm, ‘‘); SetColor(Red);
SetFillStyle(8,1); FillEllipse(320,240,200,100); Readln; CloseGraph; End.
FillPoly(BS,KM) protsedurasi joriy rang va usulda bo‘yalgan ko‘pburchak chizadi. BS – ko‘pburchakning burchaklari soni, KM – ko‘pburchak uchlarining koordinatalari berilgan massiv. Bu operator DrawPoly protsedurasidan farqli o‘laroq, ko‘pburchakning birinchi uchi bilan oxirgi uchini o‘zi birlashtirib oladi.
۩. Uchlarining koordinatalari berilgan KM massivda berilgan va ichi qizil rangli katak chiziqlar bilan to‘ldirilgan oltiburchak chizing.

Yechim. Uchlarining soni 6 ta bo‘lgan ko‘pburchak chizish protsedurasidan foydalanamiz. DrawPoly protsedurasidan foydalanish uchun 7 ta nuqta olinib, 7-uchi koordinatasini 1-uchi koordinatasi bilan bir xil tanlansa, oltiburchak hosil bo‘ladi.

Dasturi: Uses Graph; Const bs=6; Var gd, gm : Integer; km : Array[1..bs,1..2] of Integer; Begin gd:=0; InitGraph(gd,gm, ‘‘); Setcolor(4); SetFillStyle(7,4); {usul va rang tanlandi} km[1,1]:=300; km[1,2]:=10; km[4,1]:=400; km[4,2]:=190; km[2,1]:=200; km[2,2]:=80; km[5,1]:=300; km[5,2]:=80; km[3,1]:=200; km[3,2]:=200; km[6,1]:=400; km[6,2]:=40; FillPoly(bs,km); {agar DrawPoly(bs,km); yozilsa ichi bo‘sh oltiburchak chiziladi} End.

Natijaning ekrandagi ko‘rinishi:

FloodFill(A,B,D) protsedurasi tanlangan rangni shakl ichiga “quyish” (MS Paint dasturidagi kabi) uchun xizmat qiladi, bu yerda (A,B) shakl ichidagi biror nuqta, D chegara chizig‘i rangi.
۩. Svetofor rasmini chizuvchi dastur tuzing.

Yechim: Bu masalani turli xil usullarda hal etish mumkin. Masalan: