Arc процедурасы доға сызады. Тақырыбы:
Procedure Arc (x,y: integer; ВеgА, endA,R: word);
мұндағы X, Y – центр координатасы; ВеgА, endA – сəйкесінше, доғаның бастапқы жəне соңғы бұрыштары; R – радиус.
7.7-сурет. Arc процедурасын пайдалану
Бұрыштар сағат жүрісіне қарсы саналып, градуспен көрсе-тіледі. Нөл бұрыш вектордың көлденең, солдан оңға қарайғы бағытына сəйкес келеді. Егер бастапқы бұрышты 0 жəне соңғы бұрышты – 359 градус деп берсе, онда толық дөңгелек сызылады.
Дөңгелек доғасын сызғанда, сызықтар мен радиус үшін Circle процедурасындағы қатынастар қолданылады.
Бріншісінің бұрыштары 0 жəне 90, екіншісінің – 270 жəне 540 градус доғалардың көрнісі (7.7-сурет):
Келесі программа осы бейнені экранға шығарады:
Uses Graph, CRT;
var
d,r,е: Integer;
Xasp,Yasp: Word;
begin
{Графиканы іске қосамыз}
d:=Detect;
InitGraphtd, r, '');
e:=GraphResult;
if e <> grOK then WriteLn(GraphErrorMsg(e))
else
begin
GetAspectRatio(Xasp,Yasp); {R = 1/5 экранның тік көлемінен}
r:=round(Yasp*GetMaxY/5/XAsp); d:=GetMaxX div 2;{Екінші графиктің
ығысуы}
e:= GetMaxY div 2;{Көлденең осьтің
орны}
{Сол жақ графикті саламыз}
Line(0,e,5*r div 2,e);{ Көлденең ось}
Line(5*r div 4,e div 2,5*r div 4,3*e div 2) ;
Arc (5*r div 4,e,0,90,R);{Доға} OutTextXY(0,e+e div 8,'0 - 90');{Жазу}
{Оң жақ график} Line(d,e,d+5*r div 2,e);
Line(d+5*r div 4,e div 2,d+5*rdiv4,3*e div 2);
Arc (d+5*r div 4,e,270,540,R); OutTextXY(d,e+e div 8,'270 - 540');
{Кез келген перненің басылуын күтеміз}
Достарыңызбен бөлісу: |
