いろんな言語で宿題 第四編
■ このスレッドは過去ログ倉庫に格納されています
0263デフォルトの名無しさん
2010/04/29(木) 05:15:53% Prolog
'1+2+3・・・というように数値を加算して表示し、加算結果が300を超えたら表示して処理を終了する' :-
'1+2+3・・・というように数値を加算して表示し、加算結果が300を超えたら表示して処理を終了する'(1,0).
'1+2+3・・・というように数値を加算して表示し、加算結果が300を超えたら表示して処理を終了する'(N,_加算結果) :-
加算結果が300を超えたら表示して処理を終了する(_加算結果).
'1+2+3・・・というように数値を加算して表示し、加算結果が300を超えたら表示して処理を終了する'(N,_加算結果_1) :-
_加算結果_2 is N + _加算結果_1,
write_formatted('%t + %t = %t\n',[_加算結果_1,N,_加算結果_2]),
N2 is N + 1,
'1+2+3・・・というように数値を加算して表示し、加算結果が300を超えたら表示して処理を終了する'(N2,_加算結果_2).
加算結果が300を超えたら表示して処理を終了する(_加算結果) :-
_加算結果 > 300,
write_formatted('加算結果が%tとなり、300を越えました\n',[_加算結果]),!.
■ このスレッドは過去ログ倉庫に格納されています