mencari tekanan absolut dengan program fortran

soal: untuk mengetahui besarnya tekanan pada suatu instalasi pipa bertekanan rendah, digunakan sebuah manometer U yang berisi cairan minyak silikon. untuk memperbesar penunjukkan tekanan pada manometer, pada sisi yang berhubungan dengan udara luar, ditambahkan sejumlah air. berapakah tekanan absolut Pg? ilustrasi soal seperti gambar di bawah ini:

 diketahui:
Pu = 1005 [hPa]
g = 9,81 [m/s2]
Ra = 998 [kg/m3]
deltaZair(Za) = 0.35 [m]
Rsi = 1203 [kg/m3]
deltaZsi(Zsi) = 0.144 [m]

ditanya:
Pg?

jawab: Pg = [(Rsi . g . Zsi)-(Ra . g . Za)] + Pu

program fortrannya:

pada cmd:

  

selamat mencoba. it works :p