程序设计题:编写程序计算

来源：百度知道 编辑：UC知道 时间：2024/05/20 01:59:58
编写程序计算S=1+1=2+1+2+3+1+2+3+4+……+1+2+3+4+……+n，当S〉2000时，n日最小值和此时的S值.

dim n,s as integer
n=0
s=0
k=0
n=0
while s<2000
t=0
for x=1 to y
t=t+x
n=n+1
next
k=k+t
end while

print "n=";n
print "S=";s

这是VB的,大概是这样,没有运行环境.
DELPHI与C及C++也差不多,原理上一致,语言表达不同而已.

au3程序
Dim $s=0,$n=0,$j=0
While $s<2000
$n=$n+1
For $i=0 To $n Step 1
$j=$i+$j
Next
$s=$s+$j
WEnd
MsgBox(0,"答案",$n&"和"&$s)