O’rta maxsus

Bar(X1,Y1,X2,Y2) protsedurasi yordamida 2 ta to‘g‘ri to‘rtburchak, FillEllipse

Download 2,24 Mb. bet 41/54 Sana 30.04.2022 Hajmi 2,24 Mb. #597939

Bog'liq
paskal dt dars

Bu sahifa navigatsiya:

• Setcolor
• FloodFill

Bar(X1,Y1,X2,Y2) protsedurasi yordamida 2 ta to‘g‘ri to‘rtburchak, FillEllipse(X,Y,XR,YR) protsedurasi yordamida 3 ta doira chizib (doira chizish uchun XR=YR bo‘lishi kerak), ularning ichini bo‘yash uchun rang va usulni SetFillStyle(usul,rang); protsedurasi yordamida tanlash orqali. Bo‘yash usuli 1 deb olinadi, chunki shakl ichi to‘liq bo‘yaladi. Ranglar esa doiralar uchun 4 (qizil), 14 (sariq), 2 (yashil) tanlanadi. Dasturda doiralar chegara chizig‘i rangi Setcolor(rang) protsedurasi yordamida tanlanmagani uchun Paskal dasturi chegara rangini oq (kodi 15) rangda chizadi.

T o‘g‘ri to‘rtburchaklar chizish uchun Rectangle(X1,Y1,X2,Y2) protsedurasidan va doiralar chizish uchun Circle(X,Y,R) protsedurasidan foydalanish mumkin. SetFillStyle(usul,rang); protsedurasidan bu shakllarni ichini bo‘yash usuli va rangini tanlashda, tanlangan rangni shakl ichiga “quyish” (MS Paint dasturidagi kabi) uchun FloodFill(A,B,D) protsedurasidan foydalanish mumkin, bu yerda (A,B) shakl ichidagi biror nuqta, D chegara chizig‘i rangi. Dasturda chegara chizig‘i rangi Setcolor(rang) protsedurasi yordamida tanlanmagan bo‘lsa, u holda Paskal dasturi chegara rangini oq (kodi 15) rangda chizadi. Agar shakl ichini bo‘yashda FloodFill(A,B,D) protsedurasidan foydalanayotganda (A,B) nuqta shakl ichiga tegishli bo‘lmasa, u holda rang MS Paint dasturidagi yopiq sohani bo‘yash () uskunasi yordamida bo‘yagandagi kabi rang “yoyilib” ketadi.

Dasturi: Uses graph; Var gd, gm: Integer; Begin gd := 0; InitGraph(gd, gm, ''); setfillstyle(1,6); bar(150,10,210,190); SetFillStyle(1,red); fillEllipse(180,40,30,30); SetFillStyle(1,14); fillEllipse(180,100,30,30); SetFillStyle(1,2); fillEllipse(180,160,30,30); setfillstyle(1,6); bar(175,190,185,300); Readln; CloseGraph; end.	Natijaning ekrandagi ko‘rinishi:
Dasturi (Floodfill): Uses graph;
Var gd, gm: integer; Begin gd:=0; InitGraph(gd, gm, ''); setfillstyle(1,6); rectangle(150,10,210,190); Floodfill(160,100,15); SetFillStyle(1,4); circle(180,40,25); Floodfill(180,40,15); SetFillStyle(1,14); circle(180,100,25); Floodfill(180,100,15); SetFillStyle(1,2); circle(180,160,25); Floodfill(180,160,15); setfillstyle(1,6); rectangle(175,190,185,300); Floodfill(180,200,15); Readln; CloseGraph; End.

Download 2,24 Mb.

Do'stlaringiz bilan baham: