UC知道pascal递归问题,超简单,几乎白送分哦~~
来源：百度知道 编辑：UC知道 时间：2024/05/22 13:25:24
问题1:编程解决汗诺塔问题
program p6_1
var
n:integer;
procedure move(n:integer;a,b,c:char);
begin
if n=1 then
writeln('move ',n, 'form ', a, ' to ',b)
else
begin
move(n-1,a,c,b); //这不太明白,A,B,C是什么?
writeln('move ',n, ' from ', a , ' to ', b);
move(n-1,c,b,a); //这不太明白,C,B,A是什么?
end;
end;
begin
write('input n: ');
read(n)
move(n, 'a', 'b', 'c');
end.
问题2:你的QQ?
两个问题全答即可得分!!!
program p6_1
var
n:integer;
procedure move(n:integer;a,b,c:char);
begin
if n=1 then
writeln('move ',n, 'form ', a, ' to ',b)
else
begin
move(n-1,a,c,b); //这不太明白,A,B,C是什么?
writeln('move ',n, ' from ', a , ' to ', b);
move(n-1,c,b,a); //这不太明白,C,B,A是什么?
end;
end;
begin
write('input n: ');
read(n)
move(n, 'a', 'b', 'c');
end.
问题2:你的QQ?
两个问题全答即可得分!!!
有几处错误,我改了啊!
program p6_1 ;
var
n:integer;
procedure move(n:integer;a,b,c:char);
begin
if n=1 then
writeln('move ',n, 'form ', a, ' to ',b)
else
begin
move(n-1,a,c,b); // {A,B,C是指3条针上的变化与指向}?
writeln('move ',n, ' from ', a , ' to ', b);
move(n-1,c,b,a); // {依旧}
end;
end;
begin
write('input n: ');
read(n);
move(n, 'a', 'b', 'c');
readkey;
end.
上个寒假我刚学滴 递归^-^ 相信我 没错的!!
QQ 392106999
你可以用数学思路去想呀！