数字去掉4求算法

waweiggfnh

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 f, 整数型
.局部变量 k, 文本型
f ＝ 到整数 (编辑框1.内容)
.如果 (f ≥ 0 且 f ＜ 3)  ' 0-2
    k ＝ 到文本 (f ＋ 1)
.否则
    .如果 (f ≥ 3 且 f ＜ 12)  ' 3-11
        k ＝ 到文本 (f ＋ 2)
    .否则
        .如果 (f ≥ 12 且 f ＜ 21)  ' 12-20
            k ＝ 到文本 (f ＋ 3)
        .否则
            .如果 (f ≥ 21 且 f ＜ 30)  ' 21-29
                k ＝ 到文本 (f ＋ 4)
            .否则
                .如果 (f ≥ 30 且 f ＜ 39)  ' 30-38
                    k ＝ 到文本 (f ＋ 5)
                .否则
                    .如果 (f ≥ 39 且 f ＜ 48)  ' 39-47
                        k ＝ 到文本 (f ＋ 6)
                    .否则
                        .如果 (f ≥ 48 且 f ＜ 57)  ' 48-56
                            k ＝ 到文本 (f ＋ 7)
                        .否则
                            .如果 (f ≥ 57 且 f ＜ 66)  ' 57-65
                                k ＝ 到文本 (f ＋ 8)
                            .否则
                                .如果 (f ≥ 66 且 f ＜ 75)  ' 66-74
                                    k ＝ 到文本 (f ＋ 9)
                                .否则
                                    .如果 (f ≥ 75 且 f ＜ 84)  ' 75-83
                                        k ＝ 到文本 (f ＋ 10)
                                    .否则
                                        .如果 (f ≥ 84 且 f ＜ 93)  ' 84-92
                                            k ＝ 到文本 (f ＋ 11)
                                        .否则
                                        .如果结束
                                    .如果结束
                                .如果结束
                            .如果结束
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
    .如果结束
.如果结束
.如果真 (取文本长度 (k) ＜ 2)
    k ＝ “0” ＋ k
.如果真结束
编辑框2.内容 ＝ 到文本 (k)
这样写在92以内可以去掉，如果超过了就没办法了，有没有好一点的算法
去掉4.zip (1.42 KB, 下载次数: 9)

2017-9-28 16:06 上传

点击文件名下载附件

张大仙

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 f, 整数型
   
5. .局部变量 k, 文本型
   
6. .局部变量 n, 整数型
   
7. 
   
8. f ＝ 到整数 (编辑框1.内容)
   
9. n ＝ f ＋ 6
   
10. k ＝ 到文本 (到整数 (f ＋ n ＼ 9) ＋ 1)
    
11. .如果真 (取文本长度 (k) ＜ 2)
    
12.     k ＝ “0” ＋ k
    
13. .如果真结束
    
14. 编辑框2.内容 ＝ 到文本 (k)
    

复制代码

幻月工作室

晕，这。。。

逐位获取数字判断是否等于4就完事了呗

ikumu

直接说需求好点吧，看你的代码+1+2+3+4意义是什么？如果只是单纯的去掉4直接把4全部替换掉不就行了！

难解

和你的计算结果一样。不知道是否可以....

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
f	整数型
N	整数型
k	文本型
a	整数型
b	整数型

f ＝ 20
变量循环首 (1, 11, 1, N)
如果 (N ＝ 1)
' --------------第1次 初始值
a ＝ 0
b ＝ 3
' ---------------第2次  没有找到规律
如果 (N ＝ 2)
a ＝ 3
b ＝ 12
' ---------------第3次 每次递+ 9  【规律】
a ＝ a ＋ 9
b ＝ b ＋ 9

如果真 (f ≥ a 且 f ＜ b)
k ＝ 到文本 (f ＋ N)
跳出循环 ()
调试输出 (N)
变量循环尾 ()
如果真 (取文本长度 (k) ＜ 2)
k ＝ “0” ＋ k
调试输出 (到文本 (k))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> .局部变量 f, 整数型<br /> .局部变量 N, 整数型<br /> .局部变量 k, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> <br /> f ＝ 20<br /> <br /> .变量循环首 (1, 11, 1, N)<br />     .如果 (N ＝ 1)<br />         ' --------------第1次 初始值<br />         a ＝ 0<br />         b ＝ 3<br />     .否则<br />         ' ---------------第2次  没有找到规律<br />         .如果 (N ＝ 2)<br />             a ＝ 3<br />             b ＝ 12<br />         .否则<br />             ' ---------------第3次 每次递+ 9  【规律】<br />             a ＝ a ＋ 9<br />             b ＝ b ＋ 9<br />         .如果结束<br /> <br />     .如果结束<br />     .如果真 (f ≥ a 且 f ＜ b)<br />         k ＝ 到文本 (f ＋ N)<br />         跳出循环 ()<br />     .如果真结束<br />     调试输出 (N)<br /> .变量循环尾 ()<br /> <br /> .如果真 (取文本长度 (k) ＜ 2)<br />     k ＝ “0” ＋ k<br /> .如果真结束<br /> 调试输出 (到文本 (k))

难解

难解 发表于 2017-9-29 00:09
和你的计算结果一样。不知道是否可以....

[e=0].版本 2

卧槽.....惭愧。。。。楼上的绝杀，，

waweiggfnh

ikumu 发表于 2017-9-28 16:23
直接说需求好点吧，看你的代码+1+2+3+4意义是什么？如果只是单纯的去掉4直接把4全部替换掉不就行 ...

不是单纯的去掉4，是要逢4加1，那么到下一个4的地方就要加2了，以此类推

waweiggfnh

枫晓生 发表于 2017-9-28 16:55

你的办法最精简，就是没看懂为什么是f+6，然后(f+n\9)+1这个是啥意思

waweiggfnh

难解 发表于 2017-9-29 00:09
和你的计算结果一样。不知道是否可以....

[e=0].版本 2

为什么我调试一下全部是1,2,23 结果不对啊

张大仙

waweiggfnh 发表于 2017-9-29 07:40
你的办法最精简，就是没看懂为什么是f+6，然后(f+n\9)+1这个是啥意思

就是找规律啊，每满9就需要+1，前面0-2不需要加，所以需要将所有的值+6使其从3开始除以9得到的整数商正好是需要加的值。比如2+6=8 除以9就是0。3+6=9 除以9就是1