Дано натуральное четырёхзначное число. Выяснить является ли оно палиндромом - Assembler

Узнай цену своей работы

Формулировка задачи:

помогите плиз

Решение задачи: «Дано натуральное четырёхзначное число. Выяснить является ли оно палиндромом»

textual
Листинг программы
.486
.model flat, stdcall
option casemap :none
; #########################################################################
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\masm32.lib
.XLIST
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
include \masm32\include\masm32.inc
.LIST
 
.DATA
MsgCap  db      'Enter window', 0
MsgSub  db      'Enter 4-digit number here:', 0
MsgPal  db      'Введённое число является палиндромом', 0
MsgNot  db      'Введённое число не является палиндромом', 0
aBuff   db      128 dup(0)
.CODE
Begin:
        push    offset aBuff    
        push    offset MsgSub
        push    offset MsgCap
        push    0
            push    0
        call    GetModuleHandle
        push    eax
        push    0
        call    GetTextInput
        mov     ebx, offset aBuff
        mov     [ebx+4], byte ptr 0        
        mov     eax, [ebx]
        mov     edx, eax
        bswap   eax
        cmp     eax, edx
        mov     eax, offset MsgPal
        je      @F
        mov     eax, offset MsgNot
@@:        
 
        push    0
        push    offset aBuff
        push    eax
        push    0
        call    MessageBox
 
        push    0
        call    ExitProcess
        end     Begin

Объяснение кода листинга программы

  1. Ввод числа с клавиатуры.
  2. Проверка, является ли число палиндромом.
  3. Вывод сообщения в зависимости от результата проверки.

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы