 |
| educlopedia.blogspot.com |
sebelum masuk ke source code nya, alangkah baiknya jika kita mengenal dahulu apa itu suhu.
Suhu menunjukkan derajat panas benda. Mudahnya, semakin tinggi suhu suatu benda, semakin panas benda tersebut. Suhu juga disebut temperatur yang diukur dengan alat termometer. Empat macam termometer yang paling dikenal adalah Celsius, Reamur, Fahrenheit dan Kelvin. (id.wikipedia.org)
setelah penjelasan diatas tentang suhu, sekarang saatnya untuk masuk ke source code nya. untuk lebih jelasnya, silahkan lihat dibawah ini :
sebelum ke source code nya, dibawah ini adalah trik untuk memudahkan untuk mengcopy source code nya :
educlopedia.blogspot.com untuk memudahkan dalam meng-copy source code (script programnya, arahkan pointer ke sudut kanan atas). lihat gambar diatas untuk lebih jelasnya. lalu pilih icon ke-2 dari kiri, lalu klik. setelah itu, tinggal Paste (Ctrl+V).
program Konversi_suhu;
//educlopedia.blogspot.com
uses wincrt;
var
suhu : integer;
lagi : char;
procedure fahrenheit;
//educlopedia.blogspot.com
var
f : real;
begin
f := 1.8 * suhu + 32;
writeln('Suhu Dalam Fahreinheit = ',f:0:2);
end;
procedure reamur;
//educlopedia.blogspot.com
var
r : real;
begin
r := 0.8 * suhu + 32;
writeln('Suhu Dalam Reamur = ',r:0:2);
end;
procedure kelvin;
//educlopedia.blogspot.com
var
klv : real;
begin
klv := suhu + 273;
writeln('Suhu Dalam Kelvin = ',klv:0:2);
end;
BEGIN
repeat
//educlopedia.blogspot.com
writeln(' ========== SELAMAT DATANG ========== ');
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';
//educlopedia.blogspot.com
END.
sekian dari saya, jika ada yang tidak dimengerti dan ingin bertanya, silahkan tinggalkan pertanyaan anda di kolom komentar dibawah ini.
terima kasih
salam educlopedia
