Построение графика функции, (разделено) Опции

[LOVE133]

Сообщения разделены из темы: Построение любого графика

мне нужно найти все корни уравнения...делать буду методом деления отрезка пополам, но препод сказал, для того чтобы найти интервалы , нужно построить график...естественно маткад ем уне нравится ))) так что строю свой график... воспользовалась вашей программой. рисует точки, и не то что надо , и как с помощью этого графика найти те самый интервалы. елси разбиения на сетку нет и нет масштаба... вот что получилось

{$n+}
{$E+}
Uses Graph,crt;
const
{ OPTIONS }
     a0=22.5;
     a1=-123;
     a2=-28;
     a3=35.1;
     a4=453.5;
     a5=130;
shag=0.0001;
lgr = -10;
pgr = 10;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
     grMode : Integer;

   x,y:real;{extended;}
       i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;
while x<=pgr do
begin
{ readln(x);}
{***} begin  y:=a0*sqr(x)*sqr(x)*x+a1*sqr(x)*sqr(x)+a2*sqr(x)*x+a3*sqr(x)+a4*x+a5; {***}
{ writeln(y:1:8);}
 putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
 x:=x+shag;
end;
readkey;
closegraph;
end.