Я пишу курсовую, мне нужно нарисовать график функции. Но эта функция в цикле и мне нужно, чтоб она выводила каждое значение в точку на графике.Есть какие-нибудь мысли? Или сделать через tchar, но как? Пробовал так:
Function y1(x:real):real;
begin
y1:=cos(x)-(4*x)+1;
end;
Function y2(x:real):real;
begin
y2:=-sin(x)-4;
end;
Function y3(x:real):real;
begin
y3:=-cos(x);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
a1:=StrToFloat(Edit1.Text);
b1:=StrToFloat(Edit5.Text);
d:=StrToFloat(Edit4.Text);
begin
if (abs(y1(a1)*y3(b1))>d)then
w:=a1 else w:=b1;
end;
x:=w-(y1(w)/y2(w));
while (abs(y1(w))<d) do
w:=x;
end;
xr1:=x;
Label1.Caption:='метод касательных='+FloatToStr(xr1);
end;