npascal进制转换n进制 pascal

来源：蜘蛛抓取(WebSpider) 时间：2015-07-22 02:27 标签： n进制转十进制
把10进制数转换为m进制数的Pascal的程序段_百度知道
把10进制数转换为m进制数的Pascal的程序段
提问者采纳
end:array[1:=y mod x,x:=y div x.;for n:=0,i,y.50]input num x y:=i downto 1 do write(a[n]); writeln,y); repeat a[i]:&#39: read(x; until y=0;begin write(&#39:=i+1;); writelnvar a
提问者评价
其他类似问题
为您推荐：
其他3条回答
100]of char,k:=)+t-10).;A&#39,j;until i=0,j):=a[m]+s,m;)+t);
{存每个数字对应的字符}
t,n:0'
{存m进制数}beginfor t:=0 to 9 do a[t]:string:=
{预处理数组a}readln(i:array[0:=chr(ord('end,i;
{把十进制的i转换为j进制的数}repeat
m:=chr(ord('writeln(s);for t:=10 to 100 do a[t];
sprogram jinzhi
;var s:i,a1,a2,a3,a4,k,dec:begin
readln(s);
for i:=1 to 4 do
//这里一定要加begin，不加就变成循环只有下面一条if语句
if (s[i]&='A')AND(S[I]&='Z')
then k:=ord(s[i])-55;
if (s[i]&='a')and(s[i]&='z') then k:=ord(s[i])-87;
if (s[i]&='0')and(s[i]&='9') then k:=ord(s[i])-48;
1:a1:=k*16*16*16;
2:a2:=k*16*16;
3:a3:=k*16;
//这里也是，整个才是循环体
dec:=a1+a2+a3+a4;
write('dec:',dec);
m不会大于36吧囧
进制的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁pascal 十进制转换八进制数_百度知道
pascal 十进制转换八进制数
用递归算法，把任一给定的十进制正整数转换成八进制数输出
没有范围，求高手帮忙
0时）function oct(n:string:=10*oct(n div 8)+n mod 8以下都用了递归算法; else oct:='end:longint);&#39:longint:longint);begin if n=0begin if n=0 then oct:=0 得到的结果为长整型或（n&)):=oct(n div 8)+chr(n mod 8+ord('0' 得到的结果为字符串型计算时直接调用oct(n)。function oct(n
来自团队：
其他类似问题
36人觉得有用
为您推荐：
八进制数的相关知识
其他2条回答
范围是多少？
好像不需要用递归吧
题目就是这样。。。然后要用递归。。。
输入的n最大支持qword,再大就要用高精度除法了varn:i:s:procedure make(k:qword);beginif k=0 thens:=s+chr(k mod 8+48);make(k div 8);beginreadln(n);s:='';make(n);for i:=length(s) downto 1 dowrite(s[i]);end.这是我直接打的，可能有小错误加油~
procedure search(s:longint);begin if s=0 ans:=ans*10+s mod 8; search(s div 8);
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Pascal十进制转化多进制_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者
评价文档：
Pascal十进制转化多进制
P​a​s​c​a​l​十​进​制​转​化​多​进​制
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：594.00B
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢pascal二进制数与八进制数转换_百度知道
pascal二进制数与八进制数转换
n ( 1 &lt。Input第一行只有一个正整数二进制数与八进制数转换Description二进制和八进制是信息技术领域中常用的两种数制;= n &lt，现在请你编一个能将二进制数换成八进制数的程序
提问者采纳
+st:=6else if tmp='readln(st);for i,3); then t,2):=0else if tmp='n:=7;100'00&#39:string:=1else if tmp='011'inc(n:=3else if tmp='beginreadln(n);write(t);010&#39:=&#39:ansistring:='101'0&#39/ then t,(i-1)*3+1; then t:=1 to n div 3 dobegintmp:=2else if tmp=&#39./inc(n);writeln:+110'111&#39:=4else if tmp='001&#39:=5else if tmp='endelse if n mod 3=2000'if n mod 3=1if tmp=&#39:=copy(st,t,i
提问者评价
其他类似问题
为您推荐：
八进制数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 n进制转十进制 的文章

 

随机推荐