disp('Pilih salah satu :')
% Program Konversi Suhu
% Dibuat oleh 007
% -----------------------
disp('1. Derajat Reamur')
disp('2. Derajat Celcius')
disp('3. Derajat Fahrenheit')
disp('4. Derajat Kelvin')
a=input('Pilih No. : ');
suhu=input('Besarnya suhu : ');
disp('--------------------------')
if a==1
R=suhu;
C=5/4*R;
F=9/4*R+32;
K=C+273;
elseif a==2
C=suhu;
R=4/5*C;
F=9/5*C+32;
K=C+273;
elseif a==3
F=suhu;
R=4/9*(F-32);
C=5/9*(F-32);
K=C+273;
elseif a==4
K=suhu;
C=K-273;
R=4/5*C;
F=9/5*C+32;
else
disp('Pilih 1 s/d 4 saja Brooo...!')
break;
end
disp('')
disp(['Derajat Reamur = ',num2str(R)])
disp(['Derajat Celcius = ',num2str(C)])
disp(['Derajat Fahrenheit = ',num2str(F)])
disp(['Derajat Kelvin = ',num2str(K)])
Tidak ada komentar:
Posting Komentar