質問編集履歴
1
プログラムを変えました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -26,9 +26,9 @@
|
|
|
26
26
|
|
|
27
27
|
自分のプログラム
|
|
28
28
|
|
|
29
|
-
(defun niji-kai (a b c) if
|
|
29
|
+
(defun niji-kai (a b c) (if< 0 (- (* b b) ( * 4 a c ) )) ((/ (+ (- b) (sqrt (* 4 a c))) (* 2 a) ) (/ (- (- b) (sqrt (* 4 a c))) (* 2 a)) )
|
|
30
30
|
|
|
31
|
-
if(= 0 (- (* b b) ( * 4 a c ) ) ) (JUUKAI (/ -b 2a) )
|
|
31
|
+
if(= 0 (- (* b b) ( * 4 a c ) ) ) (JUUKAI (/ -b 2a) ) (if> 0 (- (* b b) ( * 4 a c ) )) JISSUUKAI-HA-NASHI )
|
|
32
32
|
|
|
33
33
|
|
|
34
34
|
|