Wednesday, November 21, 2012

Addition of two matrix



১.   দুইটি 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