このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/90
#  1から10までの積を計算するプログラムを書け。このとき,whileループを用いて、  #  画面に 1*2*3*・・・・*10 = という風に表示されるようにすること。  
#   
#  期限は6/22までです。お願いします。  
# 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'1から10までの積を計算する。このとき,画面に 1*2*3*・・・・*10 = という風に表示されるようにする' :-
        '1から10までの積を計算する。このとき,画面に 1*2*3*・・・・*10 = という風に表示されるようにする'(1,1).

'1から10までの積を計算する。このとき,画面に 1*2*3*・・・・*10 = という風に表示されるようにする'(10,S1) :-
        S is S1 * 10,
        write_formatted('10 = %t\n',[S]),!.        
'1から10までの積を計算する。このとき,画面に 1*2*3*・・・・*10 = という風に表示されるようにする'(N,S1) :-
        S2 is S1 * N,
        N2 is N + 1,
        write_formatted('%t*',[N]),
        '1から10までの積を計算する。このとき,画面に 1*2*3*・・・・*10 = という風に表示されるようにする'(N2,S2).