В графическом режиме отобразить график

Помогите,пожалуйста!
В графическом режиме отобразить график y=(x*(3-x))/((1-x)*sqr(1-x))

Добавлено через 10 часов 57 минут
Что неправильно в этой программе? выводит ошибку 207:Invalid floating point operator.


Uses Graph;
const a=20;
Var x1,y1,n: integer;
gd,gm: integer;
x,y:real;
xt,yt:integer;

Procedure GRAPHIK(x1,y1:integer);
begin
setcolor(2);
line(0,getmaxy div 2,getmaxx-5,getmaxy div 2); {x}
setcolor(2);
line(getmaxx div 2,getmaxy,getmaxx div 2,5); {y}

MoveTo(getmaxx-5,getmaxy div 2);
setcolor(2);
Lineto(getmaxx-12,(getmaxy div 2)-3);
MoveTo(getmaxx-5,getmaxy div 2);
setcolor(2);
Lineto(getmaxx-12,(getmaxy div 2)+3);

MoveTo(getmaxx div 2,5);
setcolor(2);
LineTo((getmaxx div 2)-3,5+9);
MoveTo(getmaxx div 2,5);
setcolor(2);
LineTo((getmaxx div 2)+3,5+9);
x1:=-81;
while x1<=600 do
begin
setcolor(2);
line(x1,getmaxy div 2-2,x1,getmaxy div 2+2);
x1:=x1+a;
end;
y1:=-161;
while y1<=500 do
begin
setcolor(2);
line(getmaxx div 2-2,y1,getmaxx div 2+2,y1);
y1:=y1+a;
end;
OutTextXY((getmaxx div 2)+8,6,'y');
OutTextXY(getmaxx-11,(getmaxy div 2)+6,'x');
OutTextXY(getmaxx div 2+4, getmaxy div 2+4,'0');
end;

begin
gd:=0;
InitGraph(Gd,Gm,'C:\TP\BGI');

GRAPHIK(x1,y1); {PROCEDURA}
setcolor(1);
OutTextXY(40,30,'y=(x*(3-x))/(1-3*x+3*x*x-x*x*x)');

x:=-20;
MoveTo(-10,240);
setcolor(1);
while x<15 do
begin
y:=(x*(3-x))/(1-3*x+3*x*x-x*x*x);
xt:=round(320+x*a);
yt:=round(240-y*a);
LineTo(xt,yt);
x:=x+0.001;
end;
readln;
closegraph;
end.

0

y=(x*(3-x))/((1-x)*sqr(1-x))

(1-x) промежуток [-20 15].
при вычисленни ( если х=1 ) знаменатель равен нулю. возможно в єтом ошибка

0

вряд ли,т.к. то что х не равен 1 он делает,ошибку выводит когда в знаменателе возведение в куб ставишь. если исправить куб на квадрат,то все нормально. Но мне то нужен знаменатель в кубе!

0

Помогите,пожалуйста! Очень надо!

0