このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1248012902/621
#  【 課題 】3問ありますのでアップローダに投稿させていただきました。 
#  http://ime.nu/www.dotup.org/uploda/www.dotup.org473124.zip 
#   
#  【 形態 】Javaアプリケーション(main()で開始) 
#  【 GUI  】4. 制限なし 
#  【 期限 】12/23 
#  【 Ver  】1.6.0_16 
#  【 補足 】課題文にいくつかの指定がありますのでその通りでお願いします。 
#  宜しくお願いします。 
#
# 0から360までの整数をランダムに10個発生させ、その整数を角度(弧度法)と
# みなしたとき、その(sin)が最大となる整数を表示するプログラムを作成せよ。

'0から360までの整数をランダムに10個発生させ、その整数を角度(弧度法)とみなしたとき、その(sin)が最大となる整数を表示する' :-
        '0から360までの整数をランダムに10個発生させ'(L),
        findmax([_値,_角度],(
                    append(_,[_角度|R],L),
                    _値 is sin(pi * _角度 / 180)),
                [_最大値,_最大値の時の角度]),
        write_formatted('最大値の時の角度は%t度,sinの最大値は%t\n',[_最大値の時の角度,_最大値]).

'0から360までの整数をランダムに10個発生させ'(L) :-
        findall(_ランダム値,(
                    for(1,_,10),
                    _ランダム値 is random mod 361),
                L).