Membuat program menentukan bilangan ganjil/genap dan satuan derajat celcius pada QuickBasic

1.     Program menentukan bilangan ganjil atau genap pada QuickBasic/FreeBasic

DIM a AS INTEGER

CLS

INPUT "Masukkan bilangan = ", a

IF a MOD 2 = 0 THEN

PRINT "Angkanya Genap"

ELSE

PRINT "Angkanya Ganjil"

END IF

END

2.    Program menerima masukan dalam satuan derajat celcius pada QuickBasic/FreeBasic

DIM suhu as STRING

CLS

INPUT "Kode Konversi Suhu(F/R/K)?" ;suhu

suhu = ucase(suhu)

IF suhu ="F" THEN

        PRINT "Fahrenheit: Rumus F = (9/5*TC)+32"

ELSEIF suhu ="R" THEN

        PRINT "Reamur: Rumus R = 4/5*TC"

ELSEIF suhu ="K" THEN

        PRINT "Kelvin: Rumus K = TC+273"

ELSE

        PRINT "Kode Salah"

END IF

END