このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/663
#  [1] 授業単元:プログラミング実習  
#  [2] 問題文(含コード&リンク):1から10の整数の平方根の値を表形式で 
#  表示するプログラムを作成せよ。 
#  表はこんな感じです。 
#   
#  N 平方根 
#  --------- 
#  1 1.000 
#  2 1.414 
#    略 
#  9 3.000 
#  10 3.162 
#   

'1から10の整数の平方根の値を表形式で表示する' :-
        write('N 平方根\n---------\n'), 
        for(1,N,10),
        _平方根 is sqrt(N),
        平方根表示(N,_平方根),
        N = 10,!.

平方根表示(10,_平方根) :-
        write_formatted('%2d %5.3f\n',[10,_平方根]),!.
平方根表示(N,_平方根) :-
        N < 10,
        write_formatted('%1d  %5.3f\n',[N,_平方根]),!.