主页 / 问题 / 1093462
Accepted
Анна Михайлова
Asked:2020-03-11 22:20:12 +0000 UTC2020-03-11 22:20:12 +0000 UTC

请帮助 turbo pascal 程序中的汇编程序

  • 772

我无法正确编写程序，或者更确切地说是分享

var
s:word;
c:integer;
begin
writeln('найти сумму s=x^3/2+1 при x[0,40]');
asm
mov cx, 2
mov dx, 0
mov bx, 0
@1:
add dl, 1
mov al, dl
mul dl
mul dl
mov bl, dl
mov bl, 2
div bl
add ax, 1
add bx,ax
loop @1
mov s, bx
end;
writeln ('s:= ',s);
end.
ассемблер

1 个回答

  1. Best Answer
    mov cx, 2

    记录在 cx 2

    mul dl

    将 AL 乘以 DL，将结果放入 AX

    mul dl

    再次将 AL 乘以 DL，结果放入 AX，AH 中的内容丢失

    mov bl, dl
mov bl, 2

    首先，值 DL 写在 BL 中，然后写在 BL 2 中。问题是 - 为什么要记录 DL？

    loop @1

    减小 CX 的值，如果它不等于 0，则开始另一个迭代。问题是，如果您先完成，我们将进行多少次迭代mov cx, 2？

    此外，一般注意，在汇编程序插入中您可以自由修改三个寄存器 AX、CX、DX。其余寄存器的值，如果您修改它们，则必须恢复。

    现在是正确的代码。

    function sum: Word; assembler;
asm
  push bx     { сохраним регистр bx }
  xor bx, bx  { обнулили регистр bx. Здесь будем собирать итоговую сумму }
  mov cx, 40  { записали в cx, количество итераций. Одновременно это будет текущее значение x }
@1:
  mov ax, cx
  mul cx      { умножаем ax на cx. Результат будет в паре dx:ax. Но для X <= 40 нам хватит и 2 байт }
  mul cx
  shr ax, 1   { сдвигаем ax на один бит вправо, что эквивалентно делению на 2 }
  inc ax      { добавляем к ax 1 }
  add bx, ax  { суммируем с аккумулятором }
  loop @1     { уменьшили значение cx, и если оно не стало равно нулю, то начали еще одну итерацию }
  inc bx      { мы пропустили итерацию при x = 0. Добавляем значение 0^3/2+1=1 }
  mov ax, bx  { результат функции возвращаем через ax }
  pop bx      { восстанавливаем значение bx }
end;

begin
  writeln ('s:= ', sum);
end.
    • 2

相关问题