如何在函数Pascal中定义变量

Question

function F(x:real) : real;
begin
  F := a*power(x,2);
end;

伙计们，我需要帮助。我正在使用Lazarus的形式，我想用变量＆＃39; a＆＃39;那里。变量a是一个输入，就像a:= StrToInt(Edit1.Text);一样 然后如何定义那里？

Answer 1

你应该让a成为函数的参数。

function F(a: Integer; x: real): real;
begin
  F := a*power(x,2);
end;

此外，对整数指数使用power是昂贵的并且不是非常准确。使用直接乘法，在这种情况下，您可以使用sqr。

function F(a: Integer; x: real): real;
begin
  F := a*sqr(x);
end;

现在，当您调用该函数时，您可以使用StrToInt(Edit1.Text)获取传递给函数的a的值。或者你确实可以使用其他方法获得a。

所有这一切都是为了避免您的算术功能需要您的UI知识。