Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να υπολογίσετε ΔΜΣ Χρήση της Visual Basic

Ο Δείκτης Μάζας Σώματος ( ΔΜΣ ), παρέχει στα άτομα και οι γιατροί με έναν οδηγό για την παχυσαρκία . Ο υπολογισμός ΔΜΣ καθορίζει αν ένα άτομο έχει μια υψηλή αναλογία του λίπους σε σχέση με το ύψος και το βάρος . Ένα υψηλό ΔΜΣ δείχνει ένα άτομο πλησιάζει η παχυσαρκία , η οποία μπορεί να οδηγήσει σε πιο σοβαρά προβλήματα υγείας όπως ο διαβήτης , οι καρδιακές παθήσεις και αναπνευστικά προβλήματα . Ένας προγραμματιστής μπορεί να υπολογίσει ΔΜΣ χρήση της Visual Basic ( VB ) . Ο υπολογισμός επιτυγχάνεται χρησιμοποιώντας τον αλγόριθμο ΒΜΙ και τη σύνταξη VB . Οδηγίες
Η 1

Δημιουργήστε το Visual Basic μεταβλητές . Αυτές οι μεταβλητές κρατήστε πατημένο το αρχικό ύψος και το βάρος τους υπολογισμούς . Μια τρίτη μεταβλητή που δημιουργήθηκε για να περιέχει την τιμή ΔΜΣ . Ο παρακάτω κώδικας δημιουργεί μεταβλητές VB για τους υπολογισμούς : Dim ύψος Όπως DecimalDim βάρος Όπως DecimalDim ΔΜΣ As Integer 2

Μετατρέψτε το βάρος από λίβρες σε κιλά . Κιλά είναι μια πρότυπη μονάδα για επιστημονικούς υπολογισμούς . Το βάρος σε κιλά μετατρέπεται πολλαπλασιάζοντας με 703 . Σε αυτό το παράδειγμα , ένα άτομο που είναι 150 κιλά και 5 πόδια 6 ίντσες αξιολογείται . Τα ακόλουθα μετατρέπει το βάρος και την αποθηκεύει στη μεταβλητή ύψος: βάρος = 150 * 703
εικόνων 3

Υπολογίστε το ύψος . Το ύψος μετατρέπεται πρώτα σε ίντσες. Μετά από αυτό είναι μετατρέπεται σε συνολικές ίντσες, το βάρος διαιρείται με το ύψος δύο φορές. Το παρακάτω είναι το πώς να υπολογίσει το ύψος για τον τελικό υπολογισμό BMI ( απόστροφο υποδηλώνει σχόλια code ) : ύψος = 5 * 12 + 6 ' ( πολλαπλασιάστε 12 φορές τα πόδια και προσθέτουμε τα υπόλοιπα ίντσες ) Ύψος = βάρος /( 5 * 12 + 6 ) height = ύψος ( 5 * 12 + 6 )
Η 4

Εκχώρηση την τιμή ΔΜΣ στην μεταβλητή , και να στείλετε ένα μήνυμα στον χρήστη του λογισμικού . Η αξία ύψος είναι η δεκαδική τιμή του ΔΜΣ . Ύψος μετατρέπεται σε ακέραιο αριθμό , και ανατίθεται στη μεταβλητή ΔΜΣ . Το παρακάτω ολοκληρώνει τον υπολογισμό : ΔΜΣ = Convert.ToInteger ( ύψος ) MsgBox " Ο ΔΜΣ είναι " & ΔΜΣ
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα