Contoh Program Menggunakan FORTRAN compiler di Bidang Teknik Sipil

Posted by Unknown Friday, July 5, 2013 5 comments
Awal membuat sebuah program dengan bahasa pemrograman FORTRAN memang cukup rumit, saya sudah cari beberapa tutorial dari internet selain dari yang saya dapat di kuliah. Saya memang bukan orang yang ahli dalam pemrograman, tapi sedikit demi sedikit akhirnya saya bisa juga membuat program dengan FORTRAN meskipun masih sangat sederhana. Intinya, jangan cepat putus asa kalau belum juga bisa. Disini saya akan menunjukkan contoh program menggunakan FORTRAN sederhana yang saya pelajari. Semoga bisa bermanfaat. Aamiin…
*program konversi suhu
program konversi_suhu
            real  C, R, F
            character s
            write(*,*)"PILIH KONVERSI"
            write(*,*)"1     : untuk konversi dari Celcius"
            write(*,*)"2     : untuk konversi dari Fahrenheit"
            write(*,*)"3     : untuk konversi dari Reamur"
            write(*,*)"0     : keluar program"
            write(*,*)"________________________________________"
10        write(*,1)
1          format(1x, "pilihan = ",\)
            read(*,*)A                  
            if(A.EQ.1)then
                        write(*,2)
2                      format(1x, 'masukkan nilai C = ',\)
                        read(*,*)C
                        R=(4./5)*C
                        F=(9./5)*C+32
                        write(*,*) "C = ", C
                        write(*,*) "R = ", R
                        write(*,*) "F = ", F
            else if(A.EQ.2)then
                        write(*,3)
3                      format(1x, 'masukkan nilai F = ',\)
                        read(*,*)F
                        C=(5./9)*(F-32)
                        R=(4./5)*C
                        write(*,*) "C = ", C
                        write(*,*) "R = ", R
                        write(*,*) "F = ", F
            else if(A.EQ.3)then
                        write(*,4)
4                      format(1x, 'masukkan nilai R = ',\)
                        read(*,*)F
                        C=(5./4)*R
                        F=(9./5)*C+32
                        write(*,*) "C = ", C
                        write(*,*) "R = ", R
                        write(*,*) "F = ", F
            else if(A.EQ.0)then
                        goto 100
            else
                        write(*,*)"pilihan hanya 1,2,3,0"
            endif
20        write(*,5)
5          format(1x, 'hitung lagi ?(y/n) ',\)
            read (*,*)s
            if((s.EQ."y").OR.(s.EQ."Y"))then
                        goto 10
            else if((s.EQ."n").OR.(s.EQ."N"))then
                        goto 100
            else
                        goto 20
            endif
100      end

##############################################################
Bagian awal program merupakan deklarasi, kemudian di bawahnya tulisan yang akan muncul pada layar sebagai petunjuk program. Menurut saya user interface sangat penting untuk memudahkan pengguna yang akan menggunakan program kita. Kita harus memikirkan apa yang mungkin dilakukan user dalam menggunakan program kita, sehingga kita bisa meminimalisir kesalahan yang mungkin dibuat user yang bisa menjadikan hasil perhitungan menjadi tidak akurat. Sekian tips dari saya, dan saya berharap bisa segera membuat contoh program selanjutnya.

Wassalamu’alaikum wr wb
TERIMA KASIH ATAS KUNJUNGAN SAUDARA
Judul: Contoh Program Menggunakan FORTRAN compiler di Bidang Teknik Sipil
Ditulis oleh Unknown
Rating Blog 5 dari 5
Semoga artikel ini bermanfaat bagi saudara. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke http://anasaff.blogspot.com/2013/07/contoh-program-menggunakan-fortran.html. Terima kasih sudah singgah membaca artikel ini.

5 comments:

Ahya said...

mantap rekk ..hahaaa

Rahadi Kusuma said...

thanks gan....,
sangat bermanfaat

Unknown said...

ga bisa compile, compilenya make apa ya gan

Unknown said...

Mas Anas, saya mau tanya, bagaimana cara merubah (convert) file binary atau ascii ke dalam bentuk .dat file?
mohon pencerahannya

Terima kasih

Anonymous said...

Casino Site | Live Dealer Online | LuckyClub.live
live dealer casino site with live dealer casino games and games. The best online casino site for players from luckyclub around the world! No need to register with a new operator

Post a Comment

Template by Berita Update - Trik SEO Terbaru. Original design by Bamz | Copyright of news and knowledge.