Форум программистов [Powered by Invision Power Board]

Код

.model flat, stdcall
include kernel32.inc
includelib kernel32.lib
.data
; данные программы
 
 
arr_x db 0,1,2,3,4,5,6,7,8,9,10,11    ;Размер каждого элемента 1 байта
arr_y dw 7 dup (0)                    ;Размер каждого элемента 2 байта
N db 5
 
.code
main proc
    ; код главной функции
    mov si,0    ;si=0
    mov cx,5    ;cx= k=4
    
for_k:
    mov ax, 4    ;ax=4
    movzx dx, N            ;dx= N=5
    mov si,cx            ;si=cx= k    
    movsx bx, arr_x[si]    ;bx= X[k]
    imul ax, bx            ;ax= 4*X[k] ???
    mov bx, ax            ;bx= 4*X[k]
    mov ax,dx            ;ax = N
    imul ax, word ptr 2    ;ax= 2N ???
    sub ax,cx            ;ax= 2N-k
    mov si,ax            ;si= 2N-k
    mov ax,bx            ;ax=bx= 4*X[k]
    mov bl, arr_x[si]
    idiv bl                ;ax= 4*X[k]/X[2N-k]
    movsx esi,cx        ;esi=cx= k
    movsx dx, al
    mov arr_y[esi*2],dx    ;Y[k]= 4*X[k]/X[2N-k]
    mov ax,cx            ;ax= k
    mul cx                ;ax= k^2 ???
    movsx si,N            ;si= N
    sub si,cx            ;si= N-k
    imul arr_x[si+1]    ;ax= k^2*X[N+1-k] ???
    cwd
    mov bx,cx            ;bx= k
    add bx,1            ;bx= k+1
    idiv bx                ;al= (k^2*X[N+1-k])/(k+1)
    mov si,cx            ;si= k
    idiv arr_x[si+1]    ;al= (k^2*X[N+1-k])/(k+1)/X[k+1]
    movsx ax,al
    movsx esi,cx
    add arr_y[esi*2], ax ;ax= 4*X[k]/X[2N-k] + 
                        ;    + (k^2*X[N+1-k])/(k+1)/X[k+1]
    dec cx
    test cx,cx        ;ax ? bx сравнение(ax-bx)
    jnz for_k
 
    invoke ExitProcess, 0    ; завершение работы
main endp
end main