20CN网络安全小组论坛 - 编程破解 - 帮忙：懂Qbasic的来！

论坛: 编程破解标题: 帮忙：懂Qbasic的来！

复制本贴地址

作者: mingming8 [mingming8]

论坛用户

本帖由 [BearKing] 从 << 菜鸟乐园>> 转移而来

我想知道这个是怎么运行的，具体点！10 FOR K=1 TO 10：
　　15 S=K*K*K
　　20 FOR J=1 TO K -1
　　30 S=S+11-J
　　40 NEXT J
　　50 FOR J=K TO 10
　　60 S=S+J-K
　　70 NEXT J
　　80 S=S+J-K
　　90 NEXT K
　　100 PRINT“S=”；S+J-K
　　110 END

输出：

地主发表时间: 10/22 21:22

回复: hpefjl [hpefjl]

论坛用户

s=-1

B1层发表时间: 10/22 21:50

回复: kert_t8 [kert_t8]

论坛用户

10 FOR K=1 TO 10：
15 S=K*K*K
20 FOR J=1 TO K -1
30 S=S+11-J
40 NEXT J
50 FOR J=K TO 10
60 S=S+J-K
70 NEXT J
80 S=S+J-K
90 NEXT K
100 PRINT“S=”；S+J-K
110 END
这样就会好看一些了吧
不过我认为你这个程序好像不能够达到你的目的，你唯一的输出语句在第100行，在第一个for循环之外，但是第15句却把s重新赋值成一个与原来的s没有关系的值，那也就是说你的第一个for循环是完全没有意义的
我觉得是1054
15后是1000
40后是1054
在往后就不变了
好久没用过basic了，搞错了的地方还望指教

B2层发表时间: 10/23 08:01

回复: mingming8 [mingming8]

论坛用户

谢了！
那这道题呢？
10 N=7：M=6
20 DIM G（N，M）
30 FOR I=0 TO N
40 FOR J=0 TO M
50 G（I，J）=0
60 NEXT J：NEXT I
70 INPUT X1，Y1，X2，Y2
80 G（X1，Y1）=1：G（X2，Y2）=1
112 XP=X1：YP=Y1：XQ=X2：YQ=Y2
120 GOSUB 1000
130 DMIN=DISP
140 P=1
142 IF P=0 THEN500
144 P=0
150 FOR I=4 TO N
160 FOR J=0 TO M
170 IF G（I，J）>0 THEN 204
180 XP=I:YP=J:XQ=X2:YQ=Y2
190 GOSUB 1000
200 IF DISP>=DMIN THEN 204
202 DMIN=DISP:X0=I:Y0=J:P=1
204 NEXT J:NEXT I
206 IF P=0 THEN 260
220 X1=X0:Y1=Y0:G(X0,Y0)=1:
260 Q=0
300 FOR I=0 TO 3
310 FOR J=0 TO M
320 IF G(I,J)>0 THEN 380
330 XP=X1:YP=Y1:XQ=I:YQ=J
340 GOSUB 1000
350 IF DISP<=DMIN THEN 380
360 DMIN=DISP:X0=I:Y0=J:P=1:Q=1
380 NEXT J:NEXT I
390 IF Q=0 THEN 440
420 X2=X0:Y2=Y0:G(X2,Y2)=1
440 GOTO 142
500 PRINT X1,Y1,X2,Y2:END
1000 DISP=(XP-XQ)*(XP-XQ)+(YP-YQ)*(YP-YQ)
1010 RETURN
输入 7，6，0，0 　　　　输出

B3层发表时间: 10/23 18:36

回复: yinhui [yinhui]

论坛用户