Delphi. График

[Puzz1e]

Здравствуйте, у меня большая просьба. Не получается программа в которой нужно построить график, график просто не выводится. Помогите кто может пожалуйста

[VadEr]

Поставь "x" как целочисленный элемент (например: byte).

[Puzz1e]

теперь выводится ошибка
---------------------------
Project1_2
---------------------------
Invalid floating point operation.
---------------------------
ОК
---------------------------

[Stilet]

Попробуй такой вариант:

procedure TForm1.Button2Click(Sender: TObject);
begin  {$o-}
a:=strtofloatdef(edit1.Text,1);
b:=strtofloatdef(edit2.Text,10);
x:=1; while x<=100 do begin
    y:=sqrt((sqr(x)/sqr(a)-1)*sqr(b));
    With Form1.Canvas do Begin
        Brush.Color:=clblue;
        Pen.Color:=clRed;
        Pen.Width:= 3;
        Moveto(round(x)+100,round(y)+100);
        LineTo(round(x)+100,round(y)+100);
    end;
    x:=x+1;
end;
end;

P.S. Я бы лучше взял для графика TChart.

[Puzz1e]

ту же ошибку выводит на формуле y=.. останавливается ((

[Stilet]

ту же ошибку выводит на формуле y=.. останавливается ((

У меня запускается и чертит на ура.
(Пользую Delphi 6)

[Puzz1e]

у меня Delphi 7, сейчас попробовала перезапустить, все так же ((
плохой из меня программист

[Puzz1e]

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

У меня запускается и чертит на ура.
(Пользую Delphi 6)

а можно тебя попросить прислать эту программу которая у тебя запускается и чертит?

[Kostia]

sqrt(отрицательное число!!!)
Попробуй так:
y:=sqrt(abs((sqr(x)/sqr(a)-1)*sqr(b)));
или как-то по другому исключить получения отрицательного значения в корне квадратном!

[Puzz1e]

большое спасибо!!!! теперь хоть что то чертит!!! ))))