Al Ikhlas

1. Katakanlah : Dia-lah Allah, Yang Maha Esa 2. Allah adalah Tuhan yang bergantung kepada-Nya segala sesuatu 3. Dia tiada beranak dan tidak pula diperanakkan 4. Dan tidak ada seorangpun yang setara dengan Dia (Al-Qur'an Surat Al-Ikhlas 112)

Rabu, 12 Februari 2014

CONTOH PROGRAM APLIKASI KONVERTER SUHU DENGAN FORTRAN G95

CONTOH PROGRAM APLIKASI KONVERTER SUHU DENGAN FORTRAN G95


Lagi ada tugas membuat program mencari minimum spanning tree (algoritma prim) dengan menggunakan bahasa pemograman fortran g95, bingung banget cuz ga pernah belajar tentang fortran g95 malah pas di kasih tugas di saat itu juga baru ku dengar bahasa pemograman fortran g95, tanpa kenal dengan fortran g95 dan tanpa ada pelatihan tiba-tiba langsung di suruh bertarung 12 ronde menarik bukan, terpaksa deh aku tanya-tanya sama mbah google dan tiba-tiba aku sering bergentayangan di perpus, ;)
kutemui beberapa contoh program fortran tapi jujur syntaks fortran g95 tidak mudah di pahami tanpa ada penjelasan dari sang sensei dan itu lebih menarik lagi, dan ini salah satu contoh PROGRAM APLIKASI KONVERTER SUHU DENGAN FORTRAN G95 yang ingin aku share, dan semoga bermanfaat untuk anda semua.



sedikit info tentang fortran : bahasa pemrograman yang sangat cocok untuk komputasi numerik dan komputasi ilmiah . Awalnya dikembangkan oleh IBM di kampus mereka di selatan San Jose, California pada tahun 1950 untuk aplikasi ilmiah dan rekayasa, Fortran mendominasi daerah ini dari pemrograman awal dan telah digunakan terus menerus selama lebih dari setengah abad di daerah komputasi intensif seperti prediksi cuaca numerik , analisis elemen hingga , dinamika fluida komputasi , fisika komputasi dan kimia komputasi .
Ini adalah salah satu bahasa yang paling populer di bidang komputasi kinerja tinggi dan merupakan bahasa yang digunakan untuk program-program yang patokan dan peringkat dunia superkomputer tercepat .

Fortran mencakup silsilah versi, masing-masing berevolusi untuk menambahkan ekstensi untuk bahasa sementara biasanya tetap mempertahankan kompatibilitas dengan versi sebelumnya. Versi Berturut-turut telah menambahkan dukungan untuk pemrograman terstruktur dan pengolahan data berbasis karakter ( FORTRAN 77 ), pemrograman Array , pemrograman modular dan pemrograman generik ( Fortran 90 ), kinerja tinggi Fortran ( Fortran 95 ), pemrograman berorientasi objek ( Fortran 2003 ) dan pemrograman konkuren ( Fortran 2008 ).
sumber : http://en.wikipedia.org/wiki/Fortran

SINTAKS PROGRAM APLIKASI KONVERTER SUHU DENGAN FORTRAN G95 :

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

jika di jalankan maka akan muncul tampilan seprti ini,



pilih konversi yang ana inginkan dan input nilai nya :




Silahkan BAGIKAN lewat faceebook,twitwer,email atau tambahkan ke google plus di bawah ini,"Semoga bermanfaat....,"


ARTIKEL TERKAIT :

4 komentar:

  1. Divisualkan juga bisa. Contohnya di sini:
    http://yusuf211523.blogspot.com/2011/01/penyelesaian-persamaan-aljabar.html

    BalasHapus
    Balasan
    1. Ok Bg Yusuf.
      Terimakasih Sudah Berkunjung Dan Mau Berbagi.

      Hapus
  2. Kalo watfor 77 bisa buat gitu nggak mas?

    BalasHapus
    Balasan
    1. kalau utk visual spt "Penyelesaian Persamaan Aljabar" (cth yg telah sy buat) ndak bisa krn watfor 77 under DOS.Gunakan kompiler under windows spt PS4, CVF 6.x, IVF, PVF. Kompiler2 tsb juga kompatibel dg sintaks F77.

      Hapus