Bài 1:Lập chương trình nhập vào 2 số kiểu byte,in ra màn hình tích 2 số vừa nhập
.model tiny
.stack 100h
.data
tb1 db 'nhap a=$'
tb2 13,10,'nhap b=$'
tb3 13,10,'tich 2 so la:$'
so1 db 0
so2 db 0
.code
main proc
Mov ax,@Data
Mov ds,ax
Mov ah,9
;in thong bao nhap so thu 1
Lea dx,tb1
int 21h
nhap1:
mov ah,1
int 21h
cmp al,13 ;so sanh al voi 13
je nhap2 ;neu bang thi nhay den nhap 2
sub al,30h ; chuyen ky tu thanh so
mov dl,al ;cat al vao dl
mov al,so1 ; dua so vua nhap ve kieu byte
mov bl,10 ;gan bl =10
mul bl ;nhan al voi 10
add al,dl ;lay ket qua vua nhan cong voi so vua nhap
mov s01,al ;cat ket qua sau khi doi vao bien so1
jmp nhap1 ;nhay den nhan nhap 1
nhap2:
lea dx,tb2; in thong bao nhap so thu 2
mov ah,9
int 21h
nhap: mov ah,1
int 21h
cmp al,13 ; so sanh so vua nhap voi enter
je tinhtich ;neu bang thi tinh tich
sub al,30h ; chuyen xau vua nhap thanh so
mov dl,al ;cat so vua nhap vao dl
mov al,so2 ;dua so vua nhap ve kieu byte
mov bl,10 ;gan bl=10
mul bl ; lay so ban dau nhan voi 10
add al,dl ;lay ket qua vua nhan cong voi so vua nhap
mov s02,al ;cat ket qua sau khi doi vao bien so2
jmp nhap
tinhtich:
mov al,so1 ;dua so vua nhap ra thanh ghi al
mul so2 ;nhan voi so 2
mov bx,ax ;lay ket qua vua tinh chuyen vao thanh ghi bx
jmp tinhtich
;in tich
mov ah,9 ;hien thong bao in tich
lea dx,tb3
int 21h
mov ax,bx ;chuyen ket qua ra thanh ghi ax
mov bx,10 ;gan bx=10
xor cx,cx ;khoi tao bien dem
chia: xor dx,dx ;xoa bit cao
div bx ;lay ket qua chia cho 10 du dat dx,thuong dat ax
push dx ;day du trong dx vao ngan xep
inc cx ;tang bien dem
cmp ax,0 ;so sanh thuong voi 0
ja chia ;neu lon hon thi chia
mov ah,2 ;lay chuc nang in ky tu ra man hinh
lay: pop dx ;lay du trong stasck khoi dx
add dl,30h ;chuyen so vua nhap sang dang ky tu
int 21h ;thuc hien in ky tu nam trong dl ra man hinh
loop lay
ra: mov ah,4ch
int 21h
Main endp
End main
Bài 2 : Lập chương trình nhập vào 2 số kiểu word,in ra màn hình tổng 2 số vừa nhập
.model tiny
.stack 100h
.data
tb1 db 'nhap so thu 1:$'
tb2 db 13,10 ,'nhap so thu 2:$'
tb3 db 13,10,'tong 2 so$'
so1 dw 0
so2 dw 0
tong dw 0
.code
main proc
mov ax,@data
mov ds,ax
;in thong bao nhap so thu nhat
lea dx,tb1
mov ah,9
int 21h
nhap1:
mov ah,1
int 21h
cmp al,13 ;so sanh ky tu vua nhap voi 13
je nhap2 ;neu bang nhap so thu 2
sub al,30h ;doi ky tu sang so
mov ah,0 ;xoa bit cao
mov cx,ax ;cat so vua nhap vào cx
mov ax,so1 ;đua bien sô 1 vê kiêu byte de chuan bi nhann vói 10
mov bx,10 ;gan bx =10
mul bx ; nhân ax voi 10
add ax,cx ;công ket qua vua nhan voi so vua nhap ket qua cât vào ax
mov so1,ax ; cat kêt qua vao bién sô1
jmp nhap1
nhap2:
lea dx,tb2 ;hiên thông báo nhâp sô thu 2
mov ah,9
int 21h
nhap: mov ah,1 ;nhap sô thu 2
int 21h
cmp al,13 ;so sánh ký tu vua nhâp voi 13
je tinhtong ;nêu băng thì tính tông
sub al,30h ;chuyên ký tu sang dang sô
mov ah,0 ;xoá bít cao
mov cx,ax ;cât kêt qua vua nhap vào cx
mov ax,so2 ;đua biên sô 2 vê kiêu byte
mov bx,10 ;gan bx=10
mul bx ;nhân kêt qua vua nhap voi 10
add ax,cx ;công kêt qua vua nhân vói sô vua nhâp
mov so2,ax ;cât kêt qua vào biên sô 2
jmp nhap
tinhtong:
mov dx,tong
mov ax,so1 ;đua biên sô 1 ra thanh ghi ax
mov bx,so2 ;đua biên só 2 ra thanh ghi bx
add ax,bx ;công ax voi bx kêt qua cat vao ax
mov tong,ax ;dua kêt qua tu ax vào biên tông
inso: mov ah,9 ;hiên thông báo in tông
lea dx,tb3
int 21h
mov ax,tong ;đua kêt qua trongv bien tông ra thanh ghi ax
mov dx,0 ;xoa bit cao dx
mov bx,10 ;gán bx=10
mov cx,0 ;khoi tao biên đêm
chia: div bx ;lây kêt qua chia cho 10
push dx ;du o dx đây vao ngăn xêp
inc cx ;tăng biên đêm
cmp ax,0 ;so sanh thuong voi 0
je hienkq ;neu băng thì hiên kêt qua
xor dx,dx ;xoa bit cao trong dx
jmp chia
hienkq: pop dx ;lây du trong ngăn xêp ra khoi dx
add dl,30h ;chuyên sô thành dang ký tu
mov ah,2 ;in tông
int 21h
loop hienkq
ra: mov ah,4ch
int 21h
Main endp
End main
Bài 3 : Cho một mảng M gồm 20 phần tử kiểu Word giá trị tuỳ ý(không phải nhập giá trị các phần tử).Tính tổng giá trị các phần tử có giá trị chia hết cho 7
.model tiny
.stack 100h
.data
st1 db 13,10,'tong cac phan tu chia het cho 7:$'
st2 db 13,10,'$'
m db 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
a db 0
.code
main proc
mov ax,@data
mov ds,ax
;in thông báo nhập số thứ 1
lea dx,st1
mov ah,9
int 21h
mov cx,20 ;gán cx=20
lea si,m ;si trỏ đến ngăn nhớ đầu tiên của mảng M
mov a,0 ; khởi tạo a=0
duyet:
mov al,[si] ; đưa các giá trị trong mảng do si trỏ đến vào al
mov bl,7 ;gán bl=7
mov ah,0 ;xoá bít cao
div bl ;chia al cho 7
cmp ah,0 ;so sánh thương với 0
je tong ;nếu bằng thì tính tổng
jmp tiep
tong:
mov al,[si] ; đưa các giá trị trong mảng do si trỏ đến vào al
mov bl,a ; đ ưa số a vào bl
add al,bl ;c ộng al v ơí bl kết quả cất vào al
mov a,al ;chuyển kết quae\r vào biến a
tiep:
inc si ;tăng chỉ số mảng
inc dl ;tăng dl
loop duyet
mov al,a ;chuyển số trở lại thanh ghi al
mov bl,10 ;gán bl =10
mov cx,0 ;khởi tạo biến đếm
chia:
mov ah,0 ;xoá bít cao
div bl ;lấy kết quả chia cho 10
mov dl,ah ;chuyển dư vào dl
add dl,30h ;chuyển số sang dạng ký tự
push dx ;dẩy dư vào ngăn xếp
inc cx ;tăng biến đếm
cmp al,0 ;so sánh thương với 0
je inso ;nếu bằng thì in số
jmp chia
inso:
pop dx
mov ah,2
int 21h
loop inso
ra:
mov ah,4ch
int 21h
main endp
end main
Bài 4 : Lập chương trình nhập vào 1 số kiêu word in ra màn hình mã nhị phân tương ứng của số đó
.model tiny
.stack 100h
.data
st1 db 'Nhap so kieu WORD :$'
st2 db 13,10,'Ma nhi phan tuong ung:$'
so dw 0
.code
main proc
mov ax,@data
mov ds,ax
lea dx,st1
mov ah,9
int 21h ;In xau st1
nhap:
mov ah,1
int 21h
cmp al,13
je nhiphan
sub al,30h
mov ah,0
mov cx,ax
mov bx,10
mov ax,so
mul bx
add ax,cx
mov so,ax
jmp nhap
nhiphan:
lea dx,st2
mov ah,9
int 21h
mov cx,0
mov bx,2
mov ax,so
chia:
mov dx,0
div bx
add dx,30h
push dx
inc cx
cmp ax,0
je inso
jmp chia
inso:
pop dx
mov ah,2
int 21h
loop inso
ra:
mov ah,4ch
int 21h
main endp
end main
Bài 5 : Lập chương trình nhập vào 1 số kiêu word in ra màn hình mã Hexa tương ứng của số đó
.model tiny
.stack 100h
.data
st1 db 'nhap so kieu word:$'
st2 db 13,10,'so do duoi dang hecxa:$'
a dw 0
.code
main proc
;
mov ax,@data
mov ds,ax
;
lea dx,st1
mov ah,9
int 21h
nhap:
mov ah,1
int 21h
cmp al,13
je inso
mov ah,0
sub al,30h
mov cx,ax
mov ax,a
mov bx,10
mul bx
add ax,cx
mov a,ax
jmp nhap
inso:
;
lea dx,st2
mov ah,9
int 21h
mov bx,16
mov ax,a
mov cx,0
chia:
mov dx,0
div bx
cmp dx,10
jae doi
add dx,30h
jmp cat
doi: add dx,37h
cat:
push dx
inc cx
cmp ax,0
je hien
jmp chia
hien:
pop dx
mov ah,2
int 21h
loop hien
ra:
mov ah,4ch
int 21h
main endp
end main
Bài 6 : Nhập vào 1 mảng 15 ptu kiểu word in ra màn hình mã Hexa tương ứng của số đó
.model tiny
.stack 100h
.data
tb1 db 'Nhap mang 15 phan tu kieu word: $'
tb2 db 10,13,'Nhap phan tu : $'
tb3 db 10,13,'Phan tu co gia tri lon nhat la: $'
a dw 20 dup(0)
.code
main proc
mov ax,@data
mov ds,ax
;-----------------
lea dx,tb1
mov ah,9
int 21h
mov cx,15 ;Nhap 15 phan tu kieu word
xor si,si
nhapmang:
mov ah,9
lea dx,tb2
int 21h
push cx
nhapso:
mov ah,1
int 21h
cmp al,13
je catkq
sub al,30h
mov cl,al
xor ch,ch
mov bx,10
mov ax,a[si]
mul bx
add ax,cx
mov a[si],ax
jmp nhapso
catkq:
add si,2
pop cx
loop nhapmang
lea dx,tb3
mov ah,9
int 21h
xor si,si
mov ax,a[si]
mov cx,15 ; mov cx,14 add si,2
duyet:
cmp a[si],ax
jbe qua
mov ax,a[si]
qua:
add si,2
loop duyet
;mov ax,a[0]
xor cx,cx
mov bx,10
chia:
xor dx,dx
div bx
push dx
inc cx
cmp ax,0
jne chia
mov ah,2
hienso:
pop dx
add dl,30h
int 21h
loop hienso
;-----------------
mov ah,4ch
int 21h
main endp
end main
.
:D:D
Fri Apr 24, 2020 8:09 pm by dongthienphuc
Tiêu đề: Một số các mẫu bài tập lập trình hợp ngữ . 
