このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1269438098/818
#  [1] 授業単元:ソフトウェア演習 
#  [2] 問題文(含コード&リンク): 
#   
#   直角三角形の3辺a,b,cのa,bの長さが与えられたときCの長さを返す関数のプログラム、 
#  角度0〜180の値を与えるラジアンに変換した値、sinの値、cosの値を返す関数のプログラムをひとつのプログラムで行う。 
#  π=3.141592 
#   
#  

'直角三角形の3辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
        A == B,
        C is sqrt(A ^ 2 + B ^ 2).
'直角三角形の3辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
        B > A,
        C is sqrt(B ^ 2 + A ^ 2).
'直角三角形の3辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
        B > A,
        C is sqrt(B ^ 2 - A ^ 2).
'直角三角形の3辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
        A > B,
        C is sqrt(A ^ 2 +  B ^ 2).
'直角三角形の3辺a,b,cのa,bの長さが与えられたときCの長さを返す'(A,B,C) :-
        A > B,
        C is sqrt(A ^ 2 - B ^ 2).

ラジアン値(_角度0〜180,_ラジアン値) :- _ラジアン値 is pi * _角度0〜180 / 180.

sin(_角度0〜180,Sin値) :- ラジアン値(_角度0〜180,_ラジアン値),Sin値 is sin(_ラジアン値).

cos(_角度0〜180,Cos値) :- ラジアン値(_角度0〜180,_ラジアン値),Cos値 is cos(_ラジアン値).