График функции в PascalABC

[tarhun69]

Построить график функции гиперболы (1/x)
Заранее спасибо!

[Arigato]

Построил. Не благодарите.

[tarhun69]

Arigato, Здравствуйте, ну в общем то я пытался, но всегда выходит ошибка:
Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32.

[Arigato]

Скорее всего у вас возникало деление на 0. Покажите свой код.

[tarhun69]

Arigato,

uses graphABC;
function f1(x:real):real;
begin
f1:=1/x
end;
var c,i:integer;
    x1,x2,x3,x4,x,m:real;
begin
setwindowsize(500,500);
centerwindow;
c:=windowwidth div 2;
m:=(c-20)/3;
line(0,c,2*c-10,c);
setpenwidth(1);
line(c,10,c,2*c);
for i:=1 to 3 do
 begin
  line(c+round(i*m),c-3,c+round(i*m),c+3);
  line(c-round(i*m),c-3,c-round(i*m),c+3);
  textout(c+round(i*m),c+10,inttostr(i));
  textout(c-round(i*m)+5,c+10,inttostr(-i));
  line(c-3,c-round(i*m),c+3,c-round(i*m));
  line(c-3,c+round(i*m),c+3,c+round(i*m));
  textout(c-20,c-round(i*m),inttostr(i));
  textout(c-25,c+round(i*m),inttostr(-i));
 end;
x:=x1;
moveto(c+round(x*m),c-round(f1(x)*m));
while x<=x2 do
 begin
  lineto(c+round(x*m),c-round(f1(x)*m));
  x:=x+0.01;
 end;
x:=x3;
moveto(c+round(x*m),c-round(f1(x)*m));
while x<=x4 do
 begin
  lineto(c+round(x*m),c-round(f1(x)*m));
  x:=x+0.01;
 end;

end.

[Arigato]

Поправил в вашем коде:

uses graphABC;
function f1(x:real):real;
begin
f1:=1/x
end;
var c,i:integer;
    x1,x2,x3,x4,x,m:real;
    b: boolean;
begin
setwindowsize(500,500);
centerwindow;
c:=windowwidth div 2;
m:=(c-20)/3;
line(0,c,2*c-10,c);
setpenwidth(1);
line(c,10,c,2*c);
for i:=1 to 3 do
 begin
  line(c+round(i*m),c-3,c+round(i*m),c+3);
  line(c-round(i*m),c-3,c-round(i*m),c+3);
  textout(c+round(i*m),c+10,inttostr(i));
  textout(c-round(i*m)+5,c+10,inttostr(-i));
  line(c-3,c-round(i*m),c+3,c-round(i*m));
  line(c-3,c+round(i*m),c+3,c+round(i*m));
  textout(c-20,c-round(i*m),inttostr(i));
  textout(c-25,c+round(i*m),inttostr(-i));
 end;
x1:=-3; x2:=3;
x:=x1;
b:=true;
while x<=x2 do
 begin
  if x<>0 then begin
    if b then begin
      moveto(c+round(x*m),c-round(f1(x)*m));
      b:=false;
    end else lineto(c+round(x*m),c-round(f1(x)*m));
  end else b:=true;
  x:=x+0.01;
 end;
{x:=x3;
moveto(c+round(x*m),c-round(f1(x)*m));
while x<=x4 do
 begin
  lineto(c+round(x*m),c-round(f1(x)*m));
  x:=x+0.01;
 end;}

end.

[tarhun69]

Arigato, Спасибо большое, ошибка все еще выходила, но как я понял PascalABC.net выламывается при близких значениях к 0 , скачал PascalABC и все работает)

[Arigato]

Сообщение от tarhun69

как я понял PascalABC.net выламывается при близких значениях к 0 , скачал PascalABC и все работает

Так это вообще разные Паскали...