(comment
sistema de ecuaciones lineales
)
(def a 2)
(def b 5)
(def c 12)
(def d 47)
(def e 30)
(def f 71)
(defn calcular [ a b c d e f denominador]
(def x (/ (- (* c e) (* b f) ) denominador));;x
(def y (/ (- (* a f) (* c d) ) denominador));;y
(println "Solucion:\nx="x" , y="y)
)
(def denominador (- (* a e) (* b d)))
(println "denomindador:"denominador)
(if (= denominador 0)
(println "Sin solucion!")
(calcular a b c d e f denominador)
);;fin if
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.