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

Мұндағы Rx, Ry- пикселмен өрнектелген Х және У бағыттарындағы эллипстің жарты осьтері.

Var k, n:integer;

Begin

k:=detect;

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.

x:=30;

Begin

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

y:= 150- trunc(f*100);

x:= 50+i*5;

Line(x0, y0, x, y);

y0:=y; x0:=x

end.

Uses crt, graph;

Var k, n:integer;

a, b, c, d, i, f:real;

begin

k:detect;

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.

Облысты бояу

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

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