このディレクトリの索引 http://pc12.2ch.net/test/read.cgi/tech/1258158172/886 # # [1] 授業単元:プログラミング実習 # [2] 問題文(含コード&リンク):http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10254.txt # ★演習問題1-9* # 1〜10までの整数の和を求めるプログラムをポインタを使って求めよ.(時 # 間があり,可能であれば,平均も求めよ:こちらは任意課題とする), 総和(_数ならび,_何番目,_まででは,_総和) :- 総和(_数ならび,0,1,_何番目,_まででは,_総和). 総和([M|R],Y,Nth,Nth,M,X) :- X is Y + M. 総和([M|R],Y,Nth1,Nth,Z,X) :- M2 is M + 1, Y2 is Y + M, Nth2 is Nth1 + 1, 総和(R,Y2,Nth2,Nth,Z,X).