10/06/30 02:04:53
>>161
% Prolog [1] [2]
'整数値を読み込んで，その数が10 で割り切れるかどうかを表示する' :-
催促付き整数入力('整数値を入力してください : ',N),
'10で割り切れるか判定する'(N),
write('入力を続けますか y or n : '),get_line(Line),
Line = y,
'整数値を読み込んで，その数が10 で割り切れるかどうかを表示する'.
'整数値を読み込んで，その数が10 で割り切れるかどうかを表示する'.
'10で割り切れるか判定する'(N) :- 0 is N mod 10,
write('あなたの入力した数%tは10で割り切れます\n',[N]),!.
'10で割り切れるか判定する'(N) :-
write('あなたの入力した数%tは10で割り切れません\n',[N]),!.
'非負の整数値を読み込んで，その桁数を表示する' :-
催促付き整数入力('非負の整数値を入力してください : ',N),N >= 0,
入力された整数の桁数を表示する(1,N),
write('入力を続けますか y or n : '),get_line(Line),
Line = y,
'非負の整数値を読み込んで，その桁数を表示する'.
'非負の整数値を読み込んで，その桁数を表示する'.
入力された整数の桁数を表示する(M,N) :-
truncate(10 ^ M) > N,write('入力された非負整数は%桁です\n',[M]),!.
入力された整数の桁数を表示する(M1,N) :- M2 is M1 + 1,入力された整数の桁数を表示
する(M2,N).