För att skapa en Quick Basic program som omvandlar temperatur , måste du först veta hur man gör de konverteringar manuellt via papper och penna . I synnerhet Celsius = 5/9 (Fahrenheit - 32 ), medan Fahrenheit = 9 /5 ( Celsius + 32 ) . Resten av uppgiften innebär att man använder funktioner som INPUT för att samla in användardata , funktioner som IF - THEN att skilja mellan Fahrenheit till Celsius och Celsius till Fahrenheit versioner , och utskriftsfunktion till reläet det slutgiltiga svaret till användaren . Instruktioner
1
Fråga användaren om han vill konvertera till Fahrenheit eller Celsius med INPUT -funktionen , och lagra det resulterande värdet i en sträng variabel :
INGÅNG " Type F om du vill konvertera till Fahrenheit och C om du vill konvertera till Celsius : " , TempString $
2
Förvärva temperaturen som måste konverteras med hjälp av INPUT -funktionen i samverkan med en numerisk variabel :
INPUT " Ange temperaturen : " , TempValue
3
Konstruera en IF uttalande som omvandlar temperaturen till Fahrenheit gett ett TempString $ värdet för "F" och omvandlar temperaturen till Celsius ges ett TempString $ värde av "C" , och lagra den beräknade temperaturen i den numeriska variabeln FinalTemp :
IF TempString $ = "F" DÅ
FinalTemp = 9/5 * ( TempValue + 32 ) katalog
elseIf TempString $ = " C " DÅ
FinalTemp = 5/9 * ( TempValue - 32 )
end if
4
Relay de konverterade temperatur för användaren genom att använda kommandot PRINT :
PRINT " den konverterade temperaturen är "; FinalTemp ; " grader . " Addera
