Bài 8

;---------------------------

; Tính biểu thức   |nEi=1 i

;---------------------------

Khi chương trình chạy yêu cầu có dang :

Hay vao N :  5

Tong tu 1 den 5 la :  15

Co tiep tuc CT (c/k)?_

INCLUDE lib1.asm

.MODEL small

.STACK 100h

.DATA

M1  db 10,13,'Hay vao N : $'

M2  db 10,13,'Tong tu 1 den $'

M3  db 10,13,' la : $ '

M4  db 10,13,'Co tiep tuc (c/k) ? $'

.CODE

PS:

            mov  ax,@data

            mov  ds,ax

            CLRSCR                    ; Xóa màn hình

            HienString M1          ; Hiện thông báo M1 (‘Hay vao N : ‘)

            call   VAO_SO_N     ; Nhận giá trị N

            mov  cx,ax                 ; cx = N (chỉ số vòng lặp)

            HienString M2          ; Hiện thông báo M2 (’Tong tu 1 den ‘)

            call   HIEN_SO_N    ; Hiện giá trị N

            HienString M3          ; Hiện thông báo M3 (’ la : ‘)

            dec   cx                       ; Giảm cx đi 1 (n-1)

    L1:

            add  ax,cx                  ; ax = ax+cx  

            loop  L1

            call  HIEN_SO_N     ; Hiện giá trị biểu thức

            HienString M4          ; Hiện dòng nhắc M4 (‘Co tiep tuc CT (c/k) ?’)

            mov  ah,1                   ; Chờ nhận 1 ký tự từ bàn phím

            int     21h

            cmp  al,'c'                   ; Ký tự vừa nhận có phải là ký tự ‘c’ ?

            jne    Exit                   ; Nếu không phải thì nhảy đến nhãn Exit (về DOS)

            jmp   PS                      ; Còn không thì quay về đầu (bắt đầu lại chương trình)

   Exit:

            mov  ah,4ch               ; Về DOS

            int     21h

INCLUDE lib2.asm

            END PS