回 帖 发 新 帖 刷新版面

主题:求教!

[size=4]输入1~45之间的任一奇数N,在1 2 3 4 5 6 7 8 9=N这个式中填入“+”或“-”,使得等式成立。
完善程序:
do
  input n
loop until n mod 2=1 and n<=45 and n>=1
for i=1 to 9
  a(i)=i
  b$(i)="+"
next i
____(1)____
if m=1 then print "no!":end
do while m>l
  if nl=m+1 then l=_____(2)____
  m=____(3)____
  b$(l)="-"
  l=l-1
loop
____(4)____
for i=1 to 8
  print a(i);____(5)____
next i
print a(9);"=";n
end[/size]
 最好能把算法也写出来,谢谢了。

回复列表 (共4个回复)

沙发

cls
input n
for i=1 to 9
 a(i)=i
next i
c$(0)="+":c$(1)=0
do wheil b(1)=0
 s=a(1)
 for i=2 to 9
  if b(i)=0 then s=s+a(i) else s=s-a(i)
 next i
 if s=n then 
  print a(i);
  for j=2 to 8
   print c$(s);a(j)
  next j
  print "=";n
 end if
 k=9
 do wheil n=s
  k=k-1
  s=s+a(k)
  loop
  b(k)="0"
loop
end

板凳

这是另一种作法,但思路差不多,可以参考一下。别忘了加分

3 楼

[size=4]剑圣风暴,你是钱力?
韩老师班的?[/size]

4 楼

[size=4]是不是?
是的话加20分[/size]

我来回复

您尚未登录,请登录后再回复。点此登录或注册