将一个M进制数转换为N进制数 PASCAL输入仅一行,分别是M、待转换的M进制数和N,两两之间用一个空格相隔输入:8 154 16 则输出:6C用字符串做.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 22:52:25
![将一个M进制数转换为N进制数 PASCAL输入仅一行,分别是M、待转换的M进制数和N,两两之间用一个空格相隔输入:8 154 16 则输出:6C用字符串做.](/uploads/image/z/3691135-55-5.jpg?t=%E5%B0%86%E4%B8%80%E4%B8%AAM%E8%BF%9B%E5%88%B6%E6%95%B0%E8%BD%AC%E6%8D%A2%E4%B8%BAN%E8%BF%9B%E5%88%B6%E6%95%B0+PASCAL%E8%BE%93%E5%85%A5%E4%BB%85%E4%B8%80%E8%A1%8C%2C%E5%88%86%E5%88%AB%E6%98%AFM%E3%80%81%E5%BE%85%E8%BD%AC%E6%8D%A2%E7%9A%84M%E8%BF%9B%E5%88%B6%E6%95%B0%E5%92%8CN%2C%E4%B8%A4%E4%B8%A4%E4%B9%8B%E9%97%B4%E7%94%A8%E4%B8%80%E4%B8%AA%E7%A9%BA%E6%A0%BC%E7%9B%B8%E9%9A%94%E8%BE%93%E5%85%A5%EF%BC%9A8+154+16+%E5%88%99%E8%BE%93%E5%87%BA%EF%BC%9A6C%E7%94%A8%E5%AD%97%E7%AC%A6%E4%B8%B2%E5%81%9A.)
将一个M进制数转换为N进制数 PASCAL输入仅一行,分别是M、待转换的M进制数和N,两两之间用一个空格相隔输入:8 154 16 则输出:6C用字符串做.
将一个M进制数转换为N进制数 PASCAL
输入仅一行,分别是M、待转换的M进制数和N,两两之间用一个空格相隔
输入:8 154 16
则输出:6C
用字符串做.
将一个M进制数转换为N进制数 PASCAL输入仅一行,分别是M、待转换的M进制数和N,两两之间用一个空格相隔输入:8 154 16 则输出:6C用字符串做.
绝对没问题!
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 v0 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.