Contoh Program Sederhana Fortran
Dalam bidang teknik sipil bahasa pemrograman dapat digunakan sebagai alat untuk membantu perhitungan agar lebih cepat dan efisien. Dalam beberapa buku rujukan terutama buku lama seringkali diberikan bahasa pemrograman. bahasa yang sering digunakan adalah dengan menggunakan Fortran, meskipun sudah cukup usang dan ketinggalan zaman tapi Fortran masih sering digunakan terutama dalam buku-buku zaman dulu.
Disini saya akan memberikan contoh program yang sangat sederhana, tetapi semoga bisa membantu bagi kalian yang ingin mempelajari Fortran.
Disini saya akan memberikan contoh program yang sangat sederhana, tetapi semoga bisa membantu bagi kalian yang ingin mempelajari Fortran.
C
REAL Tinggi, Lebar, Luas, Pbata, Lbata,
Tbata, N
C
WRITE (*,'(2X,A)') 'PROGRAM PENGHITUNG
BEBAN DINDING'
WRITE (*,'(1X,A)') '"--------------------------------"'
WRITE (*,*)
C
C MENGHITUNG LUAS DINDING
WRITE (*,'(2X,A)') '* MENGHITUNG LUAS
DINDING <Meter> :'
WRITE (*,'(4X,A,\)') 'TINGGI DINDING = '
READ
(*,'(F8.2)') Tinggi
WRITE (*,'(4X,A,\)') 'LEBAR DINDING = '
READ
(*,'(F8.2)') Lebar
Luas = Tinggi*Lebar
WRITE (*,'(4X,A,F8.2,A)') 'LUASNYA ADALAH
=',Luas,' m^2'
WRITE (*,*)
C
C MENGHITUNG DIMENSI BATU BATA
WRITE (*,'(2X,A)') '* MENGHITUNG DIMENSI
BATU BATA :'
WRITE (*,'(4X,A,\)') 'PANJANG <m> = '
READ
(*,'(F8.2)') Pbata
WRITE (*,'(4X,A,\)') 'LEBAR <m> = '
READ
(*,'(F8.2)') Lbata
WRITE (*,'(4X,A,\)') 'TINGGI <m> = '
READ
(*,'(F8.2)') Tbata
DIMENSI = Pbata*Lbata*Tbata
WRITE (*,'(4X,A,F10.4,A)') 'DIMENSINYA
ADALAH =',DIMENSI,' m^3'
WRITE (*,*)
C
C MENGHITUNG BEBAN SATU BUAH BATU
BATA
WRITE (*,'(2X,A,\)') '* MASUKAN BERAT
JENIS BATU BATA <Kg/m^3>: '
READ
(*,'(F8.2)') BJenis
WRITE (*,'(2X,A,\)') '* MASUKAN
KONSTANTA GRAVITASI : '
READ
(*,'(F4.2)') Gravitasi
WRITE (*,*)
B1
= DIMENSI * BJenis * Gravitasi
C
C MENGHITUNG JUMLAH BATU BATA
YANG DIGUNAKAN
WRITE (*,*)
'============================================'
N = Luas / (Pbata*Tbata)
WRITE (*,'(4X,A,F8.2,A)') 'BATU BATA
YANG DIGUNAKAN =',N,' BUAH'
WRITE (*,*)
C
C MENAMPILKAN BEBAN SATU BUAH
BATU BATA
WRITE (*,'(4X,A,F8.2,A)')'BEBAN SATU
BATU BATA ADALAH=',B1,' N/m'
WRITE (*,*)
C
C MENGHITUNG BEBAN DINDING
KESELURUHAN
BS = N*B1
WRITE (*,'(4X,A,F8.2,A)') 'BEBAN
KESELURUHAN =',BS,' N/m'
WRITE (*,*)
'============================================'
END
