O’rta maxsus

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

Bog'liq
paskal dt dars

Bu sahifa navigatsiya:

• Setcolor
• Rectangle(X1,Y1,X2,Y2)
• DrawPoly(BS,KM)

320

240

Circle(X,Y,R) protsedurasi markazi (X,Y) nuqtada va radiusi R ga teng aylana chizadi. Endi aylanalar bilan bog‘liq masalalarni shu protsedura yordamida osongina hal etish mumkin.
۩. Ekranning o‘rtasida radiuslari 100 dan kichik bo‘lgan sariq rangli 4 ta aylana chizuvchi dastur tuzing.

Yechim: Aylanalar chizig‘i rangi sariq bo‘lishi uchun barcha aylanaga bitta Setcolor(yellow); protsedurasi qo‘llaniladi. Ma’lumki, Circle(X,Y,R) protsedurasi markazi (X,Y) nuqtada va radiusi R ga teng aylana chizadi. Shuning uchun barcha aylana uchun Circle(X,Y,R) protsedurasida markazni X=320, Y=240 kabi tanlanadi. Endi 4 ta radiusni 100 dan kichik bo‘lgan sonlar, masalan, 40, 55, 70, 85 kabi tanlash mumkin. Radiusni takrorlash operatori yordamida ham o‘zgartirish mumkin.

Dasturi: Uses Graph; var gd, gm: Integer; Begin gd:= 0; InitGraph(gd, gm, ''); Setcolor(yellow); Circle(320,240,45); Circle(320,240,60); Circle(320,240,75); Circle(320,240,90); Readln; CloseGraph; end.

Natijaning ekrandagi ko‘rinishi: 320 240

Ellipse(X,Y,BB,OB,XR,YR) protsedurasi markazi (X,Y) nuqtada, x va y o‘qlari bo‘yicha radiuslari mos ravishda XR va YR ga teng ellipsning BB burchagidan OB burchagigacha bo‘lgan yoyini chizadi. Burchak gradus o‘lchov birligida beriladi. XR=YR bo‘lsa, aylananing yoyi chizi
Rectangle(X1,Y1,X2,Y2) protsedurasi ekranda yuqori chap burchagi (X1,Y1) koordinatali va quyi o‘ng burchagi (X2,Y2) koordinatali nuqtada bo‘lgan to‘g‘ri to‘rtburchak chizadi.
۩. Markazi (300,200) koordinatali nuqtada, x o‘qi bo‘yicha radiusi 100, y o‘qi bo‘yicha radiusi 50, boshlang‘ich burchagi 0^o, oxirgi burchagi 135^o bo‘lgan qizil rangli yoy hamda chap yuqori va o‘ng pastki uchlari, mos ravishda, (10,220) va (300,400) koordinatali nuqtalarda bo‘lgan ko‘k rangli to‘g‘ri to‘rtburchak chizing.

Uses Graph;
Var gd, gm : Integer;
Begin
Gd:=0; InitGraph(gd,gm, ‘‘);
Setcolor(4);
Ellipse(300,200,0,135,100,50);
Setcolor(1);
Rectangle(10,220,300,400); Readln; CloseGraph; End.
DrawPoly(BS,KM) protsedurasi siniq chiziq chizadi. BS – siniq chiziqning sinish nuqtalari soni, KM – siniq chiziq sinish nuqtalarining koordinatalari berilgan massiv nomi. Agar siniq chiziq boshlang‘ich nuqtasining koordinatasi bilan oxirgi nuqtasining koordinatasi ustma-ust tushsa, yopiq soha – ko‘pburchak hosil bo‘ladi.

Download 2,24 Mb.

Do'stlaringiz bilan baham: