Program Matlab untuk Mengkonversi Suhu

disp('Program Mengkonversi Suhu')

disp('C = Derajat Celcius')

disp('F = Derajat Fahrenheit')

disp('R = Derajat Reamur')

disp('K = Derajat Kelvin')

disp('--------------------------------')

a = input('Masukan satuan suhu asal : ','s');

suhu = input('Masukan Nilai Suhu : ');

if  a == 'C'

    C = suhu;

    R = (4/5)*C;

    F = 9/5*C+32;

    K = C+273;

elseif a == 'F'

   F = suhu;

   R = (4/9)*F-32;

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

   K = C + 273;

elseif a == 'R'

   R = suhu;

   C = (5/4)*R;

   F = ((9/5)*R)-32;

   K = C+273;

elseif a == 'K'

    K = suhu;

    C = K-273;

    R = (4/5)*C;

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

else

    disp(' Pilih C,F,R atau K')

    break;

end

fprintf('Tingkat suhu %.2f derajat %s setara dengan\n',suhu,a)

fprintf('Suhu dalam Reamur      : %.2f derajat R\n',R)

fprintf('Suhu dalam Celcius     : %.2f derajat C\n',C)

fprintf('Suhu dalam Fahrenheit  : %.2f derajat F\n',F)

fprintf('Suhu dalam Kelvin      : %.2f derajat K\n',K)