Civil Network: Pemrograman
News Update
Loading...
Tampilkan postingan dengan label Pemrograman. Tampilkan semua postingan
Tampilkan postingan dengan label Pemrograman. Tampilkan semua postingan

Selasa, 20 September 2016

Contoh Program Sederhana Fortran

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.

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                                                                                                                                                                
Notification
Terima kasih telah berkunjung di website kami, Semoga Bermanfaat. Best Regards
Done