;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Ejemplos de uso de "if" ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Nombre: cuadrante ;; Objetivo: indica el cuadrante en el que está situado un punto ;; Parámetro: ;; x: abscisa del punto ;; y: ordenada del punto ;; Resultado: ;; Cuadrante del punto ;; Descripción: ;; Si x = 0 o y = 0, se indica que está en el eje de coordenadas ;; Si x > 0 e y > 0, primer cuadrante ;; Si x < 0 e y > 0, segundo cuadrante ;; Si x < 0 e y < 0, tercer cuadrante ;; Si x > 0 e y < 0, cuarto cuadrante ;; ;; Funciones a las que llama: ;; Ninguna ;; (define (cuadrante x y) (if (or (= x 0.0) (= y 0.0)) "eje de coordenadas" (if (and (> x 0.0) (> y 0.0)) "primer cuadrante" (if (and (< x 0.0) (> y 0.0)) "segundo cuadrante" (if (and (< x 0.0) (< y 0.0)) "tercer cuadrante" (if (and (> x 0.0) (< y 0.0)) "cuarto cuadrante" ) ) ) ) ) ) ;; ;; Nombre: cuadrante-bis ;; Observación: ;; Se usa "if" anidados ;; Objetivo: indica el cuadrante en el que está situado un punto ;; Parámetro: ;; x: abscisa del punto ;; y: ordenada del punto ;; Resultado: ;; Cuadrante del punto ;; Descripción: ;; Si x = 0 o y = 0, se indica que está en el eje de coordenadas ;; Si x > 0 e y > 0, primer cuadrante ;; Si x < 0 e y > 0, segundo cuadrante ;; Si x < 0 e y < 0, tercer cuadrante ;; Si x > 0 e y < 0, cuarto cuadrante ;; ;; Funciones a las que llama: ;; Ninguna ;; (define (cuadrante-bis x y) (if (or (= x 0.0) (= y 0.0)) "eje de coordenadas" (if (> x 0.0) (if (> y 0.0) "primer cuadrante" (if (< y 0.0) "cuarto cuadrante" ) ) (if (< x 0.0) (if (> y 0.0) "segundo cuadrante" (if (< y 0.0) "tercer cuadrante" ) ) ) ) ) )