Penjumlahan Matriks Dengan Fortran

C234567  CSnoextension Program Penjumlahan Matriks

 

implicit none A(7,7), B(7 B(7,7), C(7 C(7,7) integer :: x,y,i,j, A(7 ,*)'***************************'  Write(6,*)'***************************' ,*)'PRORAM MA!R"#$ P%&MAA&'  Write(6,*)'PRORAM ,*)'("n+ut ata $e-ara Manual) '  Write(6,*)'("n+ut ,*)'***************************'  Write(6,*)'***************************' ,*)' '  Write(6,*)' ,*)'umlah .aris :'  Write(6,*)'umlah Read (/,*)x ,*)'umlah k0l0m :'  Write(6,*)'umlah Read (/,*)y ,*)' '  Write(6,*)'

C Matriks 1 ,*)'****************'  Write(6,*)'****************' ,*)' MA!R"#$ 1 '  Write(6,*)' ,*)'****************'  Write(6,*)'****************' ,*)'Masukkan an2ka :'  Write(6,*)'Masukkan

Do i 3 1,x Do j 3 1,y ,*)'Baris ke : ',i, ',i,' ' #0l0m ke: ',j, ',j,'3' '3'  Write(6,*)'Baris ( / ,*) A(i,j) Read End Do End Do  

 

,*)' ' Write(6,*)' ,*)'Matriks A'  Write(6,*)'Matriks Do i 3 1, x ,*)(A(i,j),j31,y)  Write(6,*)(A(i,j),j31 End Do ,*)' ' Write(6,*)'

C Input angka Matriks B ,*)'****************'  Write(6,*)'****************' ,*)' MA!R"#$ 4 '  Write(6,*)' ,*)'****************'  Write(6,*)'****************' ,*)'Masukkan an2ka :'  Write(6,*)'Masukkan Do i 3 1,x Do j 3 1,y ,*)'Baris ke',i, ke',i,', ', #0l0m ke: ',j, ',j,'3' '3'  Write(6,*)'Baris Read (/,*) B(i,j)

 

End Do End Do ,*)' ' Write(6,*)'

C Matriks 2 ,*)'Matriks B'  Write(6,*)'Matriks Do i 3 1, x

 Write(6,*)(B(i,j),j31,y) End do  Write(*,*)' ' C Penjumlahan Matriks  Write(6,*)'Pr0ses Penjumlahan' Do i31,x Do j31,y C(i,j)3A(i,j) 5 B(i,j)  Write(6,*)'Baris ke',i,', #0l0m ke: ',j,'3',C(i,j) End Do End Do

 

Write(6,*)' '

C Penulisan hasil matrik  Write(6,*)'Matriks C' Do i 3 1, x

 Write(6,*) (C(i,j),j31,y) End Do End Program