O’rta maxsus

6-§. GRAFIKA MASALALARI

115. (40,55) nuqtadan (550,400) nuqtagacha to‘g‘ri chiziq chizing (yo‘llanma: to‘g‘ri chiziq chizish uchun Line(X1,Y1,X2,Y2) protsedurasidan foydalaning). 116. (11,200) nuqtadan (89,0) nuqtagacha qizil rangli to‘g‘ri chiziq chizing (yo‘llanma: rang tanlash uchun SetColor(Red) yoki SetColor(4), to‘g‘ri chiziq chizish uchun Line(X1,Y1,X2,Y2) protseduralaridan foydalaning).

117. 
     (0,0) nuqtadan (640,350) nuqtagacha yashil rangli to‘g‘ri chiziq chizing (yo‘llanma: SetColor(Rang), Line(X1,Y1,X2,Y2) protseduralari).
     
118. 
     (10,15) nuqtadan (10,200) nuqtagacha qizil rangli, (510,15) nuqtadan (510,200) nuqtagacha sariq rangli to‘g‘ri chiziq chizing (yo‘llanma: har bir chiziq rangini SetColor(Rang) yordamida tanlang, to‘g‘ri chiziqlar chizish uchun Line(X1,Y1,X2,Y2) protsedurasidan foydalaning).
     
119. 
     (10,15) nuqtadan (510,15) nuqtagacha yashil rangli, (10,200) nuqtadan (510,200) nuqtagacha ko‘k rangli to‘g‘ri chiziq chizing (yo‘llanma: SetColor(Rang), Line(X1,Y1,X2,Y2) protseduralari).
     

120*. (10,15), (10,200), (510,15), (510,200) nuqtalarni berilgan ketma-ketlikda tutashtiruvchi to‘rtta chiziq yordamida chegarasi sariq rangli to‘rtburchak chizing (yo‘llanma: SetColor(Rang), Line(X1,Y1,X2,Y2) protseduralari).
121*. (320,50), (200,290), (440,290) nuqtalarni tutashtiruvchi uch xil rangli chiziq chizing (yo‘llanma: SetColor(Rang), Line(X1,Y1,X2,Y2) protseduralari). 122*. Ichma-ich joylashgan 3 ta to‘rtburchak chizing.

Yechim: To‘rtburchaklarni bir necha usulda chizish mumkin. Masalan, 12 ta Line(X1,Y1,X2,Y2) protsedurasi yordamida murakkab usulda ixtiyoriy to‘rtburchaklarni yoki 3 ta Rectangle(X1,Y1,X2,Y2) protsedurasi yordamida oson usulda chiziqlari koordinata o‘qlariga parallel faqat to‘g‘ri to‘rtburchaklarni. Masala shartida to‘rtburchaklarni shakliga birorta chegaralash berilmagani uchun, albatta, oson usulni tanlaymiz. Ma’lumki, 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. Shuning uchun to‘rtburchaklarni yuqori chap burchagi va quyi o‘ng burchagini ichma-ich joylashishini hisobga olgan holda aniqlab olish kerak. Har bir to‘rtburchak ajralib turishi uchun SetColor(Rang) protsedurasi yordamida turli ranglarni tanlash maqsadga muvofiq. Masalan: 90 150 200 290 350 420 (90,50) (420,300) (150, 100) ,230) 290,200) (200,130) ( (350 (0,0) (0,639) 50 100 130 200 230 300 (479,0) (479,639) Bu to‘rtburchaklarni ranglari uch xil: ko‘k – Blue, qizil – Red va yashil – Green.

Dasturi: Uses Graph; Var gd, gm : Integer;

Begin gd:=0; InitGraph(gd, gm, ‘’); SetColor(Blue); Rectangle(90,50,420,300); SetColor(Red); Rectangle(150,100,350,230); SetColor(Green); Rectangle(200,130,290,200); Readln; CloseGraph; End.

123*. Ichma-ich joylashgan 4 ta uchburchak chizing (yo‘llanma: 12 ta Line(X1,Y1,X2,Y2) protsedurasi yoki 4 ta DrawPoly(4,KM) protsedurasi yordamida chizing, rang uchun SetColor(Rang) protsedurasi).
124*. Birini yuqorisida ikkinchisi tegib joylashgan 2 ta to‘rtburchak chizing (yo‘llanma: 8 ta Line(X1,Y1,X2,Y2) protsedurasi yoki 2 ta Rectangle(X1,Y1,X2,Y2) protsedurasi, rang uchun SetColor(Rang) protsedurasi). 125*. Birini uchiga ikkinchisi tegib joylashgan 2 ta uchburchak chizing (yo‘llanma: 6 ta Line(X1,Y1,X2,Y2) protsedurasi yoki 2 ta DrawPoly(4,KM) protsedurasi, rang uchun SetColor(Rang) protsedurasi).
126*. Yonma-yon biriga ikkinchisi tegib joylashgan 3 ta to‘rtburchak chizing (yo‘llanma: 12 ta Line(X1,Y1,X2,Y2) protsedurasi yoki 3 ta Rectangle(X1,Y1,X2,Y2) protsedurasi, rang uchun SetColor(Rang) protsedurasi). 127*. Yonma-yon biriga ikkinchisi tegib joylashgan 4 ta uchburchak chizing (yo‘llanma: 12 ta Line(X1,Y1,X2,Y2) protsedurasi yoki 4 ta DrawPoly(4,KM) protsedurasi, rang uchun SetColor(Rang) protsedurasi).
128*. Diagonallari (10,10) va (310,310) nuqtalarni tutashtiruvchi sariq rangli kesma bilan ustma-ust tushuvchi 2 ta tutashmaydigan to‘rtburchak chizing (yo‘llanma: Rectangle(10,10,310,310) protsedurasi yordamida 1-to‘rtburchakni, nuqtalarni diagonal bo‘yicha surib 2-to‘rtburchakni, Line(X1,Y1,X2,Y2) yordamida sariq chiziq chizing, rang uchun SetColor(Rang) protsedurasi). 129. Diagonallari (10,10) va (310,310) nuqtalarni tutashtiruvchi sariq rangli kesma bilan ustma-ust tushuvchi 2 ta tutashmaydigan kvadrat chizing.

130. 
     Umumiy uchga ega ikki xil rangli 2 ta uchburchak chizing (yo‘llanma: 6 ta Line(X1,Y1,X2,Y2) protsedurasi yoki 2 ta DrawPoly(4,KM) protsedurasi, rang uchun SetColor(Rang) protsedurasi).
     
131. 
     Umumiy tomonga ega ikki xil rangli 2 ta uchburchak chizing, umumiy tomon uchinchi rangda bo‘lsin.
     
132. 
     Teskari simmetrik ikki xil rangli 2 ta uchburchak chizing, ichi uchinchi rangda bo‘lsin (yo‘llanma: bir xil rangli 6 ta Line(X1,Y1,X2,Y2) protsedurasi yoki 2 ta DrawPoly(4,KM) protsedurasi, ichini SetFillStyle(usul,rang) va FloodFill(A,B,D) protseduralari yordamida bo‘yang, keyin yana SetColor(Rang) protsedurasi yordamida uchburchak chegaralarini chizing). 133. Beshburchak rasmini turli rangli chiziqlar yordamida chizing.
     

134*. Beshburchak rasmini bir xil rangli chiziqlar yordamida chizing va ichini bo‘yang (yo‘llanma: SetColor(Rang), 5 ta Line(X1,Y1,X2,Y2), SetFillStyle(usul,rang) va FloodFill(A,B,D) protseduralari yoki SetColor(Rang), SetFillStyle(usul,rang) va FillPoly(5,KM) protseduralari yordamida chizing).
135. Radiusi R ga teng sariq rangli aylana chizing.
136*. Ekranning o‘rtasida radiusi 100 dan kichik sariq rangli 4 ta konsentrik (ya’ni markazi bir nuqtada) aylana chizing.

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.

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