Program Konversi Suhu dalam Bahasa Pascal dan C++

Kali ini saya akan memposting program konversi suhu. Di bawah ini adalah source codenya:

Bahasa Pascal

Program Konversi_suhu;

{Dibaca suhu dalam celcius dijadikan dalam F,R,K}

var

        C,R,F,K:real;

begin

       write('masukkan suhu dalam celcius : ');readln(C);

       F:=((9*C)/5)+32;

       R:=(4*C)/5;

       K:=C+273;

       writeln('Fahrenheit : ',F);

       writeln('Reamur : ',R);

       writeln('Kelvin : ',K);

end.

Program Konversi_Suhu dalam bahasa C++

#include <iostream>

using namespace std;

int main() {

                float F, R, K, C;

               

                cout<<"masukkan suhu dalam celcius : ";cin>>C;

                F=((9*C)/5)+32;

                R=(4*C)/5;

                K=C+273;

                cout<<"Fahrenheit : "<<F<<endl;

                cout<<"Reamur : "<<R<<endl;

                cout<<"Kelvin : "<<K;

                return 0;

}