while True:

問題3

3 行 3 列の行列に対する行列式の値を計算するプログラムを作れ.

難易度 ★☆☆☆☆

基本的な問題です。配列を用いて解きますが、少々難しいです。配列に関してはこちらを参考にしてください。 行列の値を返す関数も存在しますが、問題の意図に沿わないため使用せず回答します。
program question3
	implicit none
	integer :: val
	integer, dimension(3,3) :: d
	print *, "Input dimension(3x3): "
	read *, d

	val = 0
	
	val = val + d(1, 1) * d(2, 2) * d(3, 3)
	val = val + d(1, 2) * d(2, 3) * d(3, 1)
	val = val + d(1, 3) * d(2, 1) * d(3, 2)

	val = val - d(1, 1) * d(2, 3) * d(3, 2)
	val = val - d(1, 3) * d(2, 2) * d(3, 1)
	val = val - d(1, 2) * d(2, 1) * d(3, 3)

	print *, "total = ", val
end program question3
ページのトップへ戻る