特殊进制模式计算程序及计算方法正式公布！

hcz

主要代码：

1. n[1]:=x div 134217728 mod 16 *2;
   
2. n[2]:=x div 2097152 mod 16 *2;
   
3. n[3]:=x div 32768 mod 16 *2;
   
4. n[4]:=x div 512 mod 16 *2;
   
5. n[5]:=x div 8 mod 16 *2;
   
6. n[6]:=(x div 32 mod 8+x*8 mod 16)*2;
   
7. n[7]:=x mod 8 *4;
   
8. n[8]:=0;
   
9. 
   
10. for tmp1:=1 to 8 do
    
11. case n[tmp1] of
    
12. 0:special.Text:=special.text+'０';
    
13. 2:special.Text:=special.text+'２';
    
14. 4:special.Text:=special.text+'４';
    
15. 6:special.Text:=special.text+'６';
    
16. 8:special.Text:=special.text+'８';
    
17. 10:special.Text:=special.text+'ａ';
    
18. 12:special.Text:=special.text+'ｃ';
    
19. 14:special.Text:=special.text+'ｅ';
    
20. 16:special.Text:=special.text+'ｐ';
    
21. 18:special.Text:=special.text+'Σ';
    
22. 20:special.Text:=special.text+'γ';
    
23. 22:special.Text:=special.text+'θ';
    
24. 24:special.Text:=special.text+'μ';
    
25. 26:special.Text:=special.text+'σ';
    
26. 28:special.Text:=special.text+'Ω';
    
27. 30:special.Text:=special.text+'■';
    
28. end;
    

复制代码

请大家检验其结果是否正确

注意：计算器中输入的是16进制的，而程序中是10进制

hcz

似乎还有点问题。。。。正在研究中。。

击剑狂歌

我看结果。。。。。

hcz

更新了一下，现在应该完全符合计算器上的结果了

Nero

有空我转成VB代码

asdasdsd

这是什么啊
怎么算啊？