クイズ①

繰り返し演算の補足
i=i+1
real(8), dimension(5,5) :: b
integer
:: ni, nj, i, j
ni=5; nj=5; b= 0.d0
do i=1,ni ←iを1~niまで段階的に増やしなさい
do j=1,nj ←jを1~njまで段階的に増やしなさい
if(i.eq.j) then
b(i,j)=1.d0
else
b(i,j)=dble( abs(i-j) )
endif
enddo
j=j+1
j=nj
enddo
i=ni
do i=1,ni
write(*,’(5(1PE9.2))’) (b(i,j),j=1,nj)
enddo

Download Report