竖式Mato老师已经给我讲了,你给我讲讲这个问题好吗,我一遇到相关问题就运行速度太慢,我15号要去竞赛,你帮帮我好吗

竖式Mato老师已经给我讲了,你给我讲讲这个问题好吗,我一遇到相关问题就运行速度太慢,我15号要去竞赛,你帮帮我好吗

这一道题是拿来锻炼你对"节点"的认识的.
给你的提示是: 从某一点出发,到目的地,有若干条路线,把路线记录下来
这一点的上一个点,最多有两条路线,右或下,
这一点的路线就是它与下一两点的路线的和,

估计你是看不明白的,看多几次再说吧.

这我知道,我也是这么想的呀,可一运行到7以上的数就太慢

你需要把节点保存下来以便上一个节点调用使用.
当所以的节点都保存完后,就能得出结果了.
只是按倒序保存一次节点,花不了太多时间的,
关键是你怎样来处理数据罢了.

我估计十个人当中会有九点九个使用数组来解决这个问题.
但依我看,QB的字符串处理比数组处理功能更丰富更灵活更方便更快捷.

[quote]这一道题是拿来锻炼你对"节点"的认识的.
给你的提示是: 从某一点出发,到目的地,有若干条路线,把路线记录下来
这一点的上一个点,最多有两条路线,右或下,
这一点的路线就是它与下一两点的路线的和,

估计你是看不明白的,看多几次再说吧.[/quote]

这是个比较高效的算法，只要把矩陈遍历一次就可以，很快的。别说20，就是200,2000也会很快出来结果。

呵呵,2000? 你用QB运行给我看看

可我不知道用字符串保存后怎么处理,怎么寻找素数

declare function nextzs%(a%)
declare function geta$(i!)
declare function adda$(x$,y$,v!)
defint a-z
dim shared n,nn,s$
input n
nn=n*n
dim shared a$(nn)
s$=string$(nn,49)
for i=2 to(n+1)\2
    for j=(i-1)*n+i to nn-i*n+i step n
        mid$(s$,j,n-i*2+2)=string$(n,48+i)
next j,i
p=0
for i=nn to n step-n
    p=p+1
    a$(i)=mki$(p)+mkl$(1)
next
p=0
for i=nn to(nn-n+1)step-1
    p=p+1
    a$(i)=mki$(p)+mkl$(1)
next
i=nn-1
do
    i=i-n
    if i<1 then i=i+nn-n-1
    a$(i)=adda$(a$(i+1),a$(i+n),asc(mid$(s$,i,1))-48)
    a$(i+1+n)=""
loop until i=1
q@=0
for i=1 to len(a$(1))step 6
    j=cvi(mid$(a$(1),i,2))
    if j=nextzs%(j)then q@=q@+cvl(mid$(a$(1),i+2,4))
next
print q@

defsng a-z
function adda$(x$,y$,v)
z$=x$+y$
lx=len(x$)
i=1
do while i<len(z$)
  if i<lx then
    j$=mid$(z$,i,2)
    k=instr(lx+1,z$,j$)
    do while k>0
       if k mod 6=1 then
          mid$(z$,i+2,4)=mkl$(cvl(mid$(z$,i+2,4))+cvl(mid$(z$,k+2,4)))
          z$=left$(z$,k-1)+mid$(z$,k+6)
          k=instr(k,z$,j$)
       else
          k=instr(k+1,z$,j$)
       end if
    loop
  end if
  mid$(z$,i,2)=mki$(v+cvi(mid$(z$,i,2)))
  i=i+6
loop
adda$=z$
end function

defint a-z
function nextzs%(a)
static s$
if len(s$)=0 then s$=mki$(2)+mki$(3)+mki$(5)+mki$(7)
e=len(s$)\2
z=cvi(right$(s$,2))
select case a
case is<=2
  nextzs%=2
case is>=z
  do until z>=a
    do
      if e>fre(" ")\4-10 or z>32765 then
        print "error!   out of memory!"
        exit function
      end if
      z=z+2
      if(z mod 3)<>0 and(z mod 5)<>0 then
        i=4
        q=sqr(z)
        do
          k=cvi(mid$(s$,i*2-1,2))
          if z mod k=0 then exit do
          i=i+1
        loop until k>q
      end if
    loop until k>q
    e=e+1
    s$=s$+mki$(z)
  loop
  nextzs%=z
case is<z
  l=1
  r=e
  do
    m=(r+l)/2
    b=cvi(mid$(s$,m*2-1,2))
    if a>b then l=m else r=m
  loop until r-l<2
    nextzs%=cvi(mid$(s$,r*2-1,2))
end select
end function

如果你看得明白,那我可真是对你拜服的五体投地了,因为我自己都没看明白.

缩减一下.

defint a-z
input n
dim shared a0%(n,n),a1&(n),a2@(n),a3$(n)
for i=1 to n
    for j=i to n-i+1
        for k=i to n-i+1
            a0%(j,k)=i
next k,j,i
for i=n to 1 step-1
    a3$(n)=mki$(n-i+1)+mkl$(1)
    for j=n-1 to 1 step-1
        a3$(j)=adda$(j,a0%(i,j))
next j,i
q@=0
for i=1 to len(a3$(1))step 6
    j=cvi(mid$(a3$(1),i,2))
    if j=nextzs%(j)then q@=q@+cvl(mid$(a3$(1),i+2,4))
next
print q@

function adda$(j,v)
z$=a3$(j)+a3$(j+1)
lx=len(a3$(j))
i=1
do while i<len(z$)
  if i<lx then
    j$=mid$(z$,i,2)
    k=instr(lx+1,z$,j$)
    do while k>0
       if k mod 6=1 then
          mid$(z$,i+2,4)=mkl$(cvl(mid$(z$,i+2,4))+cvl(mid$(z$,k+2,4)))
          z$=left$(z$,k-1)+mid$(z$,k+6)
          k=instr(k,z$,j$)
       else
          k=instr(k+1,z$,j$)
       end if
    loop
  end if
  mid$(z$,i,2)=mki$(v+cvi(mid$(z$,i,2)))
  i=i+6
loop
adda$=z$
end function

function nextzs%(a)
static s$
if len(s$)=0 then s$=mki$(2)+mki$(3)+mki$(5)+mki$(7)
e=len(s$)\2
z=cvi(right$(s$,2))
select case a
case is<= 2
  nextzs%=2
case is>= z
  do until z>= a
    do
      if e>fre(" ")\4-10 or z>32765 then
        print "error!   out of memory!"
        exit function
      end if
      z=z+2
      if(z mod 3)<>0 and(z mod 5)<>0 then
        i=4
        q=sqr(z)
        do
          k=cvi(mid$(s$,i*2-1,2))
          if z mod k=0 then exit do
          i=i+1
        loop until k>q
      end if
    loop until k>q
    e=e+1
    s$=s$+mki$(z)
  loop
  nextzs%=z
case is<z
  l=1
  r=e
  do
    m=(r+l)/2
    b=cvi(mid$(s$,m*2-1,2))
    if a>b then l=m else r=m
  loop until r-l<2
    nextzs%=cvi(mid$(s$,r*2-1,2))
end select
end function