いろんな言語で宿題第五編

いろんな言語で宿題第五編at TECH

いろんな言語で宿題第五編 - 暇つぶし2ch409:デフォルトの名無しさん
10/07/24 11:36:32
>>407
% Prolog

入力されたデータの平均を求める :-
　　　　findavg(M,(
　　　　　　　　　　for(0,N,maxint),
　　　　　　　　　　write_formatted('整数[%t] ==> ',[N]),
　　　　　　　　　　get_integer(M),
　　　　　　　　　　( M = -1,!,fail;true)),
　　　　　　　　_平均),
　　　　write_formatted('平均 = %t\n',[_平均]).

次ページ

続きを表示

1を表示