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.
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
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 :
Divisualkan juga bisa. Contohnya di sini:
BalasHapushttp://yusuf211523.blogspot.com/2011/01/penyelesaian-persamaan-aljabar.html
Ok Bg Yusuf.
HapusTerimakasih Sudah Berkunjung Dan Mau Berbagi.
Kalo watfor 77 bisa buat gitu nggak mas?
BalasHapuskalau 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