یه رشته ای رو از کاربر دریافت کردیم و میخواهیم که اولین کاراکتر رو با آخرین کاراکتر در رشته رو مقایسه کنه و اگه مثل هم بودند با یه پیغام اعلام کنه .
مشکلی که من دارم مقایسه کردن اولین کاراکتر با آخرین کاراکتر هستش .
دوستان می تونند راهنمایی کنند ؟
Printable View
یه رشته ای رو از کاربر دریافت کردیم و میخواهیم که اولین کاراکتر رو با آخرین کاراکتر در رشته رو مقایسه کنه و اگه مثل هم بودند با یه پیغام اعلام کنه .
مشکلی که من دارم مقایسه کردن اولین کاراکتر با آخرین کاراکتر هستش .
دوستان می تونند راهنمایی کنند ؟
دوستان کسی راه حلی به ذهن اش نمیرسه .
اگه اولین عنصر Buffer رو درون یک ثبات بریزیم و بعد اگه بخواهیم با اندیس دادن به Buffer آخرین عنصر رو با ثبات مقایسه کنیم . به نظرتون عملی هست !
فقط کافیه یک اشاره گر به ابتدا بافر و دیگری به انتهای بافر اشاره کنه بعد مقایسه کنید
برای این کار یک ثبات مشترک برای نگهداری آدرس شروع و برای رفتن به انتها هم طول بافر رو در ثبات bx قرار بدین و مقایسه کنید ، همین
موفق باشی
من به این شکل نوشتم ولی کار نمیکنه
mov cl,buf[bx]
mov bx,0
mov bl,buf[bx]
cmp cl,bl
je Label_1
من برنامه تون رو تصحیح کردم:
"buf db "MARYAM
len db 6
mov bx,len-1
mov cl,[buf+bx]
mov bx,0
mov bl,[buf+bx]
cmp cl,bl
je Label_1
فقط این خط سوم رو هم باید اصلاح کنیدنقل قول:
من برنامه تون رو تصحیح کردم:
xor bx,bx
mov bl,len-1
و نیازی به خط پنجم نیست و در خط ششم هم به bx فقط کاربردی که میتونه داشته باشه بخواین عناصر دیگه ای هم بررسی کنید که برای کم کردن دستورات باید از si,di کمک بگیرین
جناب xman_1365_x ، آیا منظورتون این بود؟
buf db "MARYAM"
len db 6
mov si,buf
mov di,buf+len-1
cmpsb
je Label_1
البته من خواستم کمترین تغییرات رو به کدشون بدم
نه منظورم این نبود،این کدتون اشتباه هست. کد قبلی هم دستور mov bx,len-1 اشتباه هست حواسم نبود شما از آدرس کم کردین نه مقدار و نمیتونین 8 بیتی رو به 16 بیت انتقال بدین که در کد زیر درستش رو نوشتمنقل قول:
آیا منظورتون این بود؟
این حالت برای مقایسه اولین و آخرین هست
org 100h
mov bh,0
mov bl,len
dec bl
mov cl,[buf+bx]
cmp cl,buf
je Label_1
Label_1:
ret
buf db "MARYAM"
len db 6
end
موفق باشید
تشکر فراوان از دوستان عزیز من برنامه رو با اصلاحات شما دوستان دوباره نوشتم و برنامه به درستی کار میکند .
اما یه سوال از جناب xman_1365_x
چرا buf+bx کردیم ؟ مگه مقدار bx چند هستش
و برای چی dec BL ؟
باز هم از دوستان کمال تشکر رو دارم
کمی بعد از من پست دادین انگار جواب رو ندیدین:لبخندساده:
.model small
.stack
.data
msg1 DB 13,10,"Matn Mored Nazar Ra Vared Konid : :",13,10,"$"
msg2 DB 13,10,"Charakter Aval Ba Akhar Mosavi Hastand ",13,10,"$"
msg3 DB 13,10,"Charakter Aval Ba Akhar Mosavi Nistand ",13,10,"$"
string LABEL BYTE
max DB 20
len DB ?
buf DB 20 dup(?)
.code
main proc far
mov ax ,@data
mov ds,ax
lea dx,msg1
mov ah,09h
int 21h
lea dx,string
mov ah,0ah
int 21h
xor bx,bx
mov bl,len
dec bl
mov cl,[buf+bx]
cmp cl,buf
je Label_1
lea dx,msg3
mov ah,09h
int 21h
jmp exit
Label_1: lea dx,msg2
mov ah,09h
int 21h
exit:
mov ah,4ch
int 21h
main endp
end main
جناب xman_1365_x
اون دوتا تکه کدی که گذاشتم و فرمودین غلطه، از نظر MACRO ASSEMBLER اشتباهه ،ولی از نظر FASM درسته و خودم تستش کردم(با EMU)
من کد M.amin رو چک نکردم ولی کد زیر نسخه ی MACRO ASSEMBLER اون دوتا کد خودم که بالا گذاشتم:
buf db "MARYAM"
len db 6
lea si,buf
lea di,buf
add di,offset len-1
mov al,[di]
cmp [si],al
je EXIT
که مثل کدهای قبلی کار می کنندو ممنون از اینکه اینقدر توجه دارید و وقت می گذارین
دوستان سعی کنید با یک نام کاربری وارد شین:چشمک:
مقدار bx =len-1=6-1 یک واحدی که کم میشه برای اینه عنصر اول همون آدرس بافر هست برای همین یک واحد کم میکنیم طول بافر رونقل قول:
چرا buf+bx کردیم ؟ مگه مقدار bx چند هستش
و برای چی dec BL ؟
دستور dec برای کم کردن یک واحد هست همون منهی یک که داریم
برنامه رو در امولاتور خط به خط اجرا کنید تغییرات رو مشاهده کنید!
بله بازم میگم اشتباه هست مثل همین کدی که گذاشتین، چرا ؟نقل قول:
نوشته شده توسط pe32_64
کد شما مشکلش اینه آدرس len رو با آدرس buf جمع میکنید و به آدرس اشتباه میرین و برنامه اشتباه میشه خروجیش! کد های قبلی هم خودتون تست کنید مشکلتون رو متوجه میشین
کد شمارو درست کردم تغییرات رو بررسی کنید
org 100h
dec len
lea si,buf
lea bx,buf
add bl,len
mov al,[bx]
cmp [si],al
je EXIT
cld
EXIT:
stc
ret
buf db "MARYAM"
len db 6
end
بله ، من دقیقا متوجه شدم .نقل قول:
نوشته شده توسط xman_1365_x
اما حالا اگه اگه بخواهیم یه کم برنامه رو تغییر بدیم . اگه بخواهیم رشته ای رو که داریم رو از آخر به اول چک کنیم که آیا با رشته وارد شده مساوی است یا خیر . ( مثلا ABA رو از هر طرف چک کنیم مساوی هستند )
به نظرتون باید چه کار بکنیم ؟
جناب xman_1365_x این کد درسته؟(اشتباهشو درست فهمیدم)
STACK SEGMENT PARA STACK 'Stack'
DB 1024 DUP(0)
STACK ENDS
DATASEG SEGMENT PARA 'data'
buf1 db "ASM"
buf db "MARYAM"
buf2 db "peyman"
len1 db 8
len db 6
len2 db 56
DATASEG ENDS
CODESEG SEGMENT PARA 'Code'
MAIN PROC FAR
ASSUME SS:STACK,DS:DATASEG,CS:CODESEG
MOV AX,DATASEG
MOV DS,AX
MOV ES,AX
s:
lea si,buf
lea di,buf
mov bl,len
dec bl
cbw
add di,bx
mov al,[di]
cmp [si],al
je EXIT
jmp s
EXIT:
MOV AX,4C00H
INT 21H
MAIN ENDP
CODESEG ENDS
END MAIN
با در نظر نگرفتن دستور cbw که اضافه هست و دستور jmp s باعث میشه برنامه توی حلقه بینهایت گیر کنه اگر کاراکتر برابر نباشه ، باقیش همون روش هست که نمونه کد گذاشتم و درستهنقل قول:
این کد درسته؟(اشتباهشو درست فهمیدم)
البته bh=0 نکردین در این برنامه اشکالی نداره اما در برنامه های دیگه باید حواستون باشه باعث میشه اشتباه میشه
موفق باشی
مطابق دستورتون برنامه تصحیح شد:
STACK SEGMENT PARA STACK 'Stack'
DB 1024 DUP(0)
STACK ENDS
DATASEG SEGMENT PARA 'data'
buf1 db "ASM"
buf db "MARYAM"
buf2 db "peyman"
len1 db 8
len db 6
len2 db 56
DATASEG ENDS
CODESEG SEGMENT PARA 'Code'
MAIN PROC FAR
ASSUME SS:STACK,DS:DATASEG,CS:CODESEG
MOV AX,DATASEG
MOV DS,AX
MOV ES,AX
lea si,buf
lea di,buf
xor bx,bx
mov bl,len
dec bl
add di,bx
mov al,[di]
cmp [si],al
je EXIT
jmp Next
Next:
mov ah, 1
int 21h
EXIT:
MOV AX,4C00H
INT 21H
MAIN ENDP
CODESEG ENDS
END MAIN
در مورد چک کردن رشته از آخر به اول دوستان میشه راهنمایی کنن .
میتونیم رشته رو معکوس کنیم . و بعد اون رو با buf مقایسه کنیم .؟
نیازی به معکوس کردن نیست با یک واحد کم کردن از آدرس انتهای رشته به سمت اول رشته پیمایش میکنیدنقل قول:
نوشته شده توسط M.amin
کاقیه دستوری که به انتهای رشته میرفتیم بعد از مقایسه dec کنید
موفق باشی
سوال این هستش چک بشه که رشته ورودی وقتی از انتها پیمایش میشه مساوی هست با پیمایش از ابتدا .نقل قول:
نوشته شده توسط xman_1365_x
مثلا رشته " ABCBA" این رشته از هر دو طرف وقتی پیمایش میشه مساوی هستش .
تو کد قبلی ما انتهای رشته رو با ابتدای رشته مقایسه می کردیم . با کم کردن آدرس انتهای رشته ، فقط از انتها به ابتدا با کاراکتر اول رشته چک میشه .
این برنامه نیاز به حلقه داره درون حلقه یکی به ابتدا اشاره کنه و یکی به انتهای رشته بعد مقایسه کنید و در هر مرحله از انتها یک واحد کم بشه و به ابتدای آدرس یک واحد اضافه بشهنقل قول:
نوشته شده توسط M.amin
من این رو نوشتم اما خطا میگیره
Mohasebe proc neare
mov bh,0
mov bl,len
for: cmp dx,bx
je exit
dec bl
mov cl,[buf+bx]
cmp cl,[buf+dx]
jne label_1
inc dx
jmp for
ret
خوب اشتباه نوشتین!نقل قول:
من این رو نوشتم اما خطا میگیره
از dx به عنوان اندیس استفاده کردی:لبخندساده:،اندیس ابتدا باید صفر باشه،حلقه باید len/2 باشه
موفق باشی