Πώς να Μετατροπή θερμοκρασίας σε QBasic

Για να δημιουργήσετε ένα Quick Basic πρόγραμμα που μετατρέπει τη θερμοκρασία , θα πρέπει πρώτα να γνωρίζουν πώς να κάνουν τις μετατροπές με το χέρι μέσω χαρτί και μολύβι . Ειδικότερα , Κελσίου = 5.9 ( Fahrenheit - 32 ) , ενώ το Fahrenheit = 9 /5 ( + 32 Κελσίου ) . Το υπόλοιπο της εργασίας περιλαμβάνει τη χρήση λειτουργιών, όπως INPUT για τη συλλογή δεδομένων χρήστη? Λειτουργίες όπως IF- THEN να γίνει διάκριση μεταξύ Φαρενάιτ σε Κελσίου και Κελσίου σε Φαρενάιτ εκδόσεις? Και η λειτουργία PRINT για να αναμεταδώσει την τελική απάντηση στον χρήστη . Οδηγίες
Η 1

Ρωτήστε τον χρήστη αν θα θέλατε να μετατρέψετε σε βαθμούς Κελσίου ή Φαρενάιτ χρησιμοποιώντας τη λειτουργία INPUT , και να αποθηκεύσετε την τιμή που προκύπτει σε μια μεταβλητή συμβολοσειράς :

INPUT "Τύπος F αν θα θέλατε να μετατρέψετε σε Φαρενάιτ και C αν θα θέλατε να μετατρέψετε σε βαθμούς Κελσίου: " TempString $ 2

Αποκτήστε τη θερμοκρασία που πρέπει να μετατρέπεται χρησιμοποιώντας τη λειτουργία INPUT σε συνδυασμό με μια αριθμητική μεταβλητή :

INPUT " Παρακαλώ εισάγετε τη θερμοκρασία : " TempValue
εικόνων 3

Κατασκευάστε μια δήλωση IF που μετατρέπει τη θερμοκρασία σε Φαρενάιτ δοθεί TempString $ τιμή του " F" και μετατρέπει τη θερμοκρασία σε Κελσίου δοθεί TempString $ αξία της "C" , και να αποθηκεύουν το υπολογιζόμενη θερμοκρασία στην αριθμητική μεταβλητή FinalTemp :

ΑΝ TempString $ = " F " ΤΟΤΕ

FinalTemp = 05.09 * ( TempValue + 32 )

elseIf TempString $ = " C " ΤΟΤΕ

FinalTemp = 5.9 * ( TempValue - 32 )

ΤΕΛΟΣ ΑΝ
Η 4

Relay τη θερμοκρασία μετατρέπεται στο χρήστη χρησιμοποιώντας την εντολή PRINT :

PRINT " Η μετατροπή της θερμοκρασίας είναι " ? FinalTemp ? " πτυχία ".
Η
εικόνων