HackCuba

Código: Seleccionar todo

;-------------------------------------------------------------------------
; Calculadora de Área de Círculo en Ensamblador 8086
; Área = 3.1416 * radio * radio
;-------------------------------------------------------------------------
.model small
.stack 100h

.data
    msg1 db 0Dh,0Ah,'Ingrese el radio (entero): $'
    msg2 db 0Dh,0Ah,'El area aproximada es: $'
    res  dw 0
    radio dw 0
    pi_x_1000 dw 31416 ; Pi multiplicado por 10000 para precision
    
.code
main proc
    mov ax, @data
    mov ds, ax

    ; 1. Solicitar el radio
    mov ah, 09h
    lea dx, msg1
    int 21h

    ; 2. Leer el radio (simple, un solo digito por simplicidad, 0-9)
    mov ah, 01h
    int 21h
    sub al, 30h ; Convertir ASCII a numero
    mov ah, 0
    mov radio, ax

    ; 3. Calcular area: radio * radio * 31416
    mov ax, radio
    mul radio      ; ax = radio^2
    mov dx, pi_x_1000
    mul dx         ; ax = radio^2 * 31416
    
    ; Como multiplicamos por 31416 (pi * 10000), 
    ; debemos dividir entre 10000 para obtener el area real.
    ; Para simplicidad en este ejemplo, no se muestra decimales, 
    ; solo la parte entera (dividiendo por 10000).
    mov cx, 10000
    div cx
    mov res, ax    ; Resultado final entero

    ; 4. Mostrar resultado
    mov ah, 09h
    lea dx, msg2
    int 21h

    ; Convertir numero a ASCII y mostrar
    mov ax, res
    call imprimir_numero

    ; 5. Salir
    mov ah, 4Ch
    int 21h
main endp

;-------------------------------------------------------------------------
; Procedimiento para imprimir un numero en AX
;-------------------------------------------------------------------------
imprimir_numero proc
    push ax
    push bx
    push cx
    push dx
    
    mov cx, 0
    mov bx, 10
    
loop1:
    mov dx, 0
    div bx
    push dx
    inc cx
    cmp ax, 0
    jne loop1
    
loop2:
    pop dx
    add dl, 30h
    mov ah, 02h
    int 21h
    loop loop2
    
    pop dx
    pop cx
    pop bx
    pop ax
    ret
imprimir_numero endp

end main