Ako previesť Teplota v QBasic

Ak chcete vytvoriť rýchly základný program , ktorý prevádza teplotu , musíte najprv vedieť , ako vykonať konverziu ručne pomocou papiera a ceruzky . Najmä Celzia = 5 /9 ( Fahrenheit - 32 ) , zatiaľ čo Fahrenheit = 9 /5 ( Celzia + 32 ) . Zvyšok úlohy zahŕňa použitie funkcií ako je INPUT zhromažďovať užívateľské dáta , funkcie , ako je IF - THEN rozlišovať medzi Fahrenheita na stupne Celzia a Celzia na Fahrenheita verzie , a funkcie PRINT odovzdať konečnú odpoveď na užívateľovi . Pokyny dovolená 1

Požiadajte užívateľa , či by chcel previesť na stupne Fahrenheita alebo Celzia pomocou funkcie INPUT , a uložiť výslednú hodnotu v premennej reťazca :

INPUT " Typ F , ak by ste chceli previesť na stupne Fahrenheita a C , ak by ste chceli previesť na stupne Celzia " , TempString $
2

Získať teplotu , ktorá musí byť prevedené pomocou funkcie INPUT v spojení s číselnou premennou :

INPUT " Prosím , zadajte teplotu " , TempValue
3

Construct príkaz IF , ktorý prevádza teplotu na Fahrenheit vzhľadom TempString $ hodnota " F " a prevádza teplotu na Celzia vzhľadom TempString $ hodnota " C " , a uložiť vypočítanú teplotu v číselnej premennej FinalTemp :

IF TempString $ = " F " THEN

FinalTemp = 9 /5 * ( TempValue + 32 )

ElseIf TempString $ = " C " THEN

FinalTemp = 5 /9 * ( TempValue - 32 )

END IF
4

relé prevedenú teplotu pre užívateľov s využitím príkazu PRINT :

PRINT " prevedený teplota je " FinalTemp ; " stupňov . "

• Predchádzajúca strana: Ako si vyrobiť Teplota Prevod program v QBasic 
• Ďalšia strana: Ako používať kraja triedy odobrať časti obrázku v VB.NET