Program Konversi Suhu dengan Pascal

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.

view sourceprint?

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/