Compter

GW-Basic, utilisé par PC-Basic

Programme avec Texte Seulement

PC-BASIC

Quel âge as-tu vraiment?

Certaines personnes sont étrangement trop sensibles pour donner leur âge réel.

Après avoir entré votre âge, disons 36 ans, vous obtenez combien de temps vous avez été en vie en jours, heures, minutes et secondes. Pas tout à fait le nombre d'accordeurs de piano à Chicago Fermi, mais plus précis que votre calcul moyen au fond de l'enveloppe.

Mais AGEBMI.BAS fait plus.

Après vous avoir interrogé sur votre taille (en pouces) et votre poids (en livres) - des informations plus personnelles dont les gens sont parfois réticents à se séparer - le programme calcule rapidement votre IMC, ou indice de masse corporelle, qui est un facteur important (bien que trop simplifié). ) de la mesure de votre graisse corporelle.

Et, enfin (et utilement), AGEBMI.BAS interprète votre IMC.

Plusieurs variables sont requises pour le programme : ÂGE, POIDS et TAILLE, qui sont saisis par l'utilisateur, et l'IMC, qui est calculé à la volée.

Notez que le nombre de jours dans une année est supposé être de 365,25 - le quart supplémentaire est dû au jour supplémentaire dans les années bissextiles, bien que même 0,25 ne soit pas tout à fait correct en raison de l'étrangeté rendue nécessaire par les calculs de divisibilité des années bissextiles.

Bien qu'un pape "infaillible" l'ait introduit, le calendrier grégorien ne résout pas tous les problèmes du calendrier julien qu'il a remplacé.

Notez également les instructions conditionnelles qui interprètent la mesure de l'IMC (lignes 90 à 120). Une fois qu'un critère d'IMC est rempli, comme un IMC supérieur à 30, par exemple, le programme relaie les informations appropriées, puis se termine.

5 REM CALCULATEUR AGE-IMC
8 CLS
10 INPUT "QUEL AGE AVEZ-VOUS";AGE
12 INPUT "QUEL EST VOTRE POIDS (EN LIVRES)";WEIGHT
14 INPUT "QUELLE EST VOTRE TAILLE (EN POUCES)";HEIGHT
20 PRINT "VOUS ETES VIVANT DEPUIS:"
30 PRINT AGE*365.25 " JOURS"
40 PRINT (AGE*365.25)*24 " HUERES"
50 PRINT (AGE*365.25*24)*60 " MINUTES"
60 PRINT (AGE*365.25*24*60)*60 " SECONDES"
70 REM DÉTERMINER L'IMC ET CE QU'IL SIGNIFIE
80 BMI=(WEIGHT/(HEIGHT*HEIGHT))*703 '703 EST UN FACTEUR DE CONVERSION
85 PRINT "VOTRE IMC EST ";BMI
90 IF BMI <18.5 THEN PRINT "VOUS ETES EN INSUFFISANCE DE POIDS.":END
100 IF BMI>30 THEN PRINT "VOUS ETES OBESE.":END
110 IF BMI>24.999 AND BMI<=30 THEN PRINT "VOUS ETES EN SURPOIDS, MAIS PAS OBESE.":END
120 PRINT "VOUS AVEZ UN POIDS NORMAL.":END

Parce que même le plus jeune utilisateur entrera dans une année suffisamment grande pour que le nombre de secondes (au moins) se transforme en notation scientifique - sous la forme d'un E disgracieux plutôt que du nombre dix - seules des valeurs approximatives à des nombres vraiment grands peuvent être donné directement.

Indirectement, cependant, des nombres peut-être plus précis peuvent être montrés - en comptant différemment. Voir le dernier chapitre sur l'ADD. Programme BAS pour les détails.