趣味找数字

ljw990485

找3个数就好办，穷举也很快，
option base 1
dim i as integer,j as integer,k as integer,A() as double,Target as double
dim t as double
n=?多少个就输入多少吧
Redim A(n),自己写程序输入这n个数和目标数Target
for i=1 to n-2
    for j=i+1 to n-1
        t=A(i)+A(j)
        for k=j+1 to n
           if abs(t+A(k)-Target)<1.0e-10 then
               输出 i,j,k，只找一组的话就结束
        endif
  多个next
以上程序循环次数
1）给定i,j
k循环 n-(j+1)+1=n-j次
2）故给定i后，j，k循环次数为
[n-(i+1)]+[n-(i+2)]+...+1=(n-i)(n-i-1)/2＝（n-i)^2/2-(n-i)/2
3)最大循环次数
[(n-1)^2+...+2^2]/2-[(n-1)+...+2]/2
=n(n-1)(n-2)/6=O(n^3/6)
n=1000时，最大循环数为166167000，不算大，关键是运算非常简单

ljw990485

如果用0-1规划的方法，也可以，但可能会带来误差的问题
而穷举的方法只有2个加法，舍入误差的影响比较小

ljw990485

靠，程序一样的

不过有一个地方不一样，大家看出来了吗？

fArray(i) + fArray(j) + fArray(k) = fSum

1）浮点数不能这样判断是否相等
2）多一次加法，循环很多次的话，量就很大哦