|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите найти ошибку в построении графика
Нужно построить график (e^x)-(e^-x)-2
Вроде бы все написал, но когда нажимаю на кнопку построить, программа тупо виснет. Вот код: Код:
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; |
#2
|
||||
|
||||
Глянь сюда
Код:
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 := 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; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 28.09.2013 в 00:12. |