Contoh Program Menggunakan FORTRAN compiler di Bidang Teknik Sipil
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
Baca Selengkapnya ....
