このディレクトリの索引

# 出典::C/C++の宿題片付けます 129代目 #450 # [1] 授業単元:プログラミング演習 # [2] 問題文(含コード&リンク): # 下に示す2 行3 列の行列a, b の差を求めて表示するプログラムを作成せよ. # # a = # ( # 6 3 4 # 5 1 2 # ) # b = # ( # 1 2 3 # 4 5 6 # ) a([[6,3,4],[5,1,2]]). b([[1,2,3],[4,5,6]]). '2 行3 列の行列a, b の差を求めて表示するプログラムを作成せよ.' :- '2 行3 列の行列a, bの'(_a,_b), 行列の差(_a,_b,_行列aとbの差), 表示する(_行列aとbの差). '2 行3 列の行列a, bの'(_a,_b) :- a(_a), b(_b). 行列の差([],[],[]). 行列の差([_行_1|R1],[_行_2|R2],[_行_3|R3]) :- 行列の行の差(_行_1,_行_2,_行_3), 行列の差(R1,R2,R3). 行列の行の差([],[],[]). 行列の行の差([_列_1|R1],[_列_2|R2],[_列_3|R3]) :- _列_3 is _列_1 - _列_2, 行列の行の差(R1,R2,R3). 表示する(_行列aとbの差) :- writef('%w\n',[_行列aとbの差]).