Câu 1 :
;Cong tru trong pham vi 10 -TH: a+b<=9
code segment
assume cs:code
org 100h
start:jmp over
tb1 db 'Nhap a= $'
tb2 db 10,13,'Nhap b=$'
tb3 db 10,13,'Tong a+b<=9 la: $'
over:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
sub al,30h
mov bl,al
mov ah,9
lea dx,tb2
int 21h
mov ah,1
int 21h
sub al,30h
add bl,al
add bl,30h
mov ah,9
lea dx,tb3
int 21h
mov ah,2
mov dl,bl
int 21h
int 20h
code ends
end start
;Cong tru pham vi 10 - TH: a+b>9
code segment
assume cs:code
org 100h
start:jmp over
tb1 db 'Nhap a= $'
tb2 db 10,13,'Nhap b= $'
tb3 db 10,13,'Tong a+b>9 la: $'
over:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
sub al,30h
mov bl,al
mov ah,9
lea dx,tb2
int 21h
mov ah,1
int 21h
sub al,30h
add bl,al
sub bl,0ah
add bl,30h
mov ah,9
lea dx,tb3
int 21h
mov ah,2
mov dl,'1'
int 21h
mov ah,2
mov dl,bl
int 21h
int 20h
code ends
end start
;Cong tru pham vi 10 - TH: a+b>9
code segment
assume cs:code
org 100h
start:jmp over
tb1 db 'Nhap a= $'
tb2 db 10,13,'Nhap b= $'
tb3 db 10,13,'Tong a+b>9 la: $'
over:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
sub al,30h
mov bl,al
mov ah,9
lea dx,tb2
int 21h
mov ah,1
int 21h
sub al,30h
add bl,al
sub bl,0ah
add bl,30h
mov ah,9
lea dx,tb3
int 21h
mov ah,2
mov dl,'1'
int 21h
mov ah,2
mov dl,bl
int 21h
int 20h
code ends
end start
;Cong tru trong pham vi 10 - TH: a-b<0
code segment
assume cs:code
org 100h
start:jmp over
tb1 db 'Nhap a= $'
tb2 db 10,13,'Nhap b= $'
tb3 db 10,13,'Hieu a-b<0 la: $'
over:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
sub al,30h
mov bl,al
mov ah,9
lea dx,tb2
int 21h
mov ah,1
int 21h
sub al,30h
sub bl,al
neg bl
add bl,30h
mov ah,9
lea dx,tb3
int 21h
mov ah,2
mov dl,'-'
int 21h
mov ah,2
mov dl,bl
int 21h
int 20h
code ends
end start
Câu 2:
;Kiem tra ky tu nhap vao co phai la chu so hay khong, sai yeu cau nhap lai
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 10,13,'Nhap 1 chu so: $'
tb2 db 10,13,'Khong phai chu so, nhap lai:$'
tb3 db 10,13,'Ky tu nhap vao la chu so$'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
cmp al,'0'
jb khongphai
cmp al,'9'
ja khongphai
lea dx,tb3
mov ah,9
int 21h
jmp ketthuc
khongphai:
mov ah,9
lea dx,tb2
int 21h
jmp nhaplai
ketthuc:
int 20h
code ends
end start
;Kiem tra ky tu nhap vao la chu thuong, sai yeu cau nhap lai
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 10,13,'Nhap vao chu thuong: $'
tb2 db 10,13,'Khong pahi chu thuong, nhap lai:$'
tb3 db 10,13,'Ky tu nhap vao la chu thuong$'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
cmp al,'a'
jb khongphai
cmp al,'z'
ja khongphai
lea dx,tb3
mov ah,9
int 21h
jmp ketthuc
khongphai:
mov ah,9
lea dx,tb2
int 21h
jmp nhaplai
ketthuc:
int 20h
code ends
end start
;Kiem tra ky tu nhap vao la chu hoa, sai yeu cau nhap lai
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 10,13,'Nhap vao chu hoa: $'
tb2 db 10,13,'Khong pahi chu hoa, nhap lai:$'
tb3 db 10,13,'Ky tu nhap vao la chu hoa$'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
cmp al,'A'
jb khongphai
cmp al,'Z'
ja khongphai
lea dx,tb3
mov ah,9
int 21h
jmp ketthuc
khongphai:
mov ah,9
lea dx,tb2
int 21h
jmp nhaplai
ketthuc:
int 20h
code ends
end start
câu 3 :
;Nhap chu thuong, in ra chu hoa, sai yeu cau nhap lai
code segment
assume cs:code
org 100h
start:jmp over
tb1 db 10,13,'Nhap chu thuong: $'
tb2 db 10,13,'khong phai, nhap lai: $'
tb3 db 10,13,'Chu hoa cua chu thuong vua nhap la: $'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
cmp bl,'a'
jb khongphai
cmp bl,'z'
ja khongphai
mov ah,9
lea dx,tb3
int 21h
and bl,11011111b
mov ah,2
mov dl,bl
int 21h
jmp ketthuc
khongphai:
mov ah,9
lea dx,tb2
int 21h
jmp nhaplai
ketthuc:
int 20h
code ends
end start
;Nhap chu hoa, in ra chu thuong, sai yeu cau nhap lai
code segment
assume cs:code
org 100h
start:jmp over
tb1 db 10,13,'Nhap chu hoa: $'
tb2 db 10,13,'khong phai, nhap lai: $'
tb3 db 10,13,'Chu thuong cua chu hoa vua nhap la: $'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
cmp bl,'A'
jb khongphai
cmp bl,'Z'
ja khongphai
mov ah,9
lea dx,tb3
int 21h
or bl,100000b
mov ah,2
mov dl,bl
int 21h
jmp ketthuc
khongphai:
mov ah,9
lea dx,tb2
int 21h
jmp nhaplai
ketthuc:
int 20h
code ends
end start
câu 4:
;Xac dinh tinh chan le cua so co mot chu so
code segment
assume cs:code
org 100h
start:jmp over
tb1 db 10,13,'Nhap vao mot chu so: $'
tb2 db 10,13,'Khong phai, nhap lai:$'
tb3 db 10,13,'So do la so chan$'
tb4 db 10,13,'So do la so le$'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
mov ah,9
cmp bl,'0'
jb khongphai
cmp bl,'9'
ja khongphai
test bl,1
jz chan
lea dx,tb4
jmp ketthuc
khongphai:
lea dx,tb2
int 21h
jmp nhaplai
chan:
lea dx,tb3
ketthuc:
int 21h
int 20h
code ends
end start
câu 5:
;Doi HEXA ra thap phan chu thuong a->f
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 10,13,'Nhap chu so HEXA thuong ( a->f ): $'
tb2 db 10,13,'Khong phai, nhap lai: $'
tb3 db 10,13,'So thap phan tuong ung la: $'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
cmp bl,'a'
jb khongphai
cmp bl,'f'
ja khongphai
sub bl,31h
mov ah,9
lea dx,tb3
int 21h
mov ah,2
mov dl,'1'
int 21h
mov dl,bl
int 21h
jmp ketthuc
khongphai:
mov ah,9
lea dx,tb2
int 21h
jmp nhaplai
ketthuc:
int 20h
code ends
end start
;Doi HEXA ra thap phan, chu hoa A->F
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 10,13,'Nhap chu so HEXA hoa ( A->F ): $'
tb2 db 10,13,'Khong phai, nhap lai: $'
tb3 db 10,13,'So thap phan tuong ung la: $'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
cmp bl,'A'
jb khongphai
cmp bl,'F'
ja khongphai
sub bl,11h
mov ah,9
lea dx,tb3
int 21h
mov ah,2
mov dl,'1'
int 21h
mov dl,bl
int 21h
jmp ketthuc
khongphai:
mov ah,9
lea dx,tb2
int 21h
jmp nhaplai
ketthuc:
int 20h
code ends
end start
câu 6:
;Nhaap n tu 1-> 5 . dung tinh tong 1->n, sai nhap lai
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 10,13,'Nhap n( 1<=n<=5 )= $'
tb2 db 10,13,'Khong hop le, Nhap lai: $'
tb3 db 10,13,'Tong la: $'
over:
nhaplai:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
cmp bl,'1'
jb khonghop
cmp bl,'5'
ja khonghop
mov ah,9
lea dx,tb3
int 21h
sub bl,30h
xor bh,bh
mov cx,bx
tong:
add bh,bl
dec bl
loop tong
cmp bh,9
ja haichu
add bh,30h
mov ah,2
mov dl,bh
int 21h
jmp ketthuc
haichu:
mov ah,2
mov dl,'1'
int 21h
sub bh,0ah
add bh,30h
mov dl,bh
int 21h
jmp ketthuc
khonghop:
mov ah,9
lea dx,tb2
int 21h
jmp nhaplai
ketthuc:
int 20h
code ends
end start
câu 7:
;In ky tu theo thu tu ma ASCII
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 'Nhap ky tu thu nhat: $'
tb2 db 10,13,'Ky tu thu 2: $'
tb3 db 10,13,'Thu tu la: $'
over:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
mov ah,9
lea dx,tb2
int 21h
mov ah,1
int 21h
mov cl,al
mov ah,9
lea dx,tb3
int 21h
mov ah,2
cmp cl,bl
jb incl
mov dl,bl
int 21h
mov dl,cl
jmp ketthuc
incl:
mov dl,cl
int 21h
mov dl,bl
ketthuc:
int 21h
int 20h
code ends
end start
câu 8:
;Nhap 1 ky tu, in no ra o dang nhi phan cua ma ASCII
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 'Nhap vao mot ky tu: $'
tb2 db 10,13,'Ma ASCII cua no o dang nhi phan la: $'
over:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
mov ah,9
lea dx,tb2
int 21h
mov cx,8
mov ah,2
lap:
xor dl,dl
rcl bl,1
adc dl,30h
int 21h
loop lap
int 20h
code ends
end start
câu 9:
;Nhap 1 ky tu, dem chu so 1 trong ma ASCII o dang nhi phan cua no
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 'Nhap vao mot ky tu: $'
tb2 db 10,13,'So chu so 1 la: $'
over:
mov ah,9
lea dx,tb1
int 21h
mov ah,1
int 21h
mov bl,al
mov ah,9
lea dx,tb2
int 21h
mov cx,8
mov ah,2
xor dl,dl
lap:
rcl bl,1
adc dl,00h
loop lap
add dl,30h
int 21h
int 20h
code ends
end start
câu 10:
;Nhap mot day ky tu ket thuc bang Enter, inra day dao nguoc
code segment
assume cs:code
org 100h
start: jmp over
tb1 db 'Nhap vao mot day cac ky tu: $'
tb2 db 10,13,'Day ky tu dao nguoc la: $'
over:
mov ah,9
lea dx,tb1
int 21h
mov cx,0
while:
mov ah,1
int 21h
mov bl,al
cmp bl,0dh
je end_while
xor bh,bh
push bx
inc cx
jmp while
end_while:
mov ah,9
lea dx,tb2
int 21h
jcxz ketthuc
mov ah,2
lap:
pop bx
mov dl,bl
int 21h
loop lap
ketthuc:
int 20h
code ends
end start
Bạn đang đọc truyện trên: Truyen2U.Pro