| Код |
CSEG segment
org 100h
Begin:
; -====\\
; -==== Raschet summi
; -====//
mov bx,0 ;\\
mov dx,0 ; > Obnulim registri navsyakiy sluchay
mov di,0 ;//
mov al,3 ; po zadaniyu p=3, teper "p" u nas v vladshem bite registra AX
mov cl,8 ; n=7, pochemu - 8 dumayu razbereshsya
Summa:
mov dl,bl ; \\
add dl,al ; \ Sam cikl summirovania
inc bl ; /
add di,dx ; //
loop Summa
; -====\\
; -==== Raschet formuli
; -====//
mov cl,7 ;\\
mov al,3 ; vvodim znacheniya peremennih
mov ch,2 ;//
mul ch ; 2*p
add al,cl ; (2*p+n) skladivaem
inc cl ; (n+1), prosto srazu uvelicheli na 1, mogno bilo comandoy ADD napisat po drugomu
mul cl ; (n+1)*(2*p+n) peremnojili 2 scobki
div ch ; razdelili na 2
mov bl,al ; sohranili znachenie v BL (BX) po usloviyu zadachi
; -====\\
; -==== Sravnivaem Summ i Formuli
; -====//
cmp bx,di
jnz Neravni ; esli ne ravni-prigaem na metku Neravni
mov ah,9 ; esli ravni vivodim soobshenie
mov dx,offset Mes ; chto vse OK
int 21h
exit: ; i pokidaem etot mir
mov ah,0
int 16h
int 20h
Neravni: ; nu suda popadem ne v etoy jizni
jmp exit
Mes db 'Resultat raven bx=di=52$'
CSEG ends
end Begin
|
Если что, сразу говорю что я чайник, но вроде написал правильно, по крайней мере работает, проверил.  |
спасибки! ДВА я в унвере с преподом также решила! 