Методические указания по Организации ЭВМ и систем

Лабораторная работа 9.

Пример решения в системе программирования Delphi:

{файл проекта *.dpr}
{lab.rab.9, Tiydu, 22-7, 09.01.2002}

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

const
 x:array [1..5] of single=(1,2,3,4,5);

var
  sum, xx, tmp:single;
begin
  xx:=3.4;
  asm
    mov ecx,5
    mov ebx,0
    finit
    fldz
@1:
    lea esi,x
    fld  dword ptr [esi+ebx]
    fcos
    fadd st(1),st(0)
    fstp tmp
    add ebx,4
    loop @1

    fld  xx
    fcos
    fadd st(1),st(0)
    fstp tmp
    fld  xx
    fsincos
    fdiv
    fadd st(1),st(0)
    fstp tmp
    fstp sum
  end;
  writeln(sum:5:2);
  readln
end.