二进制转十进制的程序

plectrum

(defun xy(x y)
(if (/= y 0)
(progn
(setq sum 1)
(repeat y
(setq sum (* sum x))
)
)
(progn
(setq sum 1)
)
)
)
(defun c:swith()
(setq binary (getint"\input binary number:"));input 101
(setq leng (strlen (rtos binary 2 0)));leng=3
(setq n 1);n=1
(setq ll (1- leng));ll=2
(setq end 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;repeat
(repeat leng
(setq start (atoi (substr (rtos binary 2 0) n 1)));start=1
(if (= start 0)
(progn
(setq ee 0)
);end progn
(progn
(setq a 2)
(setq ee (xy a ll));ee=2^2
);end progn
);end if
(setq end (+ end ee))
(setq ll (1- ll));1;0
(setq n (1+ n));2;3
);end repeat
(print end)
);end defun

LONGXIN

不记得是谁写的了： 将一个字符串按BASE的做为基数的进制转换为十进制的整数值
(defun baseToDecimal (base val / pos power result tmp)
(setqpos (1+ (strlen val))
power -1
result 0
val (strcase val)
)
(while (> (setq pos (1- pos)) 0)
(setq result
(+
result
(*(if (> (setq tmp (ascii (substr val pos 1))) 64)
(- tmp 55)
(- tmp 48)
)
(expt base (setq power (1+ power)))
)
)
)
)
result
)
功能
将一个字符串按BASE的做为基数的进制转换为十进制的整数值
语法
(baseToDecimal base val )
参数
base:一个代表所要转换的进制(BASE2、BASE8等)基数整数。
val:一个进行转换的字符串。
返回值
十进制的整数值
样例
(baseToDecimal 16 "FA") 将一个整数转换成一个按BASE基数指定的进制的字符串值
(defun decimalToBase (base val / result tmp)
(setq result "")
(while (> val 0)
(setq result (strcat (if (> (setq tmp (rem val base)) 9)
(chr (+ tmp 55)) (itoa tmp) ) result ) val (fix (/ val base)) ) ) result)

功能
将一个整数转换成一个按BASE基数指定的进制的字符串值
语法
(decimalToBase base val )
参数
base:一个代表所要转换的进制(BASE2、BASE8等)基数整数。
val:一个要转换的整数。

返回值
字符串
样例
(decimalToBase 16 250)

maomao2004

好东西，回去看看，学习

无痕

2楼的帖子在ｘｄｃａｄ看见ａｅｏ贴过，如果我没有记错的话

龙龙仔

无痕发表于2005-6-8 13:03:002楼的帖子在ｘｄｃａｄ看见ａｅｏ贴过，如果我没有记错的话

如果我没有记错的话,明经上有

http://www.mjtd.com/function/index.html

据我所知,真正的出处

citykunan

龙版主真是见多识广啊。

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢