参照29楼的思路用除10.0或乘以10.0的循环计算方法来完成楼主的任务，发现计算结果较我前面那个方法结果更精确一些，浮点数计算指数或对数多次后误差会越来越大。下面是程序的语句表，感兴趣者可以下到机器实测。

Network 1 

// 程序段注释

LD     L0.7

=      L4.0

R      L0.7, 1

Network 2 

LDR=   LD0, 0.0

MOVR   0.0, LD5

AENO

MOVD   0, LD9

AENO

CRET

Network 3 

// 程序段注释

LD     SM0.0

MOVR   LD0, LD5

AENO

MOVD   0, LD9

Network 4 

LD     SM0.0

FOR    LW13, 0, 37

Network 5 

LDR>=  LD5, 1.0

AR<    LD5, 10.0

MOVW   37, LW13

AENO

JMP    1

Network 6 

LDR>=  LD5, 10.0

/R     10.0, LD5

AENO

INCD   LD9

AENO

JMP    1

Network 7 

LDR<   LD5, 1.0

*R     10.0, LD5

AENO

DECD   LD9

Network 8 

LBL    1

Network 9 

NEXT

此子程序的接口同以前那个版本。