このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/544
#  (3)関数f(x)の最大値と最大値となる場合のxの値を求め、表示しなさい。 
#      f(x)=x2乗-3x+4 
#       ただし、xは0.0001刻みとし、範囲は-10<=x<=10とする 
#    
#  (4)掛け算九九の票を作成する。 
#    ・出力例 
#     1 2 3 4 5 6 7 8 9 
#        2................ 
#        3................ 
#        4................ 
#        5................ 
#        6................ 
#        7................ 
#        8................ 
#        9................ 
#   ・指定 
#       for文を用いた2重ループを使い、九九の各値は計算式で求める。表示桁数を調整して見栄映えよく出力すること。 
#      

九九表示 :-
        九九表示(1,1).

九九表示(M,_) :- M > 9,!.
九九表示(M,N) :- N > 9,
        write('\n'),
        M2 is M + 1,
        九九表示(M2,1).
九九表示(M,N) :-
        X is M * N,
        write_formatted('%3d',[X]),
        N2 is N + 1,
        九九表示(M,N2).