主题：[讨论]一道难题
网络爱好者
[专家分：60] 发布于 2006-08-27 09:56:00
让计算机找出40个自然数来，使得其中任意两个数之差均不相等。
回复列表 （共2个回复）
沙发
moz [专家分：37620] 发布于 2006-08-27 11:43:00
m% = 40
DIM a%(m%)
DIM c%(m% * m%)
FOR i% = 1 TO m%
DO
j% = j% + 1
FOR k% = 1 TO kk%
IF j% = c%(k%) THEN EXIT FOR
NEXT
LOOP UNTIL k% > kk%
a%(i%) = a%(i% - 1) + j%
FOR ii% = 1 TO i% - 1
kk% = kk% + 1
c%(kk%) = a%(i%) - a%(ii%)
NEXT
NEXT
[url=http://www.programfan.com/club/old_showbbs.asp?id=58701]详情请参阅这一张旧贴[/url]
板凳
moz [专家分：37620] 发布于 2006-08-27 12:03:00
最简单的是：
for c=40 to 79
b=b+c
print b;
next
我来回复
您所在位置：