Помогите с графиком PASCAL

[ANARHIST]

|(100* x^2)-(400*y^2)|=2500

[Stilet]

И что не получается? График нарисовать или выделить x,y?

[puporev]

Когда Вы преобразуете выражение и выразите у через х, то получите 4 графика, два из которых делятся на 2 ветки, т.е. Вам надо нарисовать 6 графиков. Имея формулы для них остается только выбрать точки начала и конца каждого графика, перевести реальные координаты в координаты экрана, подобрать масштабирование по осям и все. Что должно получиться, во вложении.

[ANARHIST]

он не выдаёт графика тоесть пустое окно

[Stilet]

он не выдаёт графика

Код в студию )

[ANARHIST]

program g;
Uses Graph,crt;
const
{ OPTIONS }
shag=0.001;
lgr = -50;
pgr = 150;
zcrtX=320;
zcrty=240;
mtrX=1;
mtrY=1;
colorG=15;
colorOXY=14;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;
Var
k:byte;
x,dx,x1,x2,y:real;
mx,my,x0,y0,px,py:integer;
graphdriver,graphmode:integer;
s,path:string;
procedure Grid(X1,Y1,X2,Y2:integer;k:real);
var i:integer;
Begin
graphdriver:=detect;
graphmode:=0;
initgraph(graphdriver,graphmode,' ');
if k>=8 then
begin
i:=X1+((X2-X1) div 2);
repeat
line(i,Y1,i,Y2);
i:=i+round(k);
until i>=X2;
i:=X1+((X2-X1) div 2);
repeat
line(i,Y1,i,Y2);
i:=i-round(k);
until i<=X1;
i:=Y1+((Y2-Y1) div 2);
repeat
line(X1,i,X2,i);
i:=i+round(k);
until i>=Y2;
i:=Y1+((Y2-Y1) div 2);
repeat
line(X1,i,X2,i);
i:=i-round(k);
until i<=Y1;
end;
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
y:=(sqrt(abs(-2500+(100)*(x*x)/400)) );
if abs(y) < MaxInt then

putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg);
x:=x+shag;
end;

end;
begin
readln;
closegraph;
end.

[puporev]

Поправил твой код, но рисует неизвестно что.

program g;
Uses Graph,crt;
const
{ OPTIONS }
shag=0.001;
lgr = -50;
pgr = 150;
zcrtX=320;
zcrty=240;
mtrX=1;
mtrY=1;
colorG=15;
colorOXY=14;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;
Var
k:byte;
x,dx,y:real;
x1,y1,x2,y2:integer;
mx,my,x0,y0,px,py:integer;
graphdriver,graphmode:integer;
s,path:string;
procedure Grid(X1,Y1,X2,Y2:integer;k:real);
var i:integer;
Begin
graphdriver:=detect;
graphmode:=0;
initgraph(graphdriver,graphmode,' ');
if k>=8 then
    begin
      i:=X1+((X2-X1) div 2);
      repeat
      line(i,Y1,i,Y2);
      i:=i+round(k);
      until i>=X2;
      i:=X1+((X2-X1) div 2);
     repeat
     line(i,Y1,i,Y2);
     i:=i-round(k);
     until i<=X1;
     i:=Y1+((Y2-Y1) div 2);
     repeat
     line(X1,i,X2,i);
      i:=i+round(k);
     until i>=Y2;
     i:=Y1+((Y2-Y1) div 2);
     repeat
     line(X1,i,X2,i);
     i:=i-round(k);
     until i<=Y1;
  end;
  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
       y:=(sqrt(abs(-2500+(100)*(x*x)/400)) );
       if abs(y) < MaxInt then
       putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg);
       x:=x+shag;
    end;
end;
begin
clrscr;
Grid(X1,Y1,X2,Y2,k);
readln;
closegraph;
end.