Kali ini saya akan berbagi mengenai pemrograman komputer menggunakan bahasa FORTRAN 90. Di sini saya hanya akan memberi contoh yang bisa di bilang mudah, tapi ga ada salahnya kan kalo saya ikut berbagi dengan semuanya :D
OK , langsung aja contoh program yang akan saya bagi dengan teman-teman
Program "Transpose Matriks"
PROGRAM TRANSPOSE_MATRIKS
INTEGER N, D
DIMENSION A(4,4), At(4,4)
CHARACTER ANSWER
WRITE(*,*)'========================================================'
WRITE(*,*)
WRITE(*,*)
WRITE(*,*)' *****PROGRAM TRANSPOSE MATRIKS*****'
WRITE(*,*)' UKURAN MATRIKS MAKSIMUM 4x4'
WRITE(*,*)
WRITE(*,*)'FORMAT TRANSPOSE MATRIKS : [A](TRANSPOSE)=[At]'
WRITE(*,*)'FORMAT PENYUSUSNAN MATRIKS'
WRITE(*,*)'[a11 .... a1n]'
WRITE(*,*)'[a21 .... a2n]'
WRITE(*,*)'[an1 .... ann]'
WRITE(*,*) ''
WRITE(*,*) ''
150 WRITE(*,*) 'JUMLAH BARIS MATRIKS [A] :'
READ(*,*) N
WRITE(*,*) 'JUMLAH KOLOM MATRIKS [A] :'
READ(*,*) D
WRITE(*,*)'MASUKKAN ELEMEN-ELEMEN MATRIKS [A]:'
READ(*,*)((A(I,J),J=1,D),I=1,N)
DO I=1,N
DO J=1,D
END DO
END DO
WRITE(*,*) ''
DO I=1,D
DO J=1,N
At(I,J)=A(J,I)
END DO
END DO
WRITE(*,*)'BERIKUT ADALAH KOMPONEN MATRIKS [A]'
WRITE(*,*) '[A] :'
DO 200 I=1,N
200 WRITE(*,*)(A(I,J),J=1,D)
WRITE(*,*) ''
WRITE(*,*)'BERIKUT ADALAH HASIL TRANSPOSE DARI MATRIKS [A]'
WRITE(*,*) '[At] :'
DO 100 I=1,D
100 WRITE(*,*)(At(I,J),J=1,N)
WRITE(*,*) ''
WRITE(*,*) 'APAKAH MASIH LANJUT ? (Y/N)'
READ(*,*) ANSWER
IF ((ANSWER.EQ."Y").OR.(ANSWER.EQ."y")) THEN
GOTO 150
ELSE
CONTINUE
ENDIF
STOP
END
Nah.. gimana ? program yang mudah kan ? saya senang bisa ikut berbagi meskipun itu hal yang sekecil ini, tapi belajar dari hal yang kecil maka bisa belajar untuk hal yang besar, Good Luck teman..
sekian postingan saya kali ini, mudah-mudahan saya bisa memosting yang lebih bermanfaat lagi .. :D
