график программы!

[creshik]

Вообщем,нужно,чтобы программа показывала графически как ведет себя функция.С ами не очень,спасайте(.А еще если кто знает может сказать,как сделать,чтобы функция задавалась не с кода,а с экрана?

PROGRAM GUFRIP2;
Uses Crt;

Function f(x: Double): Double;
Begin
f:=x*x+x*x*2-3;
End;

Var
x, Eps, a, b, c: Double;


begin
ClrScr;
a:=-100;
b:=100;
Eps:=0.0001;

Repeat
c := (a + b) / 2;
If (f(a) * f(c)) <= 0 Then b := c
Else a := c;
writeln(' ',c:4:7,' ',f(c):4:7);
Until (b - a) <= Eps;

x := (a + b) / 2;
WriteLn('корень* x=', x:10:7);

ReadKey
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Sciv]

не с кода,а с экрана?

Для этого Вам нужно парсер строк задавать - чтобы строковый вид функции превратить внутри программы в нормальную функцию.