2 функции: y=a+b*x*sin(c*x+d) и y=k*x
Сделал так: проверять до тех пор, пока функция1-функция2 не станет равно 0.
код:
begin
x:=0.01;
repeat
x:=x+0.01;
until a+b*x*sin(c*x+d)-k*x<0.001; //приблизительно равно 0
end;
что-то запускается, но не работает... не в курсе почему?
|