Всякие лабы / LabRab_4

inc cx test ax,ax

jnz metka_1

mov ah, 02h

loop1: pop dx add dl,'0' int 21h loop loop1

pop dx pop cx pop bx ret

otr: push dx push ax

lea dx, minus mov ah, 09 int 21h

pop ax pop dx neg ax jmp cc

output endp

begin:

mov ax, data mov ds, ax

;AH

lea dx, message2 mov ah, 09

int 21h

lea dx, ex1 mov ah, 09 int 21h

lea dx, ex2 mov ah, 09 int 21h

call input mov [a],al

;AL

lea dx, message3 mov ah, 09

int 21h lea dx, ex3 mov ah, 09 int 21h lea dx, ex4 mov ah, 09 int 21h lea dx, ex5

mov ah, 09 int 21h call input mov [b],al

;s _ r

lea dx, message1 mov ah, 09

int 21h call input mov [s],ax call input mov [r],ax

mov al, [a] ;закончили упражнение

;if-else [1] cmp al, 2

jz e2

e1:

;1) r^2 + s^2

mov ax, [r] mov bx, [r] mul bx

mov [qr], ax mov ax, [s] mov bx, [s] mul bx

mov [qs], ax

mov ax, [qr] add ax, [qs] jmp c1

e2:

;2) (r + s)/(r - s) mov ax, [r]

mov bx, [s] cmp ax, bx jz check1 mov ax, 00 mov bx, 00 mov ax,[r] add ax,[s]

mov [som],ax ; сумма mov ax, 00

mov ax,[r] sub ax,[s]

mov [sup],ax ; разность mov ax,[som]

mov bx,[sup] idiv bx

jmp c1

c1:

call output push ax push dx

lea dx, space mov ah, 09 int 21h

pop dx pop ax

case2: ;case [2]

mov al, [b]

cmp al, 3 jnz next

jmp far ptr a1 next:

cmp al, 4 jnz nextn

jmp far ptr a2 nextn:

cmp al,5

jmp far ptr a3

c2:

call output

mov ax, 4c00h int 21h

ErOut:

lea dx, zeroMess mov ah, 09

int 21h

mov ax, 4c00h

int 21h check1:

lea dx, zeroMess mov ah, 09

int 21h jmp case2

code ends end begin