mantan
سه شنبه 06 تیر 1391, 22:24 عصر
سلام
می خوام برنامه بنویسم که رشته ای از ورودی بگیره و بعد کارکتر های کوچک الفبای انگلیسی رو از بزرگ تشخیص بده و بعد چاپش کنه این کد منه (فقط کارکتر های کوچک اون رشته رو چاپ کنه به همراه ی شمارش):گریه::ناراحت::ناراحت:
data segment
str db 6 dup(?),'$'
md label byte
max db 10
len db ?
Buffer db 10 dup('$')
data ends
code segment
main proc far
assume ds:data,cs:code
mov ax,data
mov ds,ax
mov ah,0ah
lea dx,md
int 21h
lea bx,Buffer
mov ch,60h
mov cl,len
lea ax,str
mov si,9
kol: mov dl,[bx]
cmp dl,ch
ja bo
inc bx
bo:
mov [ax],dl
inc ax
dec si
cmp si,0
je bi
loop kol
bol
bi:
mov ah,9h
lea dx,[ax]
inc ax
int 21h
loop bol
main endp
code ends
end main
می خوام برنامه بنویسم که رشته ای از ورودی بگیره و بعد کارکتر های کوچک الفبای انگلیسی رو از بزرگ تشخیص بده و بعد چاپش کنه این کد منه (فقط کارکتر های کوچک اون رشته رو چاپ کنه به همراه ی شمارش):گریه::ناراحت::ناراحت:
data segment
str db 6 dup(?),'$'
md label byte
max db 10
len db ?
Buffer db 10 dup('$')
data ends
code segment
main proc far
assume ds:data,cs:code
mov ax,data
mov ds,ax
mov ah,0ah
lea dx,md
int 21h
lea bx,Buffer
mov ch,60h
mov cl,len
lea ax,str
mov si,9
kol: mov dl,[bx]
cmp dl,ch
ja bo
inc bx
bo:
mov [ax],dl
inc ax
dec si
cmp si,0
je bi
loop kol
bol
bi:
mov ah,9h
lea dx,[ax]
inc ax
int 21h
loop bol
main endp
code ends
end main