Функции.Delphi

[Tony Hudson]

Доброй утро! Нужно вычислить y=arctg(x), x лежит в диапазоне x>=0.1, x<=5 . В программе нужно использовать функцию.

procedure TForm1.Button1Click(Sender: TObject);
var  x,s,p,r: real;
k:integer;
function  ArcTan (k: Real ) : Real;
begin
if ((k>=0.1) and (k<=0.5)) then  Result:=ArcTan(k);
end;
begin
x:=StrTofloat(edit1.Text);
p:=1;
r:=ArcTan(k);
p:=p*ArcTan(k);
Edit2.Text:=FloatToStr(p);
end;

Программу написал, а вот на калькуляторе делаю проверку и ответ не сходится, в чем может быть ошибка?(Косяк в типах данных, но не могу исправить)

[evg_m]

Вводишь одно

  x:=StrTofloat(edit1.Text);

а вычисляешь совсем другое

  p:=p*ArcTan(k);

(Косяк в типах данных, но не могу исправить)

Убери (закомментируй) все переменнные.

///var x,s,p,r: real;
///k:integer;

и потом добавляй только то что попросит компилятор. (или исправляй код(имя переменной) чтобы не просил).

[Tony Hudson]

Сообщение от evg_m

Вводишь одно

  x:=StrTofloat(edit1.Text);

а вычисляешь совсем другое

  p:=p*ArcTan(k);

Убери (закомментируй) все переменнные.

и потом добавляй только то что попросит компилятор. (или исправляй код(имя переменной) чтобы не просил).

Спасибо,буду пытаться исправлять

Вот вроде бы исправил, но ответ все равно не сходится(

procedure TForm1.Button1Click(Sender: TObject);
var x,y,r: real; //x-Входные данные,
//y-Выходные данные,k- вещественная переменая, ArcTan-функция вещественного типа
k:real;
function ArcTan (k: Real ) : real;
begin
if ((k>=0.1) and (k<=0.5)) then Result:=ArcTan(k);
end;
begin
x:=StrTofloat(edit1.Text);
x:=1;
r:=ArcTan(k);
y:=x*ArcTan(k);
Edit2.Text:=FloatToStr(y);
end;

end.

По идее, у меня получается x и k одинаковые?

procedure TForm1.Button1Click(Sender: TObject);
var x,y,r: real; //x-Входные данные,
//y-Выходные данные,k- вещественная переменая, ArcTan-функция вещественного типа
k:real;
function ArcTan (k: Real ) : real;
begin
if ((k>=0.1) and (k<=0.5)) then Result:=ArcTan(k);
end;
begin
x:=StrTofloat(edit1.Text);
x:=k;
r:=ArcTan(k);
y:=ArcTan(k)*R;
Edit2.Text:=FloatToStr(y);
end;

end.

Код нужно оформлять правильно - кнопка # вверху

[evg_m]

у тебя ДОЛЖНО быть ровно три сточки вычислений (не считая самой функции)

???:=Strtofloat(???) ///ввод данных (задание значения переменной аргумента функции)
???:=ArcTan(???); ///вычисление значения функции (указание аргумента функции как параметра функции и задание значения переменной величины функции
???:=Floattostr(???); //вывод данных (вывод величины функции)

и ровно столько переменных чтобы было куда записать
1) Аргумент функции
2) Величина функции
Вместо ??? и должны быть использованы данные (перечисленные выше) 1),2) переменные и места ввода/вывода данных (EditX.text).