このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1320365280/264
#  [1] 授業単元:C言語  
#  [2] 問題文(含コード&リンク):斜め上方に初速度v0(=50),入射角theta(=60)で小球を投射した。 
#      小球の軌道(x,y)を計算してください。ただし、y<0になったとき計算を停止してください。 
#      なお、軌道(x,y)の計算部分を一つの関数(ユーザ定義関数)で計算し、 
#      計算結果二つをmain関数に返すようにしてください。 

'斜め上方に初速度v0(=50),入射角theta(=60)で小球を投射した。小球の軌道(x,y)を計算してください。ただし、y<0になったとき計算を停止してください。' :-
        '斜め上方に初速度v0(=50),入射角theta(=60)で小球を投射した。小球の軌道(x,y)を計算してください。ただし、y<0になったとき計算を停止してください。'(0.0,0.0,0.0,L),
        append(_,[[T,X,Y]|R],L),
        writef('%4r: %t, %t\n',[T,X,Y]),
        R = [].

'斜め上方に初速度v0(=50),入射角theta(=60)で小球を投射した。小球の軌道(x,y)を計算してください。ただし、y<0になったとき計算を停止してください。'(T,X,Y,[]) :-
        \+(T = 0.0),
        Y < 0.0,!.
'斜め上方に初速度v0(=50),入射角theta(=60)で小球を投射した。小球の軌道(x,y)を計算してください。ただし、y<0になったとき計算を停止してください。'(T,X,Y,[[T,X,Y]|R]) :-
        X_2 is 50 * cos(pi / 3) * T,
        Y_2 is 50 * sin(Pi / 3) * T - 0.5 * 9.80665 * T * T,
        T_2 is T + 0.1,
        '斜め上方に初速度v0(=50),入射角theta(=60)で小球を投射した。小球の軌道(x,y)を計算してください。ただし、y<0になったとき計算を停止してください。'(T_2,X_2,Y_2,R).