یک رشته از ورودی دریافت نمایید آن را تبدیل به عدد نمایید

ehsantv

New Member
سلام دوستان عزیزم میشه کمک کنید بهم ؟

برنامه ای بنویسید که یک رشته از ورودی دریافت نمایید آن را تبدیل به عدد نمایید و در ثبات ax قرار دهد؟؟؟
 

the_king

مدیرکل انجمن
سلام دوستان عزیزم میشه کمک کنید بهم ؟

برنامه ای بنویسید که یک رشته از ورودی دریافت نمایید آن را تبدیل به عدد نمایید و در ثبات ax قرار دهد؟؟؟

کد:
	numMax	DB 6
	numLen	DB ?
	num	DB 6 DUP(?)

کد:
	MOV	AH, 0Ah
	LEA	DX, numMax
	INT	21h
	MOV	CL, numLen
	MOV	CH, 0
	LEA	SI, num
	MOV	BX, 0
loop1:
	MOV	AX, 10
	MUL	BX
	MOV	BL, [SI]
	INC	SI
	SUB	BL, '0'
	MOV	BH, 0
	ADD	BX, AX
	LOOP	loop1
	MOV	AX, BX

رجوع شود به :
سوال در مورد اسمبلی
 
ابتدا دو کاراکتر را از کاربر میگیرد آنها را در مرحله اول بایستی به عددی تبدیل کرده و در مرحله بعد آنها را از هم دیگر مقایسه میکند اگر کاراکتر اولی از دومی بزرگتر باشد آنها را از هم تفریق میکند.
data segment
x db 0
y db 0
r db 0
str1 db “enter number 1 : $”
str2 db “enter number 2 : $”
str3 db “result : $”
data ends
code segment
main proc far
assume cs:code,ds:data
mov ax,data
mov ds,ax

;;;;;;;;;;;;;;;;;;;;;;;
mov ah,09h
lea dx,str1 ;print str1
int 21h
mov ah,01h
int 21h ;get char
mov x,al
mov ah,02h
mov dl,0
mov dh,1 ;next
mov bh,0
int 10h
mov ah,09h
lea dx,str2 ;print str2
int 21h
mov ah,01h
int 21h
mov y,al
mov ah,02h
mov dl,0
mov dh,2 ;next
mov bh,0
int 10h
mov ah,09h
lea dx,str3 ;print str3
int 21h
mov bl,x
cmp bl,y
jbe p
jmp p2
p2: sub bl,y
mov ah,02h
mov r,bl
add r,48
mov dl,r
int 21h
p: sub y,bl
mov ah,02h
add y,48
mov dl,y
int 21h
;;;;;;;;;;;;;;;;;;;;;;;;;;;
main endp
code ends
end main
 

جدیدترین ارسال ها

بالا