Koversi Suhu Dengan Pascal

Kali ini saya akan membagikan cara untuk membuat konversi suhu dari celcius ke faranheit dan reamur dengan menggunakan bahasa pemrograman pascal. semoga bisa menambah wawasan bagi para pembaca semuanya.

Source code dari pascal :

program suhu;
uses crt;
var
celcius,faranheit,reamur:real;
begin
clrscr;
writeln('masukan suhu dalam celcius');
readln(celcius);
faranheit:=((9 div 5)*celcius)+32;
reamur:=(4 div 5)*celcius;
writeln('suhu dalam faranheit ', faranheit :5 :5);
writeln('suhu dalan reamur ', reamur :5 :5);
readkey;
end.

berikut screenshootnya :