移梵塔

最新推荐文章于 2024-04-15 21:11:06 发布
原创 最新推荐文章于 2024-04-15 21:11:06 发布 · 1.5k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#c #delphi #insert

本文详细解析了Delphi环境下递归函数的反编译过程及单步运行机制，通过具体实例展示了参数传递、堆栈操作及递归调用的内部细节。

  var
    x,y,z:char;
    N,k:integer;

procedure sub(n:integer;a,c,b:char);
begin
  if n=0 then Exit;
  sub(n-1,a,b,c);
  Inc(k);
  Writeln(k,':from',a,'->',c);
 //sub(n-1,b,c,a);
  end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
write('n=');
readln(n);
  k:=0;
  x:='A';y:='B';Z:='C';
  sub(n,x,y,z);
  readln
end.

 

简单分析如下代码

目的：了解DELPHI递归反编译单步运行分析

 sub(n,x,y,z);

4个参数

n存于ESI

X 分别用第一参数表示

Y 第二参数

Z 第三参数

反现个规律：
第三参数压堆栈 第二参数存ECX 第一参数存EDX 递归的计数N-1存于EAX中

假调N=2情况分析

 

SUB（N，x，y，z）  PA:

SUB（N，A，C，B）

SUB（N-1，A，B，C）---》

=============                                 

        =========    SUB（N-1，A，C，B）

                                SUB（N-1-1，A，B，C）

                                                                         SUB（N-1-1，A，C，B）

                                                                        SUB（N-1-1-1，A，B，C）

Project1.dpr.48: k:=0;
004084A9 33C0             xor eax,eax
004084AB A398A74000       mov [k],eax


Project1.dpr.49: x:='A';y:='B';Z:='C';
004084B0 B041             mov al,$41    //A 
084B2 B242             mov dl,$42   //B                           //存第一
084B4 B143             mov cl,$43   //40A143=C          //存第二 起始ECX EDX相反参数初始 eaz存记数

       N     X      Y         Z

--   ESI eax  eDX    ECX 初始时  ESI=N  EAX=A EDX=B  ECX=C

 

运行时：

第三参数压堆栈 第二参数存ECX 第一参数存EDX 递归的计数N-1存于EAX中

Z压堆栈 Y压ECX  X压 EDX N 压EAX

 2       n      x      y      z    

esi    eaX  edx ecx    堆栈  堆栈保存不动    参数下划一级    为CALL准备参数

 


Project1.dpr.50: sub(n,x,y,z);   //PA

///下面开始为CALL准备参数sub(n,x,y,z);  

004084B6 51               push ecx                //保存第三参数压堆栈 C 

004084B7 8BCE             mov ecx,esi         //esi=N=2假设N=2 
004084B9 91               xchg eax,ecx       //EAX=2 ecx=A
004084BA 87CA             xchg edx,ecx     //ecx=B 值 EDX=A

 

             n           X=A          Y=B   

ESI      EAX         EdX           EcX      堆栈   存放第三参数ECX做周转实现

调用CALL前的准备:第三参数压堆栈 第二参数存ECX 第一参数存EDX 递归的计数N存于EAX中

 

 

004084BC E8AFFEFFFF       call sub

[

Project1.dpr.36: begin
00408370 55               push ebp
00408371 8BEC             mov ebp,esp  //保存当前EBP值到
00408373 51               push ecx    //第三参数压推栈ECX值是B 是SUB（A，B，C）之前调用的SUB（A，C，B）C中值是B第三
00408374 53               push ebx  //保存EBX原值
00408375 884DFF           mov [ebp-$01],cl  [EBP-$01]=B c1值是=$B //这里奇怪多了个B作用
00408378 8BDA             mov ebx,edx  EBX='a'

 

 


Project1.dpr.37: if n=0 then Exit;
0040837A 85C0             test eax,eax  //比较N值是否为0 是0结束函数
0040837C 7452             jz +$52  
Project1.dpr.38: sub(n-1,a,b,c);         //
0040837E 8A55FF           mov dl,[ebp-$01]
00408381 52               push edx
00408382 48               dec eax
00408383 8A4D08           mov cl,[ebp+$08]
00408386 8BD3             mov edx,ebx
00408388 E8E3FFFFFF       call sub
Project1.dpr.39: Inc(k);
0040838D FF0598A74000     inc dword ptr [k]
Project1.dpr.40: Writeln(k,':from',a,'->',c);
00408393 A104934000       mov eax,[$00409304]
00408398 8B1598A74000     mov edx,[k]
0040839E E8C9AAFFFF       call @Write0Long
004083A3 BAE0834000       mov edx,$004083e0
004083A8 E82BBDFFFF       call @Write0LString
004083AD 8BD3             mov edx,ebx
004083AF E83CAAFFFF       call @Write0Char
004083B4 BAF0834000       mov edx,$004083f0
004083B9 E81ABDFFFF       call @Write0LString
004083BE 8A55FF           mov dl,[ebp-$01]
004083C1 E82AAAFFFF       call @Write0Char
004083C6 E8D1AAFFFF       call @WriteLn
004083CB E85CA2FFFF       call @_IOTest
Project1.dpr.42: end;
004083D0 5B               pop ebx
004083D1 59               pop ecx

 

 

 

 

 

 

 

 

 

]

 

 

 

 

 


Project1.dpr.52: end.
004084C1 A170934000       mov eax,[$00409370]
004084C6 E88DA6FFFF       call @ReadLn
004084CB E85CA1FFFF       call @_IOTest
Project1.dpr.52: end.
004084D0 5E               pop esi
004084D1 E816B7FFFF       call @Halt0
004084D6 0000             add [eax],al
004084D8 FF               db $ff
004084D9 FF               db $ff
004084DA FF               db $ff
004084DB FF02             inc dword ptr [edx]
004084DD 0000             add [eax],al
004084DF 006E3D           add [esi+$3d],ch
004084E2 0000             add [eax],al
004084E4 0000             add [eax],al
004084E6 0000             add [eax],al
004084E8 0000             add [eax],al
004084EA 0000             add [eax],al
004084EC 0000             add [eax],al
004084EE 0000             add [eax],al
004084F0 0000             add [eax],al

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

////////////////////////////////////////////////

 

 

Project1.dpr.48: k:=0;         
004084A9 33C0             xor eax,eax
004084AB A398A74000       mov [k],eax
Project1.dpr.49: x:='A';y:='B';Z:='C';
004084B0 B041             mov al,$41  //EAX 65 A
004084B2 B242             mov dl,$42  //eDx 66 B
004084B4 B143             mov cl,$43  //ecx  67 C  这里不同前两个寄存器存的是值 C1存的是地址（存放C的地址0040A143）
Project1.dpr.50: sub(n,x,y,z);                       此时ESP=13FFAC=K
004084B6 51               push ecx          C压入堆     （ESP）K-4 =13FFA8=0040A143=C //当前栈顶
004084B7 8BCE             mov ecx,esi   //ESI存放的是N的值 假设是3 放入ECX         
004084B9 91               xchg eax,ecx 交换        EAX=3 ECX=$41 

004084BA 87CA             xchg edx,ecx            ECX=$42  EDX=$41  N放入EAX  

004084BC E8AFFEFFFF    call sub   //调用SUB （esp）K-8=13FFA4  值是:004084C1是SUB CALL的下一条指令地址：堆栈存返回地址
Project1.dpr.52: end.
004084C1 A170934000       mov eax,[$00409370]
004084C6 E88DA6FFFF       call @ReadLn
004084CB E85CA1FFFF       call @_IOTest
Project1.dpr.52: end.
004084D0 5E               pop esi
004084D1 E816B7FFFF       call @Halt0
004084D6 0000             add [eax],al
004084D8 FF               db $ff
004084D9 FF               db $ff
004084DA FF               db $ff
004084DB FF02             inc dword ptr [edx]
004084DD 0000             add [eax],al
004084DF 006E3D           add [esi+$3d],ch
004084E2 0000             add [eax],al
004084E4 0000             add [eax],al
004084E6 0000             add [eax],al
004084E8 0000             add [eax],al
004084EA 0000             add [eax],al
004084EC 0000             add [eax],al
004084EE 0000             add [eax],al
004084F0 0000             add [eax],al

 

 

调用SUB

Project1.dpr.36: begin                               
00408370 55               push ebp         

 PUSH执行前  K=ESP=0013FFA4= 004084C1 ESP+4=0013FFA8=C EAX=N=3 ECX42 EDX41 ESI=N 

执行后   （esp）K-4=0013ffa0=EBP=0013FFC0   //保存EBP   

 

00408371 8BEC             mov ebp,esp    ebp=ESP=0013ffa0=K-4
00408373 51               push ecx

 

执行后：ESP=K-8=0013FF9C=$42  EBP=0013FFA0=K-4


00408374 53               push ebx                                                   //

执行后：esp=k-c=0013FF98 ==$41     EBP=0013FFA0=K-4


00408375 884DFF           mov [ebp-$01],cl [EBP-$01]=0013FFA0-$01=0013ff9c=$42


ebp-$0100408378 8BDA             mov ebx,edx==41                                     //
Project1.dpr.37: if n=0 then Exit;
0040837A 85C0             test eax,eax
0040837C 7452             jz +$52
Project1.dpr.38: sub(n-1,a,b,c);
0040837E 8A55FF           mov dl,[ebp-$01]
00408381 52               push edx
00408382 48               dec eax
00408383 8A4D08           mov cl,[ebp+$08]
00408386 8BD3             mov edx,ebx
00408388 E8E3FFFFFF       call sub
Project1.dpr.39: Inc(k);
0040838D FF0598A74000     inc dword ptr [k]
Project1.dpr.40: Writeln(k,':from',a,'->',c);
00408393 A104934000       mov eax,[$00409304]
00408398 8B1598A74000     mov edx,[k]
0040839E E8C9AAFFFF       call @Write0Long
004083A3 BAE0834000       mov edx,$004083e0
004083A8 E82BBDFFFF       call @Write0LString
004083AD 8BD3             mov edx,ebx
004083AF E83CAAFFFF       call @Write0Char
004083B4 BAF0834000       mov edx,$004083f0
004083B9 E81ABDFFFF       call @Write0LString
004083BE 8A55FF           mov dl,[ebp-$01]
004083C1 E82AAAFFFF       call @Write0Char
004083C6 E8D1AAFFFF       call @WriteLn
004083CB E85CA2FFFF       call @_IOTest
Project1.dpr.42: end;
004083D0 5B               pop ebx
004083D1 59               pop ecx

noscan
关注
移梵塔（递归算法）
tylzp31的博客
11-06 647
题目描述 有三根柱A，B，C在柱A上有N块盘片，所有盘片都是大的在下面，小片能放在大片上面。现要将A上的N块片移到C柱上，每次只能移动一片，而且在同一根柱子上必须保持上面的盘片比下面的盘片小，请输出移动的步骤。 输入 输入整数n，表示有n块盘片 输出 输出移动的步骤 样例输入Copy 3 样例输出Copy 1 A->C 2 A->B 3 C->B 4 A->C 5 B->A 6 B->...
递归求解汉诺塔问题（C++）
hyl1181的博客
07-21 981
汉诺塔问题 【问题描述】 Hanoi(汉诺)塔问题。这是一个经典的数学问题：古代有一个梵塔，塔内有3个座A，B，C，开始时A座上有64 个盘子，盘子大小不等，大的在下，小的在上。有一个老和尚想把这64个盘子从A座移到C座，但每次只允许移动个盘，且在移动过程中在3个座上都始终保持大盘在下，小盘在上。在E移动过程中可以利用B座，要求编写程序打印出若只有n个盘子时移动的步骤。 【问题分析】 1.假设最开始A座上有n个盘子，如果我们能够将最下面的盘子通过B座移到C座上，则我们只需要再把A座上的n-1个盘子全部挪到C
梵塔问题 （c++版）
03-08
简单的梵塔问题的解决，输入个数，输出每一步的步骤，控制台版。
109、第2课 移梵塔--2020.03.26a.pdf
05-08
109、第2课 移梵塔--2020.03.26a
递归 - 移梵塔
note_online
05-02 2895
移梵塔 时间限制: 1 Sec  内存限制: 64 MB 题目描述 有三根柱A、B、C，在A柱上有n块盘片，所有盘片都是大片在下面，小片放在大片上面。并依次编好序号。现要将A上的n块盘片移到C柱上，每次只能移动一片，而且在同一根柱子上必须保持上面的盘片比下面的盘片小，请输出移动方法。 输入 仅一个整数n(n≤20)，表示A柱上的盘片数。 输出
第2课 移梵塔-2021.03.13(A).pdf
03-13
在实现汉诺塔的递归过程时，我们定义一个递归函数sub(n, a, c, b)，表示把b柱作为过渡柱，将a柱上的n个盘子移到c柱。递归过程可以分为三步： 1. 调用sub(n-1, a, b, c)，将a柱上的前n-1个盘子移到b柱； 2. 移动第n个...
梵塔难题（汉诺塔问题）四种方法代码（递归、线性算法、启发式、盲目式）.rar
05-06
汉诺塔问题，又称梵塔难题，是一个经典的计算机科学问题，源自印度的传说。这个问题涉及到三个柱子和一堆大小不一的盘子，目标是将所有盘子从一个柱子移动到另一个柱子，遵循以下规则： 1. 每次只能移动一个盘子。 ...
人工智能二阶梵塔
m0_65249160的博客
06-14 3717
2.1搜索概述 ■人工智能的多个研究领域从求解现实问题的过程来 看，都可抽象为一个“问题求解”过程 ■问题求解过程实际上就是一个搜索过程 ■最优性和计算法复杂性是搜素中的一对矛盾，搜索 必须考虑的三个问题： ■采用盲目搜索还是启发式搜索 ■盲目搜索：不考虑问题本身的特性，通过遍历问题解的集合来寻 找可行解或最优解。 ■启发式搜索：利用与问题有关的启发式信息来确定搜索方向，以 加快搜索过程。 ■进行局部搜索还是全集搜索 ■搜索可行解还是最优解 二阶HanoiTower（梵塔）问题 ■设有三根柱子，在1号.
问题 B: 【递归与递推】移梵塔---------------------递归
qq_43690454的博客
02-02 794
题目描述 有三根柱A、B、C，在A柱上有n块盘片，所有盘片都是大片在下面，小片放在大片上面。并依次编好序号。现要将A上的n块盘片移到C柱上，每次只能移动一片，而且在同一根柱子上必须保持上面的盘片比下面的盘片小，请输出移动方法。 输入 仅一个整数n(n≤20)，表示A柱上的盘片数。 输出 输出盘片的移动步骤。 样例输入 Copy 3 样例输出 Copy A-1-C A-2-B C-1-B A-3-C...
梵塔难题编程实现C++代码
06-14
VS2019 三柱+四圆盘（具体数量可变可修改） 采用递归思想 输出初试、最终状态以及中间每一步的动作和状态变化
C++ 汉诺塔 递归
07-27
自己写的c++汉诺塔函数递归，多调试几遍看看递归原理
汉诺塔问题（递归）/梵塔问题c++
Github主页：https://github.com/xinyangwy
09-02 1950
#include <iostream> using namespace std; int step; void print(char sta, char fin) {//打印出步骤 cout << "step " << ++step << ": " << sta << " -> " << fin << endl; } void Hanoi(int n, char sta, char fin, char .
c++实现汉诺塔
liuwei271551048的专栏
05-12 1719
问题描述： 　　有一个梵塔，塔内有三个座A、B、C，A座上有诺干个盘子，盘子大小不等，大的在下，小的在上（如图）。 把这些个盘子从A座移到C座，中间可以借用B座但每次只能允许移动一个盘子，并且在移动过程中，3个座上的盘 子始终保持大盘在下，小盘在上。 描述简化：把A柱上的n个盘子移动到C柱，其中可以借用B柱。
1067. 【递归算法】梵塔问题
最新发布
wrnxrxsb的博客
04-15 555
有三个塔柱（以A，B，C表示）。在A上有一个干塔，共N层。今以一个圆盘代表一层，在盘在下，小盘在上。按规定，每次只能移动一个盘子，可以将盘子放在三个塔柱中任一个上，但大盘子不能放在小盘子上面。我们可以定义一个递归过程：MOVE（M，X，Y，Z）：表示把X上M片以Y为媒介移动到Z上，这里M<=N，X，Y，Z表示A，B，C三个不同的塔柱。我们可以发现，要把N片全从A移动到C上，则必须先把A上的N-1片移动到B上，这时可用C作媒介；要把A上的N-1片移动到B上，则先必须把A上的N-2片以B为媒介移动到C上……
第七章 递推与递归_第2课 移梵塔（hanoi）《聪明人的游戏 信息学探秘.提高篇》
青少年趣味编程
05-15 357
【问题描述】有三根柱A、B、C，在A柱上有n块盘片，所有盘片都是大片在下面，小片放在大片上面。并依次编好序号。现要将A上的n块盘片移到C柱上，每次只能移动一片，而且在同一根柱子上必须保持上面的盘片比下面的盘片小，请输出移动方法。【输入格式】仅一个整数n(n≤20)，表示A柱上的盘片数。【输出格式】输出盘片的移动步骤。【输入样例】3【输出样例】A-1-CA-2-BC-1-BA-3-CB-1-AB-2-CA-1-C图解汉诺塔问题（递归求解）
c++汉诺塔问题
浪子回头
01-18 1199
个圆盘从上往下从小到大叠在第一根柱子上，要把这些圆盘全部移动到第三根柱子要怎么移动呢？请找出需要步骤数最少的方案。个座上的盘子始终保持大盘在下，小盘在上。在移动过程中可以利用。个盘子，盘子大小不等，大的在下，小的在上。座，要求打印移动的步骤。如果只有一个盘子，则不需要利用。座，但每次只能允许移动一个盘子，并且在移动过程中，古代有一个梵塔，塔内有三个座。
汉诺塔 C++（递归实现）
luoyixin2009的博客
01-15 632
【问题描述】 有三根柱A、B、C，在A柱上有n块盘片，所有盘片都是大片在下面，小片放在大片上面。并依次编排好序号。先要将A上的n块盘片移动到C柱上，每次只能移动一片，而且在同一根柱子上必须保持上面的盘片比下面的盘片小，请输出移动方法。 【输入说明】 仅一个整数n(n≤20），表示A柱上的盘片数。 【输出说明】 输出盘片的移动步骤。 【输入样例】 3 【输出样例】 A-1-C A-2-B C-1-B A-3-C B-1-A B-2-C A-1-C 本题是典型的递归程序设计题 首先，我
K8s 很难么？带你从头到尾捋一遍，不信你学不会
热门推荐
民工哥的博客
02-23 1万+
点击关注公众号，回复“1024”获取2TB学习资源！为什么要学习 Kubernetes?虽然 Docker 已经很强大了，但是在实际使用上还是有诸多不便，比如集群管理、资源调度、文件管理等...
MFC中梵塔问题的递归解决方法详解
标题“mfc 梵塔问题解决”所指的知识点，可以理解为在面向对象编程领域中，使用Microsoft Foundation Classes (MFC) 库来解决著名的递归问题——梵塔问题，即汉诺塔问题。MFC是微软的一个用于简化Windows应用程序...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值