;Bai1/Nhap vao 2 so 0<a,b<=9.hay in ra tong cña chung
code segment
assume cs:code
org 100h
start: jmp over
xau1 db 'Nhap a= $'
xau2 db 0ah,0dh,'Nhap b= $'
xau3 db 0ah,0dh,'Tong la: $'
over:
mov ah,9
lea dx,xau1
int 21h
mov ah,1
int 21h
mov bl,al
mov ah,9
lea dx,xau2
int 21h
mov ah,1
int 21h
add bl,al
sub bl,30h
mov ah,9
lea dx,xau3
int 21h
cmp bl,'9'
jbe inra
mov dl,'1'
mov ah,2
int 21h
sub bl,10
inra:
mov ah,2
mov dl,bl
int 21h
int 20h
code ends
end start
;Bµi2/Cho bl=19.Hay nhap so;a,2<=a<=9 va in ra thuong va du cua ;bl chia cho a bang phuong phap tru dan
code segment
assume cs:code
org 100h
start: jmp over
xau1 db 'Nhap a= $'
xau2 db 0ah,0dh,'Du = $'
xau3 db 0ah,0dh, 'Thuong = $'
over: mov ah,9
lea dx,xau1
int 21h
mov ah,1
int 21h
and al,0fh
xor bx,bx
mov bh,19
lap:inc bl
sub bh,al
cmp bh,al
jae lap
mov ah,9
lea dx,xau3
int 21h
mov ah,2
mov dl,bl
or dl,30h
int 21h
mov ah,9
lea dx,xau2
int 21h
mov ah,2
mov dl,bh
or dl,30h
int 21h
int 20h
code ends
end start
;Bai3/Tim UCLN cual;1<=a,b<=32767(su dung thu vien)(cn03.asm)
include mylib.mac
code segment
assume cs:code
org 100h
start: jmp over
a dw ?
b dw ?
over: @write'Nhap a= '
call nhap_so
mov a,ax
@xuongdong
@write'Nhap b= '
call nhap_so
mov b,ax
mov bx,a
@xuongdong
lap: cmp ax,bx
ja qua
je het
sub bx,ax
jmp lap
qua:
sub ax,bx
cmp ax,bx
jne lap
het:
@write'UCLN cua a va b la: ' mov ax,bx
call in_so
int 20h
include proc.asm
code ends
end start
;Bai4/Nhap 2 so 1<=a,b<=9.
Hay in ra ;hieu cua chung (cn04.asm)
code segment
assume cs:code
org 100h
start: jmp over
xau1 db 'Nhap a= $'
xau2 db 0ah,0dh,'Nhap b= $'
xau3 db 0ah,0dh,'Hieu = $'
over: mov ah,9
lea dx,xau1
int 21h
mov ah,1
int 21h
mov bl,al
mov ah,9
lea dx,xau2
int 21h
mov ah,1
int 21h
sub bl,al
mov ah,9
lea dx,xau3
int 21h
mov ah,2
cmp bl,0
jg qua
mov dl,'-'
int 21h
neg bl
qua:
mov dl,bl
add dl,30h
int 21h
int 20h
code ends
end start
;Bai 5/Nhap mot ki tu tuy y. Hay in ra ma ASCII cua no o dang nhi phan; (cn05.asm)
code segment
assume cs:code
org 100h
start: jmp over
xau1 db 'Nhap 1 ky tu : $'
xau2 db 0ah,0dh,'Ma nhi phan cua ky tu la: $'
over:
mov ah,9
lea dx,xau1
int 21h
mov ah,1
int 21h
mov bl,al
mov ah,9
lea dx,xau2
int 21h
xor bh,bh
mov ah,2
lap:
mov dl,30h
rol bl,1
adc dl,0
int 21h
inc bh
cmp bh,4
jne qua
mov dl,32
int 21h
qua:
cmp bh,8
jb lap
int 20h
code ends
end start
;Bai 6/Nhap so nguyen duong 2<=N<=32767.Hay xac dinh N co phai la so nguyen to khong (duoc su dung thu vien)
include mylib.mac
code segment
assume cs: code
org 100h
start: jmp over
n dw 0
over:
@write ' Nhap vao 1 so : n = '
call nhap_so
mov n,ax
mov cx,2
lap:
mov ax,n
xor dx,dx
div cx
inc cx
cmp dx,0
je thoat
cmp cx,n
jb lap
@xuongdong
@write' Day la so nguyen to ! '
jmp het
thoat: @xuongdong
@write ' Day khong phai la so nguyen to !'
het: int 20h
include proc.asm
code ends
int 21h
het:
int 20h
code ends
end start
;Bai 7/Nhap mot ki tu neu do la chu hoa thi in ra thong bao chu hoa, neu chu thuong thi in thong bao chu thuong
code segment
assume cs:code
org 100h
start: jmp over
xau db 'Nhap 1 ky tu: $'
xau1 db 0ah,0dh,'ky tu vua nhap la chu hoa$'
xau2 db 0ah,0dh,'ky tu vua nhap khong phai chu hoa $'
over:
mov ah,9
lea dx,xau
int 21h
mov ah,1
int 21h
cmp al,'A'
jb khac
cmp al,'Z'
ja khac
mov ah,9
lea dx,xau1
int 21h
jmp het
khac:
mov ah,9
lea dx,xau2
int 21h
het:
int 20h
code ends
end start
;Bai 8/Hay in ra bang ma ASCII mo rong(cn08.asm)
code segment
assume cs:code
org 100h
start: jmp over
xau db ' BANG MA ASCII MO RONG ', 0ah,0dh ,'$'
xau2 db ' $'
xau3 db 0ah,0dh,'$'
over:
mov ah,9
lea dx,xau
int 21h
xor bh,bh
mov bl,127
lap:mov ah,2
mov dl,bl
inc bl
int 21h
mov ah,9
lea dx,xau2
int 21h
cmp bl,255
je thoat
inc bh
cmp bh,10
jb lap
xor bh,bh
mov ah,9
lea dx,xau3
int 21h
jmp lap
thoat:int 20h
code ends
end start
;Bai 9/Nhap N nguyen duong xac dinh N co phai la so ching phuong ko?(cn09.asm)
include mylib.mac
code segment
assume cs:code
org 100h
start: jmp over
n dw ?
over:
@write'Nhap N= '
call nhap_so
mov n,ax
@xuongdong
mov cx,1
lap:
mov ax,cx
mul cx
cmp ax,n
je qua
inc cx
cmp cx,n
jb lap
@write'So da nhap khong phai la so chinh phuong'
jmp het
qua:
@write'Day la so chinh phuong'
het:
int 20h
include proc.asm
code ends
end start
;Bai10/Nhap mot ki tu neu do la chu thuong thi thong bao do la chu ;thuong nguoc lai thi thong bao do khong phai la chu thuong(cn10.asm)
code segment
assume cs:code
org 100h
start: jmp over
xau db 'Nhap 1 ky tu: $'
xau1 db 0ah,0dh,'ky tu vua nhap la chu thuong$'
xau2 db 0ah,0dh,'ky tu vua nhap khong phai chu thuong $'
over:
mov ah,9
lea dx,xau
int 21h
mov ah,1
int 21h
cmp al,'a'
jb khac
cmp al,'z'
ja khac
mov ah,9
lea dx,xau1
int 21h
jmp het
khac:
mov ah,9
lea dx,xau2
int 21h
het:
int 20h
code ends
end start
Bạn đang đọc truyện trên: Truyen2U.Pro