Menghitung Konversi Suhu

Buatlah aplikasi untuk mengkonversi suhu dalam satuan Celcius
(C) ke satuan Fahrenheit (F), Reamur (R), dan Kelvin (K). Rumus konversinya adalah sebagai berikut:
F = (9/5 * C) + B; R = C + B; dan K = (4/5 * C)
B pada rumus di atas adalah bilangan tetap yang besarnya 32.

Jawaban:

program Project1;

const
  b : real = 32;

var
  c,f,r,k : real;

begin
  write('Masukkan suhu dalam celcius = ');
  readln(c);
  f := ((9 * c) / 5) + b;
  r := c + b;
  k := (4 * c) / 5;
  writeln('Suhu dalam Fahrenheit (F) = ', f:2:2);
  writeln('Suhu dalam Reamur (R) = ', r:2:2);
  writeln('Suhu dalam Kelvin (K) = ', k:2:2);
  readln;
end.