请大家帮我把公式转成Delphi的代码~

Question

_______________________
  / 1  _10_      ___　2　
\/ ___ \     (Fi- f )
    9  /___
       i=1  
---
 f   表示的是f的平均数
 
后面那个2是平方.
不好意思,写的不好,大家帮我看看.

Answer 1

function Result(F:array [1..10] of real):real;
var i,j:integer; f,s:real;
begin
   f:=0;//平均数
   s:=0;//平方和
   for i:=1 to 10 do
      f:=f+F[i]
   f:=f/10;
   for i:=1 to 10 do
    s:=s+sqr(F[i]-f);
   Result:=sqrt(s/9);
end;

Answer 2

上面那位兄弟
不要使用保留标识号Result为函数名呀
要改为别的/ by LY http://www.99898.com/www/lysoft