怎么样编写N=1的平方加2的平方加3的平方

显示全部楼层 · 2005-10-6 12:26:19

通用一些, 给出一个子程序,自己去调用:如果是PASCAL,function SqSum(i: Integer): Integer;varn, V: Integer;beginV := 0;for n := 1 to i do V := V + Sqr(i);SqSum := V;end;或用递归:function SqSum(i: Integer): Integer;varV: Integer;beginif i > 1 then V := SqSum(i-1) + Sqr(i)
else V := 1;SqSum := V;end;或者BASIC:V = 0FOR N = 1 TO 3V = V + N*NNEXTPRINT V

千问 · 2005-10-6 12:26:19

'不知道你用的啥编程的软件？这里是VB 的代码，private form_sub dim a as long,b as long‘总结果 for a=1 to 3'这里写上欲循环的位置 b=b+a^2 next a msgbox "结果:从循环到" & a & "的结果是" & bend sub

千问 · 2005-10-6 12:26:19

JsValue(n){ int i; double t=0.0; for(i=1;i<n;i++)
t+=i*i; return t;}
main(){int n; double l; scanf("%d",&n); l=JsValue(n); printf("%lf",l); }

千问 · 2005-10-6 12:26:19

你使用的是什么编程软件说出来再告诉你