主题：编一个非非非......常简单的题目！~~~
神秘侠客
[专家分：80] 发布于 2007-12-27 21:02:00
求10、12、14平方的和。（用过程）
超超超超超超超超超简单！~
回复列表 （共18个回复）
11 楼
傲视人间 [专家分：60] 发布于 2008-03-28 19:53:00
PRINT 10^2+12^2+14^4
12 楼
flyping [专家分：0] 发布于 2008-03-29 01:56:00
cls
option base1
Dim a(3)
for i=1to3
read a(i)
next i
data 10 ,14 ,20
sum=1
for i=1to3
sum=a(i)^2
next i
print sum
end
这是用一维数组做的，是麻繁了点但你们都不去想，所以我这样做了
13 楼
moz [专家分：37620] 发布于 2008-03-29 16:21:00
[quote]sum=a(i)^2[color=0000ff]+sum[/color][/quote]
14 楼
世界第一 [专家分：210] 发布于 2008-04-23 13:26:00
cls
data 10,14,20
for i=1 to 3
read a(i)
gosub 100
next i
print s
end
100:s=s+a(i)^2
return
15 楼
科比*布莱恩特 [专家分：40] 发布于 2008-04-29 17:35:00
a = 10*10+12*12+14*14
print a
16 楼
54小诚 [专家分：90] 发布于 2008-05-01 14:22:00
cls
a=10
b=12
c=14
call da(a,b,c,d)
print d
sub da(e,f,g,h)
h=a^2+b^2+c^2
上一楼那位，来刷分得把！！！！刷也要刷有水平的！！！！！！！
[em18][em18][em18][em18][em18][em18][em18][em18]
17 楼
小BASIC [专家分：10] 发布于 2008-06-14 22:12:00
a=sqr（10）
b=sqr（12）
c=sqr（14）
print a+b+c
18 楼
def [专家分：3380] 发布于 2008-08-11 23:25:00
sub add(abc,def)
abc=abc+def^2
end sub
a=0
for i=10 to 14 step 2
add a,i
next i
我来回复
您所在位置：