For循环语句嵌套问题

yangsc825

38# 零下一度
请看34楼，我是逆过来推的，不用取模，判断字符串，把10000*b改成100*b就对了

零下一度

41# yangsc825
刚看到，呵呵

yangsc825

当初我就是看9860配置高才买的，现在发现还是ti流行，到处都用ti，资源遍地都是……希望以后9860前途光明啊

anzedick

卡西欧的计算器蛮适合亚洲人用的，ti的太难搞，用起来太麻烦，还是卡西欧好。

imath

22# imath
题目你搞错了
六位数中的零不一定是三个零挨着
9252
零下一度 发表于 2012-1-20 10:32

你不是说三种情况只讨论第一种情况吗。。

imath

For I,100,999
If instring(string(i),"0")~=0 then
Cycle
Endif
If mid(string(i^2),3,3)="000" then
Disp I," ",i^2
Elseif mid(string(i^2),2,3)="000" then
Disp I," ",i^2
Elseif mid(string(i^2),2,1)="0" and mid(string(i^2),4,2)="00" then
Disp I," ",i^2
Elseif mid(string(i^2),2,2)="00" and mid(string(i^2),5,1)="0" then
Disp I," ",i^2
Endif
Endfor

零下一度

45# imath
不是我说的，我没说过啊
我在你之后才回的这帖子

yangsc825

30# 零下一度
难道这是一个bug?既然没结果怎么还要输出990009，我是要它满足if判断的条件才输出的，这明显错误

yangsc825

47# 零下一度
好吧，这是我说的，后来改了，这种情况没结果

零下一度

46# imath
http://www.cncalc.org/thread-7021-1-1.html

下载地址：http://ndlessly.wordpress.com/ndless/安装教程：http://ndlessly.wordpress.com/ndless-user-guide/
祝各位玩的开心
bruce55 发表于 2012-1-20 11:23

这个是不是要跳墙？

yangsc825

48# yangsc825
到底是不是一个bug?

imath

不是

wtof1996

什么题目？

yangsc825

见33楼

rookie0167

太简单了；源文件是g3m格式的，不发了，把下面代码储存成txt，用CG系列的模拟器转换一下就可以了
'ProgramMode:RUN
For 317->X To 999
0->B
If MOD(X,10)<>0 And MOD((Intg Xfrac10),10)<>0
Then
X^<2>->A
If MOD(A,10)=0
Then 1->B
IfEnd
If MOD((Intg Afrac10),10)=0
Then B+1->B
IfEnd
If MOD((Intg Afrac100),10)=0
Then B+1->B
IfEnd
If MOD((Intg Afrac1000),10)=0
Then B+1->B
IfEnd
If MOD((Intg Afrac10000),10)=0
Then B+1->B
IfEnd
If B>=3
Then
XDispsADispsIfEnd
IfEnd
Next

yangsc825

好吧，你们都是用的由因导果的方法