pascal a to b

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/01 20:59:45

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

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问题对大家来说,应