- 31 名前：デフォルトの名無しさん mailto:sage [2010/06/21(月) 07:40:51 ]
- >>27
% Prolog
'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).
|
 |
