主题:编程验证歌德巴赫猜想该怎样编?
ahei
[专家分:150] 发布于 2005-06-02 19:40:00
[em18]
编程验证歌德巴赫猜想该怎样编?
回复列表 (共12个回复)
沙发
ahei [专家分:150] 发布于 2005-06-02 19:47:00
弟兄们,快呀!
板凳
ahei [专家分:150] 发布于 2005-06-02 19:59:00
[em10][em10][em10][em18][em18][em19][em19][em19]
3 楼
ahei [专家分:150] 发布于 2005-06-02 20:00:00
[em1][em1][em1][em8][em8][em8][em10][em10][em10][em16][em16][em16][em18][em18][em18][em19][em19][em19]
4 楼
ahei [专家分:150] 发布于 2005-06-02 20:29:00
快快!
5 楼
ahei [专家分:150] 发布于 2005-06-02 20:34:00
急啊……
6 楼
QB71 [专家分:1300] 发布于 2005-06-02 21:05:00
不知道
7 楼
ahei [专家分:150] 发布于 2005-06-02 21:16:00
快
8 楼
moz [专家分:37620] 发布于 2005-06-03 00:34:00
快
快快快快快快
急死了急死了急死了
都急了二三十年了,没关系了,再等下去呗.
9 楼
li010450 [专家分:70] 发布于 2005-06-04 22:13:00
CLS
N=6
DO WHILE N <=100
A=3
FF=0
DO WHILE A<= N / 2 AND FF=0
B=N-A
REM 判断B是否为素数
LET Q=2
LET F=1
LET M =SQR(B)
DO WHILE Q <=M AND F=1
IF B MOD Q = 0 THEN F =0 ELSE Q = Q+1
LOOP
IF F=1 THEN
FF=1
ELSE
REM 求下一个素数A
FA=0
DO WHILE A <=N/2 AND FA=0
LET A=A+2
LET Q=2
LET F=1
LET M=SQR(A)
DO WHILE Q<=M AND F=1
IF F =1 THEN LET FA=1
LOOP
END IF
LOOP
IF FF = 0 THEN
PRINT "BUCHENGLI"
ELSE
PRINT N;"="A;"+";B,
END IF
N=N+2
LOOP
END
大概是这个,你自己看看吧
10 楼
ahei [专家分:150] 发布于 2005-06-13 17:18:00
这个题不是我发的,有人抢了我的用户名和密码!
我来回复