Danielita1808

VECTORES

Generar la intersección de 2 vectores

CODIGO:

.model small
.stack
.data
v DB 20 dup(?)
v1 DB 20 dup(?)
n DB ?
m DB 10,10,9,' "programa para generar la interseccion de 2 vectores',10,13
DB 9,' que no tengan elementos duplicados "',10,13,'$'
m0 DB 10,13,'introduzca el numero de elementos (1<N<10): $'
m1 DB 10,13,'introduzca el vector 1: ',10,13,'[ $'m2 DB ' ]',10,13,'introduzca el vector 2:',10,13,'[ $'
m3 DB ' ]',10,10,13,'el vector interseccion es: ',10,13,'[ $'
n1 dw ?
.code
main:

 limpiar pantalla

mov ah,00h
mov al,03h
int 10h

 mensaje del programa

mov ax,@data
mov ds,ax
lea dx,m
mov ah,09
int 21h

 mensaje para introducir tamaño de los vectores

lea dx,m0
mov ah,09
int 21h

 introducirtamaño de los vectores

mov ah,01h
int 21h
sub al,30h
mov n,al ;convierte a binario para almacenarlo en n
xor ah,ah
mov n1,ax
lea dx,m1
mov ah,09
int 21h ;invita introducir el vector 1

 ciclo para captura de los vectores

mov cx,n1
mov si,0
r: mov ah,01h
int 21h
mov v[si],al
inc si
loop r

 mensaje 2 para introducir el vector 2

lea dx,m2
mov ah,09int 21h
mov cl,n
mov si,0
rr: mov ah,01h
int 21h
mov v1[si],al
inc si
loop rr

 mensaje 3 imprimir el vector interseccion

lea dx,m3
mov ah,09
int 21h

 ciclo para comparar y obtener el vector interceccion

mov cx,n1
mov si,0
rrr:
mov al,v[si]
mov di,0
rrrr:
mov bl,v1[di]
inc di
cmp al,bl
jz inter
reg:
cmp di,n1
jnz rrrr
jmp sa
inter:mov dl,al
mov ah,02h
int 21h
jmp reg
sa:
inc si
loop rrr
mov dl,']'
mov ah,02h
int 21h
mov ah,4ch
int 21h end main

Medida Estatura “ejem05.asm”

CODIGO:
.MODEL small .STACK 100h
.DATA
inv db 10,13,'ingresa tuestatura en cm: $' resp db 10,13,'equivale a: '
r1 db ?,' ft, ' r2 db ?r3 db ?,' pg',10,10,13,'Michael Jordan tiene 6ft 10pg',10,13
db 'respecto a MJ te faltan '
r4 db ?,' ft y ' r5db ? r6 db ?,' pg',10,13,'$' wcm db ?wft db ? inch db ?pie db 30 pgd db 12 mj db 82...