Ellipse(x, y, , , Rx, Ry )- центрі (х, у ) нүктесіндегі, , бұрыштарының аралығындағы, биіктігі мен ені сәйкес Rx, Ry эллипс сызу.
Мұндағы Rx, Ry- пикселмен өрнектелген Х және У бағыттарындағы эллипстің жарты осьтері.
Қарапайым геометриялық фигураларды салу процедурасын қолданып программа құрайық.
Мысал83. Uses Graph;
Var k, n:integer;
Begin
k:=detect;
Initgraph(k, n, ‘C:\TP\BGI’);
SetBkColor(2); { фонға жасыл түс орнату }
SetColor(1); { кескінге көк түс орнату } utPixel(200, 200,14); { сары түсті нүкте шығару }
Line(10, 20, 100, 120); { кесінді салу }
Rectangle(10, 10, 630, 470); {тіктөртбұрыш салу }
SetColor(4); { кескінге қызыл түс орнату}
Circle(150, 50, 20); { шеңбер салу }
Readln; { Enter пернесі басылғанша күту }
CloseGraph;
End.
Мысал84. Х осіне параллель бағытта солдан оңға қарай қозғалатын шеңбер суретін шығаратын программа.
x:=30;
While x<=600 do
Begin
Circle(20+x, 200,80);
Delay(20000);
Clrscr;
x:=x+80;
end;
Мысал85. X-тің мәні 0-ден 90- ға дейін 5 қадаммен өзгергендегі Y=SINX функциясының графигін салу программасы. У осі бойынша 1 нүктесі деп 100 пиксель алынады, Х осі бойынша масштаб 1 пиксел= 1 градус. Координаталар басын (50, 150) нүктесіне орналастырамыз.
x0:= 50; y0:=150;
for i:=0 to 18 do
begin
f:= sin(pi/180* i *5);
y:= 150- trunc(f*100);
x:= 50+i*5;
Line(x0, y0, x, y);
y0:=y; x0:=x
end.
Мысал86. Стрелкасы қозғалатын сағатты имитация жасайтын программа.
Uses crt, graph;
Var k, n:integer;
a, b, c, d, i, f:real;
begin
k:detect;
Initgraph(k, n, ‘C:\TP\BGI’);
SetBkColor(black);
Circle(320, 240, 100);
c:=0; d:=0;
repeat
Setcolor(green);
c:=c+0.6; d:=d+0.1;
a:= cos(c)*90+320;
b:= sin(c)*90+240;
i:= cos(d)*80+320;
f:= sin(d)*80+240;
Line(320, 240, round(a), round(b));
Line(320, 240, round(i), round(f));
Delay(2000);
SetColor(black);
Line(320, 240, round(a), round(b));
Line(320, 240, round(i), round(f));
Until keypressed;
Readkey; End.
Облысты бояу
Бояу шаблондары. Бояу процедурасы.
Паскаль графикасында кез-келген тұйық облысты бояуға болады. Облысты бояу процедурасының жазылу үлгісі:
Достарыңызбен бөлісу: |