pascal a to b
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/27 05:40:53
pascal a to b
请补充一下题目.
再问: AtoB试题描述 给定一个a进制数c,将它变成b进制并输出。输入要求 读入三个整数,第一行是一个待转换的a进制数c(要用字符串读入),第二行是两个自然数 a和 b。输出要求 输出以如下形式: (answer)b输入样例 11012 10输出样例 (13)10
再答: 以下提供2~16进制之间任意转换的程序:const
c='0123456789ABCDEF';
var
r,t,m,n:longint;
str:string;
procedure ntoshi(n:integer;str:string);
var
g,i,y:longint;
f:array[1..1000] of integer;
begin
g:=length(str);
for i:=1 to g do
begin
case str[i] of
'A':f[i]:=10;
'B':f[i]:=11;
'C':f[i]:=12;
'D':f[i]:=13;
'E':f[i]:=14;
'F':f[i]:=15;
'0'..'9':f[i]:=ord(str[i])-ord('0');
end;
end;
y:=1;
t:=0;
for i:=g-1 downto 1 do
begin
y:=y*n;
t:=t+f[i]*y;
end;
t:=t+f[g];
end;
procedure shitom(r,m:longint);
var
i,k:integer;
b:array[0..1000] of longint;
begin
i:=0;
repeat
b[i]:=r mod m;
r:=r div m;
i:=i+1;
until r=0;
b[i]:=r;
for k:=i-1 downto 0 do
write(c[b[k]+1]);
end;
begin
readln(str);
readln(n,m);
ntoshi(n,str);
r:=t;
write('(');
shitom(r,m);
write(')');
writeln(m);
readln;
end.参考资料:http://wenwen.soso.com/z/q172916176.htm
再问: AtoB试题描述 给定一个a进制数c,将它变成b进制并输出。输入要求 读入三个整数,第一行是一个待转换的a进制数c(要用字符串读入),第二行是两个自然数 a和 b。输出要求 输出以如下形式: (answer)b输入样例 11012 10输出样例 (13)10
再答: 以下提供2~16进制之间任意转换的程序:const
c='0123456789ABCDEF';
var
r,t,m,n:longint;
str:string;
procedure ntoshi(n:integer;str:string);
var
g,i,y:longint;
f:array[1..1000] of integer;
begin
g:=length(str);
for i:=1 to g do
begin
case str[i] of
'A':f[i]:=10;
'B':f[i]:=11;
'C':f[i]:=12;
'D':f[i]:=13;
'E':f[i]:=14;
'F':f[i]:=15;
'0'..'9':f[i]:=ord(str[i])-ord('0');
end;
end;
y:=1;
t:=0;
for i:=g-1 downto 1 do
begin
y:=y*n;
t:=t+f[i]*y;
end;
t:=t+f[g];
end;
procedure shitom(r,m:longint);
var
i,k:integer;
b:array[0..1000] of longint;
begin
i:=0;
repeat
b[i]:=r mod m;
r:=r div m;
i:=i+1;
until r=0;
b[i]:=r;
for k:=i-1 downto 0 do
write(c[b[k]+1]);
end;
begin
readln(str);
readln(n,m);
ntoshi(n,str);
r:=t;
write('(');
shitom(r,m);
write(')');
writeln(m);
readln;
end.参考资料:http://wenwen.soso.com/z/q172916176.htm
pascal a to b
Pascal问题:a+b
PASCAL语言 给三角形的三个边长A,B,C,球三角形的面积
pascal输入a,b求它们的最大公因数和最小公倍数,用辗转相除法
pascal语言for循环能0 to
pascal For i:=1 to n
一道pascal的题用PASCAL算开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(
pascal程序我是个pascal学者,问下各位一下语句的区别:假设程序中已经给你a\b的值了①write(a+b)②w
pascal pascal pascal!
12.在Pascal语言中,判断a不等于0且b不等于0的正确的条件表达式是( )
pascal程序 a,b两个自然数的和、差、积、商四个数加起来等于243,求a,b两数.
Pascal习题习题2:a+b(sum.bas/ sum.pas/ sum.c)【问题描述】相信a+b问题对大家来说,应