Исправить ошибку

[LLIypLLIyH]

Нужно построить график по формуле y=|x-30|(в кубе)+40

Яделаю, а он мне точки рисует левые совсем, помогите исправить.

program g;
Uses Graph,crt;
const
{ OPTIONS }
shag=0.1;
lgr = -50;
pgr = 150;
zcrtX=320;
zcrty=240;
mtrX=1;
mtrY=0.001;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;

x,y:real;
i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'E:\bp\bgi');
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
if x<>0 then begin y:=abs((x-30)*(x-30)*(x-30))+40;
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.

[_Dmitry]

Все у тебя правильно рисует.
Поставь масштаб по Y = 1: mtrY=1;
И сделай проверку на выход за границы переменной Integer. Цикл будет таким:

while x<=pgr do
begin
  y:=abs((x-30)*(x-30)*(x-30))+40;
  if abs(y) < MaxInt then
    putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg);
  x:=x+shag;
end;

[puporev]

У меня нормально рисует, только сам график не на месте, у него минимум должен быть по х=+30 по у=+40, а у тебя по х в принципе в ту сторону, делений-то нет, а по у=0, лежит на оси х, а должен быть выше, где-то ошибка в расчетах, или ось х опусти вниз.

[LLIypLLIyH]

Он получился В верхней правой четрверти??

А как на координатные оси цифры нанести?

[_Dmitry]

Он получился В верхней правой четрверти??

Все правильно, а где он по-вашему должен быть?

А как на координатные оси цифры нанести?

Например, наносим шкалу по оси X с шагом в 10 единиц.
Для этого вычисляем положение засечки на шкале: zcrtx+trunc(i*10*mtrX), здесь i - номер засечки. Рисуем ее и ставим цифру. По оси Y аналогично.

[LLIypLLIyH]

А. Спасибо