このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1311089619/77
#  [1] 授業単元: プログラミング論 
#  [2] 問題文:http://ime.nu/codepad.org/kRpsBNJPを参考にして 
#                    累計 
#        50   49 48  47  46  240 
#        45   44 43  42  41  455 
#         (長すぎて書き込めないため中略) 
#  累計   275 540 795 1040 1275 
#  ↑(1から50までの整数を5つずつ50から表示して行きます。) 
#  ‐紊里茲Δ鵬と縦の累計を計算して表示するプログラムを作成せよ。 
#  ただし配列は使ってはならない。。 
#  ⊆,飽貅仝鞠枸鵑鰺僂い鴇綽泙里茲Δ暴弔伐の類計を計算して 
#  表すプログラムを作成せよ。 
#  次に縦と横の累計の計算をする部分を関数を使って 
#  表すプログラムを作成せよ。 
#  [3] [3.1] OS:windows7[3.2] visualstdio[3.3] 言語: C言語 
#  [4] 2011年7月23日の11時59分まで 
#  問題が多くて申し訳ありません。どうかよろしくお願いいたします。 
# 
# 

ならびを使わず表を表示する(A1,B1,C1,D1,E1,AS1,BS1,CS1,DS1,ES1) :-
        writef('%24r 累計\n',[' ']),
        ならびを使わず表を表示する(50,49,48,47,46,0,0,0,0,0).

ならびを使わず表を表示する(A1,B1,C1,D1,E1,AS1,BS1,CS1,DS1,ES1) :-
        A1 = 0,
        writef('累計 %3r %3r %3r %3r %3r %3r\n',[AS1,BS1,CS1,DS1,ES1]),!.
ならびを使わず表を表示する(A1,B1,C1,D1,E1,AS1,BS1,CS1,DS1,ES1) :-
        GS is A1 + B1 + C1 + D1 + E1,
        writef('      %3r %3r %3r %3r %3r %3r\n',[A1,B1,C1,D1,E1,GS]),
        AS2 is A1 + AS1,
        BS2 is B1 + BS1,
        CS2 is C1 + CS1,
        DS2 is D1 + DS1,
        ES2 is E1 + ES1,
        A2 is A1 - 5,
        B2 is B1 - 5,
        C2 is C1 - 5,
        D2 is D1 - 5,
        E2 is E1 - 5,
        ならびを使わず表を表示する(A2,B2,C2,D2,E2,AS2,BS2,CS2,DS2,ES2).