信息学奥赛中的pascal阅读程序题

来源：百度知道编辑：UC知道时间：2024/06/24 14:33:52

program ex304;
var
x,x2:longint;
procedure digit(n,m:longint);
var n2:integer;
begin
if(m>0) then
begin
n2:=n mod 10;
write(n2:2);
if(m>1) then digit(n div 10,m div 10);
n2:=n mod 10;
write(n2:2);
end;
end;
begin
writeln('Input a number:');
readln(x);
x2:=1;
while(x2<x) do x2:=x2*10;
x2:=x2 div 10;
digit(x,x2);
writeln;
end.
输入：9734526
输出：______________________________
我知道结果,但不知运行过程是怎样的,特别是过程的递归问题,请求高手指点

program ex304;
var
x,x2:longint;
procedure digit(n,m:longint); {求数位的过程}
var n2:integer;
begin
if(m>0) then
begin
n2:=n mod 10; {除以10取余}
write(n2:2);
if(m>1) then digit(n div 10,m div 10);{调用过程 digit}
n2:=n mod 10;
write(n2:2);
end;
end;
begin {程序主体部分}
writeln('Input a number:');
readln(x);
x2:=1;
while(x2<x) do x2:=x2*10;
x2:=x2 div 10;
digit(x,x2); );{调用过程 digit}
writeln;
end.

输出
6 2 5 4 3 7 9 9 7 3 4 5 2 6

信息学奥赛pascal习题参加信息学奥赛pascal语言用什么编译器? 信息学奥赛（pascal）的动态规划问题。绍兴市少儿信息学奥林匹克竞赛中的pascal语言谁有全国第十一届信息学奥赛复赛Pascal答案，请帖上，急用。谢啦!!! 2006年的全国青少年信息学奥赛试题(1)PASCAL语言 2006年全国信息学奥赛复赛普及组（pascal）试题谁有NOTP2007信息学奥赛复赛普及组pascal的答案参加青少年信息学奥赛Turbo Pascal与C语言学那个好? 信息学入门Pascal语言！