Bonjour à tous !
Je suis novice en informatique, quelqu'un pourrait me dire quel est ce language ?
Je ne met qu'une partie, le reste est inutile je pense.. enfin sauf si quelqu'un en à besoin.. c'est un programme pour calculer le temps sidéral
le voici :
debut:
DIM JJ AS DOUBLE
DIM HD AS DOUBLE
DIM T AS DOUBLE
DIM H1 AS DOUBLE
DIM HS AS DOUBLE
CLS
PRINT : PRINT " *** Calcul de l'heure Sideral Moyen ****"
PRINT : PRINT " ATTENTION la validit‚ des donn‚es entr‚es au clavier"
PRINT " n'est pas v‚rifi‚e par le programme. Si vous entrez"
PRINT " des valeurs aberrantes le programme vous"
PRINT " donneras des r‚ponse aberrantes"
INPUT "Entrez la date D'observation sous forme MM DD YYYY"; dateobs$
INPUT "Entrez l'heure UT de l'observation sous forme HH MM SS"; heure$
PRINT : PRINT "***************************** ******************": PRINT
'On extrait les donnees de la date
M = VAL(LEFT$(dateobs$, 2))
d = VAL(MID$(dateobs$, 4, 2))
Y = VAL(MID$(dateobs$, 7, 4))
'On extrait les donnees de l'heure
h = VAL(LEFT$(heure$, 2))
mi = VAL(MID$(heure$, 4, 2))
se = VAL(MID$(heure$, 7, 2))
'On transforme l'heure en valeur decimale
HD = h + (mi / 60) + (se / 3600)
' HD est l'heure en decimale
[...]
Dans ce programme, je ne comprend pas à quoi sert la fonction FIX :
[...]
'Reduction a un cercle horaire de 24 heures
RE = FIX(HS / 24): HS = HS - (RE * 24)
IF HS < 0 THEN HS = HS + 24 'sortie de l'heure en decimal
[...]
merci d'avance
-----
Envoyé par azt 