Бағдарламалау технологиялары және тілдер



жүктеу 1,75 Mb.
бет47/84
Дата06.01.2022
өлшемі1,75 Mb.
#36866
1   ...   43   44   45   46   47   48   49   50   ...   84
интеграция

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.

Облысты бояу

Бояу шаблондары. Бояу процедурасы.

Паскаль графикасында кез-келген тұйық облысты бояуға болады. Облысты бояу процедурасының жазылу үлгісі:




жүктеу 1,75 Mb.

Достарыңызбен бөлісу:
1   ...   43   44   45   46   47   48   49   50   ...   84




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау