用pascal语句编写输入十进制数化成对应的二进制、八进制、十六进制数。

Question

用pascal语句编写输入十进制数化成对应的二进制、八进制、十六进制数。（包括整数和小数的转换，可用过程）我只要程序不要理论说明！

Answer 1

Funtion Base ( k , s : longint ) : string ; Var Begin repeat d := s mod k ; if d < 10 then c := chr ( d + 48 ) else c := chr ( d + 55 ) ; base := c + base ; s := s div k ; until s = 0 ; End ;
k 是进制 ，s 是原数 ，与上面那个的差别在于不仅限于转化为二进制 ，随手写的 ，不保证正确 ，如果有误请自行修正细节 。

Answer 2

program swap;
var n:integer; s:string;
begin
write('n=?');readln(n);
s:='';
n2 := n;
n8 := n;
while n2>0 do
begin
if n2 mod 2=0 then
s:='0'+s
else
s:='1'+s;
n2:=n2 div 2;
end;writeln('bin is :'+s);
end.