Πώς να κάνω μια θερμοκρασία Μετατροπή Πρόγραμμα σε QBasic

Μετατροπή μεταξύ Φαρενάιτ και Κελσίου απαιτεί μη αυτόματο τρόπο , χρησιμοποιώντας τις βασικές εξισώσεις : Κελσίου είναι ( 5/9) * ( Fahrenheit - 32 ) και Φαρενάιτ είναι (9 /5) * +32 βαθμούς Κελσίου . Για να κάνετε ένα πρόγραμμα σε QBasic που εκτελεί αυτόν τον υπολογισμό , θα πρέπει να ξέρετε πώς να την ανάκτηση δεδομένων από έναν χρήστη , αναλύει τα δεδομένα και στη συνέχεια να εκτελέσετε μια ενέργεια με βάση τα δεδομένα . Αυτό απαιτεί την κατανόηση του PRINT , INPUT και IF- THEN λειτουργίες. Οδηγίες
Η

1 Εκτυπώστε μια κεφαλίδα για να αναγνωρίσετε το πρόγραμμα και τη λειτουργικότητά του στο χρήστη . Δώστε έναν τίτλο για το πρόγραμμα και τις αρχικές οδηγίες .

PRINT " ------------------------------- ----- " PRINT " Πρόγραμμα μετατροπής θερμοκρασίας " PRINT " --------------------------------- --- " PRINT " " PRINT " Τύπος C για Κελσίου - > Φαρενάιτ ( προεπιλογή) PRINT "Τύπος F για Fahrenheit - > Κελσίου ) PRINT " " 2

Αποκτήστε απάντηση του χρήστη ( F ή C) χρησιμοποιώντας μια λειτουργία εισόδου που αποθηκεύει την τιμή της συμβολοσειράς μεταβλητού USERANSWER $

iNPUT "Απάντηση" ? . USERANSWER $
Η < br > 3

Ζητήστε από το χρήστη ποια θερμοκρασία θα ήθελε να μετατρέψετε , στη συνέχεια να αποθηκεύσετε την τιμή στην αριθμητική μεταβλητή ConvertTemp

INPUT " Παρακαλώ δώστε μια θερμοκρασία "? . ConvertTemp
Η 4 < p> Φτιάξτε ένα IF- THEN δήλωση που ελέγχει την αξία της USERANSWER $ , εκτελεί την αντίστοιχη ενέργεια και αποθηκεύει το αποτέλεσμα στην αριθμητική μεταβλητή FINALANSWER . Περιλαμβάνουν ρήτρα ELSE που εκτελεί την προκαθορισμένη ενέργεια στην περίπτωση που ο χρήστης απάντηση είναι λανθασμένη

ΑΝ USERANSWER $ = " C " ΤΟΤΕ

FINALANSWER = 5.9 * ( ConvertTemp - 32 ) . < br >

elseIf USERANSWER $ = F " ΤΟΤΕ

FINALANSWER = 9/5 * ( CONVERTEMP + 32 )

ΑΛΛΟ

FINALANSWER = 5.9 * ( ConvertTemp - 32 )

ΤΕΛΟΣ ΑΝ
5

Relay την τελική απάντηση για το χρήστη με λειτουργία PRINT . Χρησιμοποιήστε ένα άλλο IF- THEN κατασκευάσει για να προσαρμόσουν την απάντηση , σύμφωνα με την αρχική αίτηση του χρήστη

ΑΝ USERANSWER $ = " C " ΤΟΤΕ

PRINT " Η θερμοκρασία Κελσίου είναι " ? . FinalAnswer ? « βαθμούς ».

elseIf USERANSWER $ = F " ΤΟΤΕ

PRINT " Η θερμοκρασία Fahrenheit είναι " ? FinalAnswer ? " . βαθμούς "