このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/739
#  [1] 授業単元:プログラミング実習  
#  [2] 問題文(含コード&リンク):*でy=sin(x)を描くプログラムを作成せよ。 
#        * 
#         * 
#          * 
#           * 
#          * 
#         * 
#        * 
#       * 
#      * 
#     * 
#    * 
#   * 
#  * 
#   * 
#    * 
#     * 
#      * 
#  ↑あいまいですがこんな感じになるはずです 
#   
#  

'*でy=sin(x)を描く'(_行) :-
        _行_1 is _行 - 1,
        _角間隔 is 2 * pi / (_行_1),
        '*でsin(X)を描く'(0,_行,_角間隔).

'*でsin(X)を描く'(N1,N,_角間隔) :- N1 > N,!.
'*でsin(X)を描く'(N1,N,_角間隔) :-
        Y is sin(_角間隔 * N1),
        Z is truncate(3 * 10 * Y + 32) - 1,
        for(1,M,Z),
        write(' '),
        M = Z,
        write('*\n'),
        N2 is N1 + 1,
        '*でsin(X)を描く'(N2,N,_角間隔).