Уравнение суммы

[Slash3]

Написать программу чтобы она решала уравнение
Значение N = [1..999]
K є [1..255]
Например при N=5 и K є [1..255]
E сумма
Е(внизу К=1)(сверху N) =1*(1-1)+ 2*(2-1)+ 3*(3-1)+ 4*(4-1)+ 5*(5-1)= ?
Программа должна выдать результат

[alexcoder]

стучите в асю 368161244, помогу

[Goodwin98]

Ввод и вывод сами прикрутите.

.model tiny
.code
org 100h
start:
	
	mov ax,[N]
	mov bx,ax
	push ax
	sub ax,[K]
	xor dx,dx
	pop bx
	mul bx
	
	add [summa],ax
	test bx,bx
	jz exit
	dec [N]
	jmp start
exit:

	ret
.data
N	dw 5
K	dw 1
summa	dw ?
end start

[Slash3]

я не понимаю в этом.... помогите...

[alexcoder]

стучите в асю 368161244, помогу

[MalCer]

я не понимаю в этом.... помогите...

А что тебе не понятно?

	mov ax,[N]   ; помещаем в ax значение 5
        mov bx,ax    ; пересылаем это значение в bx
        push ax        ; сохраняем ax для дальнейших действий
	sub ax,[K]     ; вычитаем от ax единицу(т.е. 5-1=4)
	xor dx,dx      ; обнуляем dx
	pop bx          ; извлекаем из стэка значение ax в bx
	mul bx           ; умножаем числа

  	add [summa],ax  ;складываем значения и заносим их в summ
	test bx,bx            ; bx=0, то
	jz exit                  ; на выход
	dec [N]                ; увеличим на единицу N
	jmp start             ; теперь повторим все эти действия
exit:
      ret

[Slash3]

ооо комментарии это хорошо... подскажи в чем ее можно посмотреть??? какую программу использовать???

[MalCer]

как это посмотреть??? ну копируй и вставь в файл с расширением asm. И компилируй Tasm'ом или Masm'ом

[Slash3]

у меня не получается настроить программу Masm, вы пробовали? у вас работает?

[MalCer]

Не знаю что там у тебя, а у меня работает. Вот как компилил TASM'ом:

tasm proga1.asm
tlink proga1.obj/t

Прога рабочая!!!