Курсовая работа: Розробка засобами Delphi дидактичного ілюстративного матеріалу для розвязання задачі з аналітичної

x:=x+dx;

until(x>xmax);

y:=ymin;

repeat

Ye:=round(my*(-y+ymax)+b1);

if Checkbox1.Checked=true then

begin

MoveTo(a1,ye);LineTo(a2,ye);

end;

if checkbox3.checked=true then

begin

if y<>0 then textOut(x0-20,ye-5,FloatToStr(y));

end;

y:=y+dy;

until(y>ymax);

Font.Color:=clBlack;

If Checkbox2.Checked=true then

begin

Pen.Width:=2;

Pen.Color:=Colorbox1.Selected;;

Pen.Style:=psSolid;

MoveTo(a1,y0); LineTo(a2,y0);

MoveTo(x0,b1); LineTo(x0,b2);

end;

If v=1 then

begin

X1:=yC-yA;Y1:=xA-xC;

Z1:=xA*yC-xC*yA;

X2:=yD-yB;Y2:=xB-xD;

К-во Просмотров: 443
Бесплатно скачать Курсовая работа: Розробка засобами Delphi дидактичного ілюстративного матеріалу для розвязання задачі з аналітичної