Читайте также:
|
vvod macro str, fun
mov ah,fun
lea dx,str
int 21h
endm
cmpstr1 macro s11,s22,real11,real22,col,ravn,Yes1,NO1
local s,t,m1,m2,m3,exit
xor si,si
s: xor di,di
t: mov cl,byte ptr s22[di]
cmp byte ptr s11[si],cl
je m1
inc col
mov si,col
cmp si,real11
je m3
jmp s
m1: inc ravn
inc si
inc di
mov cx,ravn
cmp cx,real22
je m2
jmp t
m2: vvod Yes1,09h
jmp exit
m3: vvod NO1,09h
jmp exit
exit:endm
codesg segment para 'code'
assume cs:codesg, ds:codesg, ss:codesg, es:codesg
org 100h; Їа®ЇгбвЁвм 256 Ў ©в
begin: jmp start
message db 'Введите строку: ','$'
message2 db 'Введите подстроку: ','$'
string1 label byte
maxs1 db 40
reals1 db?
s1 db 40 dup ('$')
string2 label byte
maxs2 db 10
reals2 db?
s2 db 10 dup ('$')
coll dw 0
ravnno dw 0
real1 dw?
real2 dw?
Yes db 'YES********','$'
NO db 'NO+++++++++','$'
start:
vvod s1,09h
mov ah,02
mov dl,0dh
int 21h
mov dl,0ah
int 21h
vvod message,09h
vvod string1,0ah
;vvod s2,09h
mov ah,02
mov dl,0dh
int 21h
mov dl,0ah
int 21h
vvod message2,09h
vvod string2,0ah
mov ah,02
mov dl,0dh
int 21h
mov dl,0ah
int 21h
xor ax,ax
mov al,reals1; перевод длині введенной строки из байта в слово
mov real1,ax
xor ax,ax
mov al,reals2;перевод длині введенной подстроки из байта в слово
mov real2,ax
cmpstr1 s1, s2, real1, real2, coll, ravnno, Yes, NO
mov ah, 4ch;
int 21h
codesg ends
end begin
Дата добавления: 2015-08-17; просмотров: 73 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Введите две строки. В случае если они одинаковые. Выводится сообщение о том что строки совпали, в противном случае выводится сообщение, о том что строки не совпадают. | | | Напишите программу, в которой вводятся целые числа а, b. Напишите макрокоманду определения min. |