১. দুইটি matrix এর যোগ
1
2 3
ধরা যাক A=
1 2 3
1
2 3
3
2 1
এবং B= 3 2 1
3 2 1
Solution
C=A+B
1234567890
dimension A(3,3) ,B(3,3), C(3,3)
PRINT*, ' ENTER
THE VALUE OF THE MATRICS A'
DO 20 I=1,3
DO 20 J=1,3
READ(*,*) A(I,j)
20 CONTINUE
WRITE(*,*) 'ENTER THE VALUE OF THE MATRIX B'
DO 10 I=1,3
DO 10 J=1,3
READ*, B(I,J)
10 CONTINUE
DO 30 I=1,3
DO 30 J=1,3
C(I,J)=A(I,J)+B(I,J)
30 CONTINUE
WRITE(*,*)
C(1,1) , C(1,2) ,c(1,3)
WRITE(*,*) C(2,1) , C(2,2) ,c(2,3)
WRITE(*,*) c(3,1) , c(3,2) ,c(3,3)
END
No comments:
Post a Comment