SẮP XẾP CHUỖI TĂNG DẦN THEO THUẬT TOÁN BUBBLE SORT


Code:

.Model small
.stack
.Data
   s1 db 'Nhap vao 1 chuoi: $'
   s2 db 10,13,'Chuoi sap xep tang dan:',10,13,'$'
   s db 100,?,101 dup('$')
   n dw ?
.Code
Begin:
   Mov ax, @data
   Mov ds,ax

   Mov ah,09h      ;xuat chuoi s1
   Lea dx,s1
   Int 21h
   
   Mov ah,0Ah      ;nhap chuoi s
   Lea dx,s
   Int 21h
   
   xor cx,cx      ;thuat toan Bubble Sort
   Lea si,s+1
   Mov cl,[si]
   inc si
   mov di,si
   add di,cx
   mov n,di
   dec cx
   L:   
      mov di,n
      mov bx,si
      inc bx
      L1:
         Mov dl,[di]
         cmp dl,[di-1]
         ja   L2
            Mov dh,[di-1]
            Mov [di-1],dl
            Mov [di],dh
         L2:   dec di
            cmp di,bx
            jne L1
         inc si
      Loop L
   
   Mov ah,09h      ;xuat chuoi s2
   Lea dx,s2
   Int 21h
   
   Mov ah,09h      ;xuat chuoi s
   Lea dx,s+2
   Int 21h
   
   Mov ah,4ch
   Int 21h
End Begin