Читайте также:
|
input macro inter,var
mov ah,inter
lea dx,var
int 21h
endm
ravnchifr MACRO strб,col;ў®§ўа и Ґв 1 Ґб«Ё Ґбвм ®¤Ё Є®ўлҐ жЁдал
local l1,l2,l3,l4
mov ax,0
lea si,strб
xor ch,ch
mov cl,col
l1:
mov di,si
inc di
push cx
dec cx
jz l4
l2:
mov dl,[di]
mov dh,[si]
inc di
cmp dl,dh
jz l3
loop l2
pop cx
inc si
loop l1
jmp l4
l3:
mov ax,1
l4:
ENDM
codes SEGMENT para 'code'
assume cs:codes,ds:codes,es:codes,ss:codes
org 100h
main:
jmp begin
chislo db 20,?,20 dup (?)
mes db 13,10,'Есть одинаковые цифры!!!','$'
mesn db 13,10,'Одинаковых цифр нет','$'
mespr db 13,10,'Введите пожалуйста число: ','$'
begin:
input 09h,mespr
input 0ah,chislo
ravnchifr chislo+2,chislo+1
test ax,ax
jz m2
input 09h,mes
jmp m3
m2:
input 09h,mesn
m3:
mov ah,4ch
int 21h
codes ends
end main
Ввести с клавиатуры два натуральных числа. Проверить есть ли у них одинаковые цифры. Если да, вывести их на экран. Преобразование строки в число произвести с помощью макрокоманды
input macro inter,var
mov ah,inter
lea dx,var
int 21h
endm
ravnchifr MACRO str1,str2,col1,col2
local l1,l2,l3
lea si,str1
xor ch,ch
mov cl,col1
l1:
lea di,str2
push cx
mov cl,col2
l2:
mov al,[si]
cmp al,[di]
jnz l3
mov ah,02h
mov dl,al
int 21h
l3:
inc di
loop l2
pop cx
inc si
loop l1
ENDM
codes SEGMENT para 'code'
assume cs:codes,ds:codes,es:codes,ss:codes
org 100h
main:
jmp begin
chislo1 db 20,?,20 dup (?)
chislo2 db 20,?,20 dup (?)
mes db 13,10,'Одинаковые цифры: ','$'
mespr db 13,10,'Введите пожалуйста число: ','$'
begin:
input 09h,mespr
input 0ah,chislo1
input 09h,mespr
input 0ah,chislo2
input 09h,mes
ravnchifr chislo1+2,chislo2+2,chislo1+1,chislo2+1
mov ah,4ch
int 21h
codes ends
end main
Дата добавления: 2015-08-17; просмотров: 95 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Напишите программу, в которой вводятся целые числа c, d. Напишите макрокоманду определения max. | | | Дана длина ребра куба. Найти площадь полной поверхности этого куба. |