Selasa, 05 Maret 2013

Contoh Program Fortran


ALGORITMA

1.      Mulai
2.      Masukkan nilai :
ü  h = tinggi air (m)
ü  D =  tinggi dari dasar saluran ke titik terendah dari meracu (m)
ü  B = lebar saluran bagian hulu (m)
ü  Yg =  tinggi bukaan pintu air (m)
ü  Y0 = kedalaman air sebelum pintu air (m)
ü  Y1 = kedalaman air sebelum pintu air (m)
3.      Menghitung nilai k dengan rumus ;
k = 1.3533 + (0.004/h) + (0.0167*((8.4+(12/(D^(½))))*(((h/B)-0.09)^2)))
4.      Menampilkan nilai k
5.      Menghitung nilai Q dengan rumus ;
Q = k * (h^2.5)
6.      Menampilkan nilai Q
7.      Menghitung nilai YgY0 dengan rumus ;
YgY0 = Yg/Y0
8.      Menampilkan nilai YgY0
9.      Masukkan nilai Cc
10.  Menghitung nilai CcYg dengan rumus;
CcYg = Cc * Yg
11.  Menampilkan nilai dari masing masing variabel inputan, hasil perhitungan, serta nilai CcYg, jika Y1 < CcYg maka aliran bebas, dan jika tidak maka aliran tenggelam

FLOWCHART