Beberapa skala satuan suhu yaitu Celcius (C), Reamur (R), Fahrenheit (F), dan Kelvin (K). Diantara skala satuan suhu tersebut, skala Celcius merupakan skala yang paling banyak dipakai di berbagai negara di seluruh dunia.
- Konversi suhu dari Celcius (C) ke Reamur (R), Fahrenheit (F), dan Kelvin (K) adalah:
R = (4/5) C
F = (9/5) C + 32
K = C + 273
- Konversi suhu dari Fahrenheit (F) ke Celcius (C), Reamur (R), dan Kelvin (K) adalah:
C = 5/9 (F-32)
R = 4/9 (F-32)
K = 5/9 (F-32) + 273
- Konversi suhu dari Reamur (R) ke Celcius (C), Fahrenheit (F), dan Kelvin (K) adalah:
C = (5/4) R
F = (9/4) R + 32
K = C + 273 = (5/4) R + 273
- Konversi suhu dari Kelvin (K) ke Celcius (C), Reamur (R), Fahrenheit (F) adalah:
C = K – 273
R = 4/5 (K-273)
F = 9/5 (K-273) + 32
program Konversi_suhu; uses wincrt; var suhu : integer; lagi : char; procedure fahrenheit; var f : real; begin f := 1.8 * suhu + 32; writeln('Suhu dalam Fahreinheit = ',f:0:2); end; procedure reamur; var r : real; begin r := 0.8 * suhu + 32; writeln('Suhu Dalam Reamur = ',r:0:2); end; procedure kelvin; var klv : real; begin klv := suhu + 273; writeln('Suhu Dalam Kelvin = ',klv:0:2); end; BEGIN repeat writeln(' _______________________________________ '); writeln(' KONVERSI SUHU DARI CELCIUS '); writeln(' _______________________________________ '); writeln; write('Silahkan Ketik Angka Suhu Derajat Celcius : '); readln(suhu); writeln; fahrenheit; reamur; kelvin; writeln; write('Tekan Y Untuk menghitung lagi atau T untuk keluar = '); readln(lagi); until UPCASE(lagi) <> 'Y'; END