hcz 发表于 2009-10-18 19:16:02

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

主要代码：n:=x div 134217728 mod 16 *2;
n:=x div 2097152 mod 16 *2;
n:=x div 32768 mod 16 *2;
n:=x div 512 mod 16 *2;
n:=x div 8 mod 16 *2;
n:=(x div 32 mod 8+x*8 mod 16)*2;
n:=x mod 8 *4;
n:=0;

for tmp1:=1 to 8 do
case n of
0:special.Text:=special.text+'０';
2:special.Text:=special.text+'２';
4:special.Text:=special.text+'４';
6:special.Text:=special.text+'６';
8:special.Text:=special.text+'８';
10:special.Text:=special.text+'ａ';
12:special.Text:=special.text+'ｃ';
14:special.Text:=special.text+'ｅ';
16:special.Text:=special.text+'ｐ';
18:special.Text:=special.text+'Σ';
20:special.Text:=special.text+'γ';
22:special.Text:=special.text+'θ';
24:special.Text:=special.text+'μ';
26:special.Text:=special.text+'σ';
28:special.Text:=special.text+'Ω';
30:special.Text:=special.text+'■';
end;
请大家检验其结果是否正确

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

hcz 发表于 2009-10-18 19:17:46

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

击剑狂歌 发表于 2009-10-19 13:04:48

我看结果。。。。。

hcz 发表于 2009-10-19 20:57:38

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

Nero 发表于 2009-10-19 21:42:09

有空我转成VB代码

asdasdsd 发表于 2010-1-22 13:06:32

这是什么啊
怎么算啊？
页: [1]
查看完整版本: 特殊进制模式计算程序及计算方法正式公布！