función auxiliar en DrRacket - Ecuación de segundo grado

Una función auxiliar 

Es muy útil dado que permite ahorrar código repetitivo en ocasiones en las que se necesita un mismo proceso en diferentes funciones o en una misma varias veces.

Enunciado: crear un programa que indique si una ecuación de segundo grado tienen o no raíces reales usar una función auxiliar.

toma de pantalla

; ===========================================================================

; Autor: Jorge isaac peña caceres
; Fecha: 10/09/2018
;-------------------------------------------------------------------------------
; Contrato: calcular-raiz:    -> simbolo
; Proposito: Calcular las operacion de b^2 - 4ac
; Ejemplo: (calcular-raiz 1 2 4) retorna: -12

(define (calcular-raiz A B C)
  (- (sqr B) (* 4 A C))
)


;-------------------------------------------------------------------------------
; Contrato: chequear-ecuacion:    -> simbolo
; Proposito: indicar si una ecuacion de segundo grado tienen o no raizes reales
; Ejemplo: (chequear-ecuacion 1 2 4) retorna: 'noTiene

(define (chequear-ecuacion a b c)
  (cond
    [(< (calcular-raiz a b c) 0) 'noTiene]
    [(= (calcular-raiz a b c) 0) 'una]
    [else 'dos]
    
))

;pruebas
(check-expect (chequear-ecuacion 1 2 4) 'noTiene)
(check-expect (chequear-ecuacion 1 4 4) 'una)
(check-expect (chequear-ecuacion 1 4 2) 'dos)


; ===========================================================================

En este caso la función auxiliar es calcular-raiz la cual permite ahorrar código repetitivo en: chequear-ecuacion puede parecer simple pero es importante su uso en trabajos donde el código se torne muy repetitivo.

Ecuación de segundo grado