このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1269438098/984
#  [1] 授業単元: 
#  [2] 問題文 キーボードから読み込んだ整数のうちの偶数の和の計算を続け、もし2回連続して奇数が読み込まれたら、それ以降は奇数のみの和の計算に切り替える。 
#  そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して偶数の和と奇数の和を表示させる。 
#   
#   


キーボードから読み込んだ整数のうちの偶数の和の計算を続け、もし2回連続して奇数が読み込まれたら、それ以降は奇数のみの和の計算に切り替える。そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して偶数の和と奇数の和を表示させる。 :-
        get_integer(N1),get_integer(N2),
        キーボードから読み込んだ整数のうちの偶数の和の計算を続け、もし2回連続して奇数が読み込まれたら(N1,N2,_偶数の和),
        get_integer(N3),get_integer(N4),
        それ以降は奇数のみの和の計算に切り替える。そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して(N3,N4,_奇数の和),
        偶数の和と奇数の和を表示させる。(_偶数の和,_奇数の和).

キーボードから読み込んだ整数のうちの偶数の和の計算を続け、もし2回連続して奇数が読み込まれたら(N1,N2,0) :-
        'もし2回連続して奇数が読み込まれたら'(N1,N2),!.
キーボードから読み込んだ整数のうちの偶数の和の計算を続け、もし2回連続して奇数が読み込まれたら(N1,N2,_偶数の和) :-
        偶数(N1),
        get_integer(N3),
        キーボードから読み込んだ整数のうちの偶数の和の計算を続け、もし2回連続して奇数が読み込まれたら(N2,N3,_偶数の和の二),
        _偶数の和 is _偶数の和の二 + N,!.
キーボードから読み込んだ整数のうちの偶数の和の計算を続け、もし2回連続して奇数が読み込まれたら(N1,N2,_偶数の和) :-
        奇数(N1),
        get_integer(N3),
        キーボードから読み込んだ整数のうちの偶数の和の計算を続け、もし2回連続して奇数が読み込まれたら(N2,N3,_偶数の和).

それ以降は奇数のみの和の計算に切り替える。そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して(N3,N4,0) :-
        偶数が2回連続読み込まれたら(N3,N4),!.
それ以降は奇数のみの和の計算に切り替える。そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して(N3,N4,_合計) :-
        奇数が2回連続読み込まれたら(N3,N4),_合計 is N3 + N4,!.
それ以降は奇数のみの和の計算に切り替える。そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して(N3,N4,_合計) :-
        奇数(N3),偶数(N4),
        get_integer(N5),
        それ以降は奇数のみの和の計算に切り替える。そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して(N4,N5,_合計の二),
        _合計 is _合計の二 + N3.
それ以降は奇数のみの和の計算に切り替える。そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して(N3,N4,_合計) :-
        偶数(N3),奇数(N4),
        get_integer(N5),
        それ以降は奇数のみの和の計算に切り替える。そして、次に偶数もしくは奇数が2回連続して読み込まれたら、読み込みを中止して(N4,N5,_合計).

'もし2回連続して奇数が読み込まれたら'(N1,N2) :- 奇数(N1),奇数(N2).

'奇数が2回連続して読み込まれたら'(N1,N2) :- 偶数(N1),偶数(N2).

'偶数が2回連続して読み込まれたら'(N1,N2) :- 奇数(N1),奇数(N2).

偶数(N) :- 0 is N mod 2.

奇数(N) :- 1 is N mod 2.

偶数の和と奇数の和を表示させる。(_偶数の和,_奇数の和) :- write_formatted('偶数の和 = %t\n奇数の和 = %t\n',[_偶数の和,_奇数の和]).