用汇编语言求斐波那契数列（至少写出100个数）

2025-02-13 17:40:08

推荐回答（3个）

回答1：

下面是一个求前24个数的程序，因为从第25个数开始超过了16位，显示设计更复杂些，但前面的应相似。此程序编译、链接后的EXE文件可直接运行。
DATA SEGMENT
X1 DW 1
X2 DW 1
FN DW 22 DUP(?)
DATA ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE
START:
MOV AX,DATA
MOV DS,AX
MOV BX,0
MOV CX,22
PUSH X1
PUSH X2
S:
MOV AX,X1
ADD AX,X2
MOV FN[BX],AX
PUSH X2
POP X1
MOV X2,AX
ADD BX,2
LOOP S
POP X2
POP X1
LEA SI,X1
MOV CX,24
S1: CALL DISP
ADD SI,2
MOV AH,02H
MOV DL,20H
INT 21H
MOV DL,20H
INT 21H
MOV DL,20H
INT 21H
LOOP S1
MOV AX,4C00H
INT 21H
DISP:

MOV AX,[SI]
MOV DX,0
MOV BX,10000
DIV BX
PUSH DX
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
POP DX

MOV AX,DX
MOV DX,0
MOV BX,1000
DIV BX
PUSH DX
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
POP DX

MOV AX,DX
MOV DX,0
MOV BX,100
DIV BX
PUSH DX
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
POP DX

MOV AX,DX
MOV DX,0
MOV BX,10
DIV BX
PUSH DX
ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
POP DX

ADD DL,30H
MOV AH,2
INT 21H
RET

CODE ENDS
END START

回答2：

var a,b,c,i:longint;
begin
a:=1;
b:=1;
write('1 1 ');
for i:=3 to 46 do
begin
c:=a+b;
a:=b;
b:=c;
write(c,' ');
end;
end.

回答3：

用心

爱玛电动车加速电把九根线的能用六根线的替换吗？

手机无应响是什么原因

如果有一天你的爱人离开了你；你会如何面对一切?

手脚冰凉除了泡脚还有什么好办法呢？

中午不吃饭，只吃零食吃多了，会不会发胖

Mac上可以代替Ps的图片处理软件有哪些?

怎样在百度贴吧把人拉进云盘群里来

四川泸县的职高有哪些？

什么东西可以不用电就可以亮？拜托各位了 3Q