将一个M进制数转换为N进制数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 01:20:55
将一个M进制数转换为N进制数
用短除法做
vb.net或者C#或者Pascal
就是一个过程
用短除法做
vb.net或者C#或者Pascal
就是一个过程
绝对没问题!
program change;
var i,m,n,v,t:longint;
ch:char;
num:string;
begin
assign(input,'change.in');
reset(input);
assign(output,'change.out');
rewrite(output);
readln(n);
readln(num);
readln(m);
v:=0;
for i:=1 to length(num) do
begin
case num[i] of
'0': t:=0;
'1': t:=1;
'2': t:=2;
'3': t:=3;
'4': t:=4;
'5': t:=5;
'6': t:=6;
'7': t:=7;
'8': t:=8;
'9': t:=9;
'A': t:=10;
'B': t:=11;
'C': t:=12;
'D': t:=13;
'E': t:=14;
'F': t:=15
end;
v:=v*n+t
end;
num:='';
while v<>0 do
begin
case v mod m of
0: ch:='0';
1: ch:='1';
2: ch:='2';
3: ch:='3';
4: ch:='4';
5: ch:='5';
6: ch:='6';
7: ch:='7';
8: ch:='8';
9: ch:='9';
10: ch:='A';
11: ch:='B';
12: ch:='C';
13: ch:='D';
14: ch:='E';
15: ch:='F'
end;
num:=ch+num;
v:=v div m
end;
writeln(num);
close(input);
close(output);
end.
program change;
var i,m,n,v,t:longint;
ch:char;
num:string;
begin
assign(input,'change.in');
reset(input);
assign(output,'change.out');
rewrite(output);
readln(n);
readln(num);
readln(m);
v:=0;
for i:=1 to length(num) do
begin
case num[i] of
'0': t:=0;
'1': t:=1;
'2': t:=2;
'3': t:=3;
'4': t:=4;
'5': t:=5;
'6': t:=6;
'7': t:=7;
'8': t:=8;
'9': t:=9;
'A': t:=10;
'B': t:=11;
'C': t:=12;
'D': t:=13;
'E': t:=14;
'F': t:=15
end;
v:=v*n+t
end;
num:='';
while v<>0 do
begin
case v mod m of
0: ch:='0';
1: ch:='1';
2: ch:='2';
3: ch:='3';
4: ch:='4';
5: ch:='5';
6: ch:='6';
7: ch:='7';
8: ch:='8';
9: ch:='9';
10: ch:='A';
11: ch:='B';
12: ch:='C';
13: ch:='D';
14: ch:='E';
15: ch:='F'
end;
num:=ch+num;
v:=v div m
end;
writeln(num);
close(input);
close(output);
end.
将一个M进制数转换为N进制数
将一个M进制数转换为N进制数 PASCAL
存在一十进制数(正整数)n,以及一个进制m,编写程序将n转换为m进制表示并输出.
输入一个十进制的正整数,将该数转换成n进制数,并输出.
进制转换,请将一个n进制的数转换成m进制的数,并输出.
用递归方法将一个n位整数转换为一个字符串.要求写出转换函数.用c言语
某工人利用长6m高3m的斜面将一个重1000N的物体匀速推上斜面顶端 所用推力为600N,有——焦耳的机械能转换
用 Pascal 编写一个程序将十进制整数n转换为二进制数.
将十进制正整数用除n取余法转换为n进制数输出.这个哪里错了啊,一运行就程序崩溃
计算器如何将小数转换为N分之一 信利牌
用一个动滑轮将一个重为500N的物体匀速升高2m,
怎么把十进制数m转换为k进制数输出?