PASCAL十进制正整数转换成八进制数,用递归

如题所述

第1个回答 2011-07-12

program pyy;
var
a:integer;
procedure to8(n:integer);
begin
if n>=1
then to8(n div 8)
else exit;
write(n mod 8);
end;

begin
readln(a);
to8(a);
readln;
end.本回答被提问者采纳

第2个回答 2011-07-12

procedure f(var x:int)
begin
if x<=0 then return;
f(x div 8);
write(x mod 8);
end;

大概是这个意思吧 pascal的语法忘差不多了

相似回答

10道pascal的递归习题,简单一点啊答：又如：1315=2^10+2^8+2^5+2+1；所以1315最后可表示：2(2(2+2(0))+2)+2(2(2+2(0)))+2(2(2)+2(0))+2+2(0)输入：正整数(n≤20000)输出：符合约定的n的0，2表示(在表示中不能有空格)9.。一个正整数的数字的乘积N的定义是：这个整数中非零数字的乘积。例如，整数999的数字...

c语言十进制转二进制、八进制和十六进制;答：这是用递归的方法实现各位正序计算、倒序打印的。举例说明：n=10 打印二进制数 f1(10): 10不等于0调用f1(10/2)，f1(10)函数至此等待，直到f1(10/2)返回后继续运行 f1(5): 5不等于0调用f1(5/2)，f1(5)函数至此等待，直到f1(5/2)返回后继续运行 f1(2): 2不等于0调用f1(2/2)，f1(2...

进制转化的编程问题 PASCAL答：由于十进制数的整数与小数转化为R进制的方法不同，所以必须分开讨论。先看十进制整数的转化，再讨论十进制小数的转化，最后讨论-R进制的计数及转化问题。1、十进制整数的转化通过具体实例进行分析，如对十进制数325转化，根据原理可以按下式这样假设：（325）10=3*102+2*101+5*100 =（anan-1…...

pascal 递归的方法做问题答：s*10+x mod 10,t-1);end;procedure f1（x，s:longint);var t:longint;begin if x=0 then begin f(s,0,t);end;t:=t+1;f(x div m,s*10+(x mod m)）;end;主程序中：readln（m）；（进制）；f1（x，0）；（x是要换进制的数）；如果用数组的话可以更好一点，我这样直接 ...

pascal 递归的详细原理会数宽度搜索深度搜索答：无条件递归调用将会成为死循环而不能正常结束。举例描述：把一个整数按n(2<=n<=20)进制表示出来，并保存在给定字符串中。比如121用二进制表示得到结果为：“1111001”。参数说明：s: 保存转换后得到的结果。 n: 待转换的整数。 b: n进制（2<=n<=20） void numbconv(char *...

大家正在搜

二进制十进制八进制十六进制八进制如何转十进制八进制转十进制十进制100转化为八进制二进制转换八进制十进制转八进制方法用递归解决正整数的阶乘用递归调用逆序输出n个整数八进制如何转二进制