Konfersi Suhu

Berikut adalah program contoh konfersi suhu dengan Turbo Basic

cls

input “Masukkan suhu yang akan dikonfersi :”;suhu input “Masukkan satuan asal (C/F/R) :”;asal$

input “Masukkan satuan tujuan (C/F/R) :”;tuju$

if asal$=”c” or asal$=”C” then

if tuju$=”F” or tuju$=”f” then

hasil=9/5*suhu+32

print “Hasil dari “;suhu;” derajat “;asal$;” adalah “;hasil;” derajat “;tuju$

else

hasil=4/5*suhu

print “Hasil dari “;suhu;” derajat “;asal$;” adalah “;hasil;” derajat “;tuju$

end if

end if

if asal$=”f” or asal$=”F” then

if tuju$=”c” or tuju$=”C” then

hasil=5/9*suhu+32

print “Hasil dari “;suhu;” derajat “;asal$;” adalah “;hasil;” derajat “;tuju$

else

hasil=4/9*suhu

print “Hasil dari “;suhu;” derajat “;asal$;” adalah “;hasil;” derajat “;tuju$

end if

end if

if asal$=”r” or asal$=”R” then

if tuju$=”F” or tuju$=”f” then

hasil=9/4*suhu+32

print “Hasil dari “;suhu;” derajat “;asal$;” adalah “;hasil;” derajat “;tuju$

else

hasil=5/4*suhu

print “Hasil dari “;suhu;” derajat “;asal$;” adalah “;hasil;” derajat “;tuju$

end if

end if