Ako si vyrobiť Teplota Prevod program v QBasic

Prevod medzi stupňami Fahrenheita a Celzia ručne vyžaduje použitie základných rovníc : Celsius je ( 5 /9 ) * ( Fahrenheit - 32 ) a Fahrenheit je ( 9 /5 ) * Celzia +32 . Ak chcete , aby program v QBasic , ktorá vykonáva tento výpočet , je potrebné vedieť , ako načítať dáta od užívateľa , analyzovať tieto dáta a potom vykonať akciu na základe dát . To si vyžaduje pochopenie PRINT , INPUT a if - then funkcie . Pokyny dovolená 1

Vytlačte si hlavičku na identifikáciu programu a jeho funkčnosť pre užívateľov . Zaistite názov programu a pôvodných pokynov .

PRINT " ------------------------------- ----- " PRINT " Prevod teploty Program " PRINT " --------------------------------- --- " PRINT " " PRINT " Typ C pre Celzia - > Fahrenheit ( predvolené ) PRINT " Typ F pre Fahrenheita - > Celzia ) PRINT " "
2

Získať užívateľa odpoveď ( F alebo C ) s využitím vstupnú funkciu , ktorá ukladá hodnoty do premennej reťazca USERANSWER $

INPUT " Prijať " ; . USERANSWER $

3

Požiadajte užívateľa , aké teploty by chcel previesť , a potom uložiť hodnotu v číselnej premennej CONVERTTEMP

INPUT " Uveďte , prosím , teplotu " . CONVERTTEMP
4

Build if - then príkaz , ktorý kontroluje hodnotu USERANSWER $ , vykoná zodpovedajúcu akciu a uloží výsledok v číselnej premennej FINALANSWER . Zahrnúť ustanovenia o ELSE , ktorá vykonáva predvolenú akciu v prípade , že používateľ odpoveď je nesprávna

IF USERANSWER $ = " C " THEN

FINALANSWER = 5 /9 * ( CONVERTTEMP - 32 ) .

ElseIf USERANSWER $ = F " THEN

FINALANSWER = 9 /5 * ( CONVERTEMP + 32 )

ELSE

FINALANSWER = 5 /9 * ( CONVERTTEMP - 32 )

END IF
5

relé konečnú odpoveď užívateľovi s funkciou PRINT . Využite ďalšie IF - THEN konštrukcii prispôsobiť odpoveď podľa počiatočných požiadaviek užívateľa

IF USERANSWER $ = " C " THEN

PRINT " Teplota Celzia je " . FinalAnswer ; " stupňov " .

ElseIf USERANSWER $ = F " THEN

PRINT " Teplota Fahrenheit je " FinalAnswer , " . stupňov "

ELSE

PRINT " Teplota Celzia je " FinalAnswer , " . stupňov "

END IF

• Predchádzajúca strana: Čo je variant VB 
• Ďalšia strana: Ako previesť Teplota v QBasic