pascal三塔数
发布网友
发布时间：2024-10-13 00:09
共2个回答
热心网友
时间：2024-10-13 04:08
问题分析] 这个问题可以发现一些规律,要把n移动(a->c),即进行以下操作:n-1(a->b);n(a->c);n-1(b->c).形成递归.
program hanoitower;
uses crt;
var n:integer;
procedure hanoi(x:integer;a,b,c:char);
begin
if x=1 then write(' ',a,' -> ',c,' ') else
begin
hanoi(x-1,a,c,b);
write(' ',a,' -> ',c,' ');
hanoi(x-1,b,a,c);
end;
end;
begin
clrscr;
write('Hanoi tower,Please input n:');
readln(n);
hanoi(n,'a','b','c');
readln;
end.
热心网友
时间：2024-10-13 04:02
uses math;
var
n:integer;
begin
readln(n);
writeln(round(intpower(2,n))-1);
end.
如果数据范围再大一点，可以考虑用高精度
var
a:array [1..100] of integer;
i,l,n:integer;
procedure times;
var
i:integer;
begin
for i:=1 to l do a[i]:=a[i]*2;
a[1]:=a[1]+1;
for i:=1 to l do begin
a[i+1]:=a[i+1]+a[i] div 10;
a[i]:=a[i] mod 10;
end;
if a[l+1]>0 then inc(l);
end;
begin
readln(n);
fillchar(a,sizeof(a),0);
a[1]:=1;l:=1;
for i:=2 to n do times;
for i:=l downto 1 do write(a[i]);
writeln;
end.
