[Flop88]

Нужно построить график (e^x)-(e^-x)-2
Вроде бы все написал, но когда нажимаю на кнопку построить, программа тупо виснет.
Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.btn1Click(Sender: TObject); var   x,y:Real; begin x0:=img1.Width div 2; y0:=img1.Height div 2; // Выводим подсчеты в lbl2  x:= StrToInt(edt1.Text); //Считываем переменную Х  y:= (Exp(x*ln(e))-(Exp(-x*ln(e))) -2);  lbl2.Caption := FloatToStr(y); //   // Строим график   img1.Canvas.MoveTo(Trunc(x0),Trunc(y0));   repeat    x:= StrToInt(edt1.Text);    x:= x+1;    y:= (Exp(x*ln(e))-(Exp(-x*ln(e))) -2);    img1.Canvas.LineTo(Trunc(x),Trunc(y));   //   until x>=50;  end;

[angvelem]

Глянь сюда

Код:

1 2 3 4 5 6 7

repeat   x := StrToInt(edt1.Text); // Вот это!!!   x := x + 1;   y := (Exp(x * ln(e)) - (Exp(-x * ln(e))) - 2);   img1.Canvas.LineTo(Trunc(x), Trunc(y));   // until x >= 50;

Цикл тупо виснет, X никогда не достигнет 50.
Исправляем.

Код:

1 2 3 4 5 6 7

x :=  StrToInt(edt1.Text); // Вот это!!! repeat   x := x + 1;   y := (Exp(x * ln(e)) - (Exp(-x * ln(e))) - 2);   img1.Canvas.LineTo(Trunc(x), Trunc(y));   // until x >= 50;