پاليدرام بودن يك نوشته، از طريق اسمبلي؟؟؟

raha javid

New Member
با سلام و خسته نباشيد به همه دوستان
يك زحمتي براتون داشتم!!!
آموزش نوشتن يه برنامه اي رو ميخواستم كه رشته حروفيرو از كاربر بگيره، و اگه پاليدرام بود، پيغام بده
يعني به اين صورت كه اگر حرف اول با حرف آخر و حرف دوم با حرف يكي مونده به آخر و ادامه اش هم به همين صورت بود پيغام پاليدرام بودن بده! (( (abccba) اين پاليدرامه ))
ممنون ميشم اگه كمكم كنيد!
 

the_king

مدیرکل انجمن
کد:
.MODEL  SMALL
.DATA
    msg1    DB "Please enter a word : ",13,10,"$"
    msg2    DB 13,10,"Yes, It is a palindrome word.",13,10,"$"
    msg3    DB 13,10,"No, It is not a palindrome word.",13,10,"$"
    txt     DB 30
    txtlen  DB ?
    txtdata DB 30 DUP (?)
.CODE
.STARTUP
    MOV     AH, 09H
    LEA     DX, msg1
    INT     21H
loop_1:
    MOV     AH, 0AH
    LEA     DX, txt
    INT     21H
    CMP     txtlen, 0
    JZ      loop_1
    MOV     CL, txtlen
    MOV     CH, 0
    LEA     SI, txtdata
    MOV     DI, SI
    ADD     DI, CX
    DEC     DI
    LEA     DX, msg2
    SHR     CX, 1
    JZ      next_2
loop_2:
    MOV     AL, [SI]
    CMP     AL, [DI]
    JNE     next_1
    INC     SI
    DEC     DI
    LOOP    loop_2
    JMP     next_2
next_1:
    LEA     DX, msg3
next_2:
    MOV     AH, 09H
    INT     21H
.EXIT
.STACK
END

کد برنامه asm به همراه فایل اجرایی exe ضمیمه این پست می باشد.
 

پیوست ها

  • Palindrome.zip
    739 بایت · بازدیدها: 6

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

بالا