このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/373
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク): 
#   
#  以下の問題文の ^ はべき乗をあらわす記号とする。 
#   
#  1.二次方程式 "ax^2+bx+c=0" のxの解を"解の公式"を使って求め、表示しなさい。 
#  a,b,cは乱数によって決定されるdouble型の変数とする。 
#  a,b,cは "a≠0 , b^2-4ac>=0" を満たすものとする。 
#  解の公式は {-b±√(b^2-4ac)}/(2a) を使うこと。 
#   
#  

'二次方程式 "ax^2+bx+c=0" のxの解を"解の公式"を使って求め、表示する'(_a,_b,_c) :-
        \+(_a = 0),\+(_a = 0.0),
        _b ^ 2 - 4 * _a * _c >= 0,
        X_1 is ((-1) * _b + sqrt(_b ^ 2 - 4 * _a * _c)) / ( 2 * _a),
        X_2 is ((-1) * _b - sqrt(_b ^ 2 - 4 * _a * _c)) / ( 2 * _a),
        write_formatted('%tx^2+%tx+%t=0 の解は\n',[_a,_b,_c]),
        write_formatted('x = %t または x = %t\n',[X_1,X_2]).
'二次方程式 "ax^2+bx+c=0" のxの解を"解の公式"を使って求め、表示する'(_a,_b,_c) :-
        ((_a = 0);(_a = 0.0)),
        X is ((-1) * _c) / _b,
        write('これは二次方程式ではありません。一次方程式として解を求めます。\n'),
        write_formatted('%tx+%t=0 の解は\n',[_b,_c]),
        write_formatted('x = %t\n',[X]).
'二次方程式 "ax^2+bx+c=0" のxの解を"解の公式"を使って求め、表示する'(_a,_b,_c) :-
        \+(_a = 0),\+(_a = 0.0),
        _b ^ 2 - 4 * _a * _c < 0,
        write_formatted('%tx^2+%tx+%t=0 の解は虚根となります\n',[_a,_b,_c]),!.