Pernah mendengan kata-kata seperti Celcius, Fahrenheit, Reamur dan Kelvin???, mereka bukanlah nama-nama binatang apalagi nama tumbuh-tumbuhan.. he he, tetapi mereka merupakan satuan yang sering digunakan pada temperatur suhu. Jika anda pernah mendengarnya, Pernahkan anda melakukan konversi suhu dari suatu satuan ke satuan lainnya?.
Dalam tulisan ini saya mencoba untuk membuat sebuah program komputer yang dapat digunakan untuk mengkonversi suhu dari satu satuan ke satuan lainnya. Program saya buat menggunakan bahasa Pascal.
Bahasa Pascal merupakan bahasa yang didunia industri kurang banyak dipakai, tapi merupakan bahasa yang sangat banyak digunakan oleh instansi-instansi pendidikan untuk membangun kuda-kuda yang tangguh bagi seorang programmer.
Berikut adalah program Pascal yang saya gunakan untuk memecahkan persoalan konversi suhu. Satuan suhu yang saya libatkan hanya empat yaitu Celcius, Reamur, Fahrenheit dan Kelvin. Sebenarnya banyak satuan untuk temperatur yang dipakai dalam dunia ini, kebetulan cuma empat itu yang pernah saya pelajari dari pelajaran Fisika sewaktu duduk dibangku SMP.
OK.. sekarang masuk kebagian aplikasi, Secara teknis aplikasi akan meminta input Jenis dan Besar Temperatur Suhu yang akan dikonversi, jika jenis input suhu adalah Celcius, maka output program adalah satuan suhu dalam Reamur, Fahrenheit dan Kelvin. Jika jenis suhu adalah Reamur, maka output program adalah suhu dalam Celcius, Fahrenheit dan Kelvin, dst…
Versi Pascal yang saya pakai adalah Pascal versi Windows, tepatnya Pascal 1.5. Jika anda menggunakan Pascal for DOS / Turbo Pascal, silahkan ganti statement Uses WinCrt dengan Uses Crt dan diawal program utama ditambahkan dengan ClrScr.
Dalam tulisan ini saya mencoba untuk membuat sebuah program komputer yang dapat digunakan untuk mengkonversi suhu dari satu satuan ke satuan lainnya. Program saya buat menggunakan bahasa Pascal.
Bahasa Pascal merupakan bahasa yang didunia industri kurang banyak dipakai, tapi merupakan bahasa yang sangat banyak digunakan oleh instansi-instansi pendidikan untuk membangun kuda-kuda yang tangguh bagi seorang programmer.
Berikut adalah program Pascal yang saya gunakan untuk memecahkan persoalan konversi suhu. Satuan suhu yang saya libatkan hanya empat yaitu Celcius, Reamur, Fahrenheit dan Kelvin. Sebenarnya banyak satuan untuk temperatur yang dipakai dalam dunia ini, kebetulan cuma empat itu yang pernah saya pelajari dari pelajaran Fisika sewaktu duduk dibangku SMP.
OK.. sekarang masuk kebagian aplikasi, Secara teknis aplikasi akan meminta input Jenis dan Besar Temperatur Suhu yang akan dikonversi, jika jenis input suhu adalah Celcius, maka output program adalah satuan suhu dalam Reamur, Fahrenheit dan Kelvin. Jika jenis suhu adalah Reamur, maka output program adalah suhu dalam Celcius, Fahrenheit dan Kelvin, dst…
Versi Pascal yang saya pakai adalah Pascal versi Windows, tepatnya Pascal 1.5. Jika anda menggunakan Pascal for DOS / Turbo Pascal, silahkan ganti statement Uses WinCrt dengan Uses Crt dan diawal program utama ditambahkan dengan ClrScr.
01 | Program KonversiSuhu; |
02 | uses wincrt; |
03 | var InpSuhu: real ; {C=Celcius, R=Reamur, F=Fahrenheit, K=Kelvin} |
04 | OutC, OutR, OutF, OutK: real ; |
05 | JenisSuhu: char ; |
06 | InpSuhuString: string ; {var penampung input suhu dalam string} |
07 | tempSuhu: real ; {var sementara untuk konver string ke real} |
08 | ErrCode: integer ; {var untuk menampung error saat konversi string ke real} |
09 |
10 | label 100 , 200 ; |
11 |
12 | {program utama} |
13 | begin |
14 | {menu} |
15 | 100 : {label 100} |
16 | write ( 'Masukan jenis suhu C/R/F/K : ' ); |
17 | readln(JenisSuhu); |
18 | JenisSuhu:=upcase(JenisSuhu); {mengubah jenis suhu ke upper case} |
19 |
20 | if (JenisSuhu <> 'C' ) then |
21 | if (JenisSuhu <> 'R' ) then |
22 | if (JenisSuhu <> 'F' ) then |
23 | if (JenisSuhu <> 'K' ) then |
24 | begin |
25 | writeln ( 'Jenis suhu salah, silahkan ulangi!' ); |
26 | writeln ; |
27 | goto 100 ; |
28 | end ; |
29 |
30 | 200 : {label 200} |
31 | write ( 'Masukan besar suhu : ' ); |
32 | readln(InpSuhuString); |
33 | val (InpSuhuString,inpSuhu,ErrCode); |
34 | if ErrCode <> 0 then |
35 | begin |
36 | writeln ( 'Data suhu yang dimasukan tidak valid, masukan data numerik!' ); |
37 | writeln ; |
38 | goto 200 ; |
39 | end ; |
40 |
41 | writeln ; |
42 |
43 | { hitung konversi suhu} |
44 |
45 | writeln ( 'Hasil Konversi Suhu, Untuk Suhu ' , inpSuhu: 6 : 2 , ' ' ,JenisSuhu); |
46 | writeln ( '--------------------------------------' ); |
47 | if (JenisSuhu = 'C' ) then {jika input suhu dalam celcius} |
48 | begin |
49 | OutR:=InpSuhu * 4 / 5 ; |
50 | OutF:=(InpSuhu * 9 / 5 ) + 32 ; |
51 | OutK:=InpSuhu + 273 ; |
52 |
53 | writeln ( 'Suhu dalam Reamur = ' , OutR: 6 : 2 ); |
54 | writeln ( 'Suhu dalam Fahrenheit = ' , OutF: 6 : 2 ); |
55 | writeln ( 'Suhu dalam Kelvin = ' , OutK: 6 : 2 ); |
56 | end |
57 | else if (JenisSuhu = 'R' ) then {jika input suhu dalam reamur} |
58 | begin |
59 | OutC:=InpSuhu * 5 / 4 ; |
60 | OutF:=(InpSuhu * 9 / 4 ) + 32 ; |
61 | OutK:=(InpSuhu * 5 / 4 ) + 273 ; |
62 |
63 | writeln ( 'Suhu dalam Celcius = ' , OutC: 6 : 2 ); |
64 | writeln ( 'Suhu dalam Fahrenheit = ' , OutF: 6 : 2 ); |
65 | writeln ( 'Suhu dalam Kelvin = ' , OutK: 6 : 2 ); |
66 | end |
67 | else if (JenisSuhu = 'F' ) then {jika input suhu dalam fahrenheit} |
68 | begin |
69 | OutC:=InpSuhu * 5 / 9 ; |
70 | OutR:=(InpSuhu * 4 / 9 ) + 32 ; |
71 | OutK:=(InpSuhu * 5 / 9 ) + 273 ; |
72 |
73 | writeln ( 'Suhu dalam Celcius = ' , OutC: 6 : 2 ); |
74 | writeln ( 'Suhu dalam Reamur = ' , OutR: 6 : 2 ); |
75 | writeln ( 'Suhu dalam Kelvin = ' , OutK: 6 : 2 ); |
76 | end |
77 | else if (JenisSuhu = 'K' ) then {jika input suhu dalam kelvin} |
78 | begin |
79 | OutC:=InpSuhu - 273 ; |
80 | OutR:=(InpSuhu - 273 ) * 4 / 5 ; |
81 | OutF:=((InpSuhu - 273 ) * 9 / 5 ) + 32 ; |
82 |
83 | writeln ( 'Suhu dalam Celcius = ' , OutC: 6 : 2 ); |
84 | writeln ( 'Suhu dalam Reamur = ' , OutR: 6 : 2 ); |
85 | writeln ( 'Suhu dalam Fahrenheit = ' , OutF: 6 : 2 ); |
86 | end ; |
87 | readln; |
88 | end . {end program} | | | | | | | | |
Sumber info : astawan.wordpress.com/2008/12/02/konversi-suhu-dengan-pascal/
0 komentar:
Speak up your mind
Tell us what you're thinking... !