Глянь сюда
Код:
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 ;
|
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Последний раз редактировалось angvelem, 28.09.2013 в 00:12.
|