Program ini bertugas untuk mengkoversikan satuan derajat celcius ke tiga (3) dejarat suhu lainnya yaitu Fahrenhait, Reamur, dan Kelvin. Dalam pengkonversian tersebut digunakan suatu rumus yaitu :
1. Konversi dari Celcius ke Fahrenhait
--> F = 9/5 X Celcius + 32
2. Konversi dari Celcius ke Reamur
--> R = 4/5 X Celcius
3. Konversi dari Celcius ke Kelvin
--> K = 273 + Celcius
Dari rumus konversi suhu diatas, dimasukkan dalam suatu algoritma pemograman sehingga didapatkan suatu nilai pengkonversian derajat celcius. Program ini biasanya digunakan pada latihan dasar pemograman. Dalam source code yang saya pakai pada program ini menggunakan pengkondisian if. Pemilihan konversi derajat suhu menggunakan radio Button. Terdapat 2 edit.text, Edit 1 digunakan untuk masukan atau inputan nilai derajat celcius dan Edit 2 digunakan untuk keluaran hasil konversi dejarat celcius. Terdapat juga 2 push button yang berfungsi sebagai mengeksekusi program (KONVERSI) dan mengembalikan pada kondisi semula atau menggahapus semua nilai yang telah dimasukkan (Clear). Penjelasan source code sebagai berikut ;
1. Variabel dan tipe Variabel yang digunakan
var
Form1: TForm1;
celcius:Integer;
a:real;