MATRIX
Program name: MATRIX
!Building a 2x3 matrix
INTEGER*4 MAT(2,3)
Do
1 J=1,3
Do
1 I=1,2
MAT(I,J)=(5*I)+(7*J)
Print *, MAT(I,J)
1
continue
Print *, 'Matrix 2x3 (5i+7j): '
Print *, MAT(1,1),MAT(1,2),MAT(1,3)
Print *, MAT(2,1),MAT(2,2),MAT(2,3)
stop
Comentários
Postar um comentário