您所在位置：主题：10进制转n进制
verysmartboy
[专家分：1260] 发布于 2012-03-03 19:25:00
var s,b,i,j:longint;d:longint;
a:array[1..30] of longint;
begin
write('input a number:');readln(s);write('input the number''s jinzhi:');read(b);if s<=999999999 then begin d:=s;
for i:=1 to 30 do a[i]:=88;
for i:=30 downto 1 do
begin
if s<>0 then begin
a[i]:=s mod b;
s:=s div b;end;
end;
write(d,'=(');
for i:=1 to 30 do
if a[i]<>88 then write(a[i]);
write(')',b,'jz');
end else writeln('the number is wrong!');
readln;
end.
只针对10进制转1、2、3、4、5、6、7、8、9、10进制
a:array[1..30] of longint;
begin
write('input a number:');readln(s);write('input the number''s jinzhi:');read(b);if s<=999999999 then begin d:=s;
for i:=1 to 30 do a[i]:=88;
for i:=30 downto 1 do
begin
if s<>0 then begin
a[i]:=s mod b;
s:=s div b;end;
end;
write(d,'=(');
for i:=1 to 30 do
if a[i]<>88 then write(a[i]);
write(')',b,'jz');
end else writeln('the number is wrong!');
readln;
end.
只针对10进制转1、2、3、4、5、6、7、8、9、10进制
