Tugas Pascal I : Mengitung Konversi Suhu

Lanjutan dari posting sebelumnya,,,(tugas pascal I)

Soal No.2 : Buatlah Program Menghitung konversi Suhu :
a. Celsius ke Fahrenheit
b. Celcius ke Reamour
Rumus konversi suhu dari Celsius ke Fahrenheit adalah : (celsius x 1.8) + 32
Rumus konversi suhu dari Celsius ke Reamur adalah : celsius x 0.8
jika diaplikasikan ke dalam sebuah program sederhana menggunakan Pascal, script yang digunakan adalah sebagai berikut :

Program Konversi_suhu;
uses crt;
var
c,f,r : real;
begin
writeln('----------------------');
writeln('KONVERSI SUHU');
writeln('----------------------');
writeln('');
write('Masukan Suhu Derajat Celsius :');readln(c);
f:=(c*1.8)+32;
r:=c*0.8;
writeln('Suhu Fahrenheit-nya adalah :',f:3:1);
writeln('Suhu Reamur-nya adalah :',r:3:1); readln; clrscr; end.

Printscreennya adalah sebagai berikut :


Output dari program diatas adalah sebagai berikut :