Latihan algoritma bahasa Pascal kali ini akan membahas cara membuat kode program konversi suhu dari Celsius ke Fahrenheit, Kelvin dan Reamur. Materi ini menguji pemahaman seputar logika matematika serta penggunaan operator aritmatika.
Soal Konversi Suhu Celsius
Buatlah kode program dalam bahasa Pascal untuk konversi suhu. Program meminta 1 inputan berupa suhu celsius, lalu menampilkan hasil konversi ke Fahrenheit, Kelvin dan Reamur.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Konversi Suhu ## ==================================== Input suhu celsius: 50 50.00 derajat Celsius = 122.00 derajat Fahrenheit 50.00 derajat Celsius = 323.15 derajat Kelvin 50.00 derajat Celsius = 40.00 derajat Reamur
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Konversi Suhu ## ==================================== Input suhu celsius: 80.75 80.75 derajat Celsius = 177.35 derajat Fahrenheit 80.75 derajat Celsius = 353.90 derajat Kelvin 80.75 derajat Celsius = 64.60 derajat Reamur
Silahkan coba sebentar membuat kode program ini.
Tips Membuat Kode Program Konversi Suhu Celsius
Solusi awal dari soal ini adalah memahami rumus konversi suhu dari celsius ke 3 jenis suhu lainnya. Berikut rumus yang bisa dipakai:
- Fahrenheit = (9/5) * Celsius + 32
- Kelvin = Celsius + 273.15
- Reamur = (4/5) * Celsius
Untuk kode program sendiri, butuh materi dasar yang berhubungan dengan variabel, tipe data float dan operator aritmatika. Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Cara Penggunaan Perintah Read dan Readln
- Pengertian Tipe Data Integer Pascal
- Operator Aritmatika Pascal
Kode Program Bahasa Pascal Membuat Konversi Suhu
Berikut salah satu solusi dari soal membuat konversi suhu menggunakan bahasa Pascal:
program konversi_suhu;
uses crt;
var
celc, fahr, kelv, ream: real;
begin
clrscr;
writeln('## Program Pascal Konversi Suhu ##');
writeln('====================================');
writeln;
write('Input suhu celsius: ');
readln(celc);
fahr := (9.0/5.0 * celc) + 32;
kelv := celc + 273.15;
ream := celc * (4.0/5.0) ;
writeln(celc:4:2,' derajat Celsius = ',fahr:4:2,' derajat Fahrenheit');
writeln(celc:4:2,' derajat Celsius = ',kelv:4:2,' derajat Kelvin');
writeln(celc:4:2,' derajat Celsius = ',ream:4:2,' derajat Reamur');
readln;
end.
Di baris 4 terdapat deklarasi 4 variabel bertipe real, yakni celc, fahr, kelv dan ream. Keempatnya dipakai untuk menampung nilai inputan suhu dan hasil konversi.
Kode program kemudian meminta inputan suhu Cecius dengan perintah readln(celc) di baris 12. Setelah perintah ini, nilai suhu celsius sudah tersimpan di dalam variabel celc.
Proses konversi suhu dilakukan pada baris 14-16. Kita tinggal input rumus konversi suhu sesuai dengan syarat dalam teori fisika (ada di bagian tips).
Terakhir, hasil konversi ditampilkan dengan perintah writeln di baris 18 – 20. Tambahan angka :4:2 dipakai untuk menformat angka real dengan 2 tempat desimal.
Demikian kode program membuat Konversi Suhu menggunakan bahasa Pascal. Semoga tutorial algoritma ini bisa bermanfaat.