クイズ①

最終課題
real(8), dimension(5,5) :: a,b,c,d
integer
:: ni, nj, i, j
クイズ①
a= 0.d0; b=0.d0; c=0.d0
a(1:5,1) = 1.d0; a(2:5,2) = 2.d0
a(3:5,3) = 3.d0; a(4:5,4) = 4.d0
以前，クイズで定義した2つの5×5の行列を
a(5,5) = 5.d0
それぞれ[a]，[b]とし，行列積[c]=[a][b], [d]=[b][a]を求
め，その結果をファイル“matrix.out”に出力せよ．
クイズ②
ni=5; nj=5
do i=1,ni
プログラムのソースと出力結果をそれぞれ印刷し，
do j=1,nj
提出せよ．
if(i.eq.j) then
b(i,j)=1.d0
なお，行列積の演算には必ずサブルーチンmatrixprd
else
を定義し，同じサブルーチンを使って[c],[d]を計算せ
b(i,j)=dble( abs(i-j) )よ．
endif
enddo
enddo

Download Report