Jour de la semaine

Bonjour

ce programme  donne le jour de la semaine pour une date entre le 1/1/1950 et le 31/12/2049

entrez une date sous la forme 311299 pour 31/12/1999 ce qui donnera "VE" comme vendredi

Code:

ClrHome
Prompt J
dbd(101.5,J/100
Ans-7iPart(Ans/7
sub("DILUMAMEJEVESA",2Ans+1,2

sans doute le nième programme de ce type de calcul mais j'ai essayé d'utiliser Ans pour avoir le code le plus petit possible (peut-on faire mieux ?) sauf à faire saisir à l’utilisateur la date sous la forme 3112.99 mais ça me parait un peu bizarre cette façon, donc je laisse en forme entière

Wow, c'est sympa, ça o_o

En effet, c'est très court et léger, ça pourrait presque être proposé comme routine au wiki TI-Basic Developer

Bien joué

Je ne connais pas de programme qui fait déjà ça, hormis ceux qui utilisent les fonctions préprogrammées de la 84 Plus faites pour ça.

+1 !

Bonjour
merci de ta réponse
qu'est-ce que "wiki TI-Basic Developer" ? il y a un lien ?

Il me semble qu'il y avait déjà des programmes de ce type sur l'ancien forum. Mais bravo : c'est optimisé et il n'existait rien de tel ici.

Respect, c'est propre, rapide et fonctionnel!

C'est quoi le :

Code:

dbd(101.5,J/100

Je n'ais jamais rencontré cette fonction dbd()

Je te renvoi au manuel

C'est jed() en français:

manuel ti82stats.fr a écrit:Utilisez la fonction de date jed( (option D du menu) pour calculer le nombre de jours entre deux dates en utilisant la méthode de comptage des jours réels. date1 et date2 peuvent être des nombres ou des listes de nombres compris dans la plage de dates du calendrier.
jed(
Remarque : Les dates doivent être comprises entre les années 1950 et 2049.
jed(date1,date2)
Vous pouvez introduire les paramètres date1 et date2 sous deux formats :
¦ MM.JJAA (Etats Unis)
¦ JJMM.AA (Europe)
La position du point décimal permet de distinguer les deux formats.

C'est une méthode sympa, qui a lé mérite d'être très optimisée bravo
Faudrait que je retrouve j'avais codé un truc (moins optimisé) qui permettait de donner le jour de la semaine depuis l'an 0...

EDIT: Voici le sujet:
le mien: http://tout82.free.fr/forum/sujet.php?sujet=3803
celui de Linka: http://tout82.free.fr/forum/sujet.php?sujet=2657
et de ld: http://tout82.free.fr/forum/sujet.php?sujet=3525

Maintenant un code (amélioré à partir de celui de Linka je précise):

Code:

Prompt J,M,A
M<3->B
{0,3,3,6,1,4,6,2,5,0,3,5
A-1+int((A-B)/4)-int((A-B)/100)+int((A-B)/400)+Ans(M)+J->P
Disp sub("DIMLUNMARMERJEUVENSAM",3(P-7int(P/7))+1,3

D'après mes immenses talents linguistiques, ça veut dire "days between dates" et "jours entre dates".

Bon tout le monde est trop fort ici...

Bah toi aussi le tien est super aussi    (plus optimisé mais il couvre une moins grande période... ça dépends de ce qu'on veut en fait )

J'ai trouvé une chose plus étrange: ma calculatrice. (TI84+) gère les date de 1997 à 2132 et la TI82stats de 1950 à 2049...

Je me demande si c'est dates sont mises à jour de temps en temps et si elle correspondaient à quelque chose (mise en service du processeur, date de fabrication, de commercialisation)..,

Je remarque aussi que la mienne a une durée de vie théorique de 129 ans, alors que les autres 99 ans... Y-a-t-il une explication à tout cela?

à la base c'est une fonction financière.. Je pense que c'est pour s'adapter aux durées de prêts à venir.
IL ne faudrait pas que les étudiants soient dans les plages de prêts de leur parents.

un prêt à 35 ans qui commencera en 2015 et on serait aux limites de la 82Stat (je ne sais pas comment sera la 82stat Plus) ; Donc il est un peu temps d'élargir la durée couverte.

Ouais, ils ont dû s'adapter, avec la crise.

blg_flg a écrit:Ouais, ils ont dû s'adapter, avec la crise.

Bonne remarque même si on troll un peu.  

pour la ti82stat Plus vous savez les bornes de cette fonction ? les mêmes que ti83+ (vu que je n'en ai pas je ne sais pas les limites)

C'est l'OS 1.19 des TI-83 Plus, donc ce sera forcément les mêmes bornes.

Si tu me dis comment tu les as trouvées, je peux essayer sur ma 83+.

Bonjour
en regardant dans le manuel de la TI82stat

Bonjour ? Bonjour...

D'accord, je checke le manuel...

EDIT: Apparemment, la TI-83+ et donc la TI-82+ aussi, fonctionnent comme la TI-82 Stats: 1950 à 2049.

Si les dates entrées ne sont pas dans l'intervalle, la commande renvoie des valeurs négatives.

Bonjour,
j'essaie de ne pas oublier de dire Bonjour sur les forum...

négative si Date1  >  Date2

3112.40 sera toujours 31/12/2040 jamais 1940 ni même 2140
et si vous rentrez une date invalide il y a une erreur - sympa ça-
exemple 2902.13 ou 3111.13 ERR:DOMAINE

Facile, j'ai fait une horloge numérique ou tu peux changer l'heure manuellement, et après plusieurs tests j'ai trouvé ces dates limites.

Code:


While 1
Prompt A
1->M
1->J
SetDate(A, M, J)
End


Bonjour
je n'ai pas compris ton programme...

Je me sers de la fonction SetDate() qui permet de définir la date . On peut ainsi en testant plusieurs valeurs pour A voir la limite de l'année, sans passer par la fonction Deb() (les fonctions date/heure ne sont pas disponibles sur les TI82/stats. Elles ne sont présentes que sur les TI84+(SE) et probablement les TI83+ nouvelle génération)

oui il y a des fonctions nouvelles sur certains modèles mais on a du mal à s'y retrouver
les ti82stat sont des ti83
les ti82stat+ sont des ti83+
les ti83+ nouvelles générations seront ti83++ et après TI83# ?
et les 84 là dedans ?
c'est un peu le cirque non ?

Bonjour,
Les TI 82stats+ n'existent pas, mais les ti82+ sortent bientôt, et correspondent bien à des 83+.
Les 84 n'existent pas non plus (j'ai fait la même erreur ) mais les ti 84+ oui et ce sont... Des ti 84+ .
Les Ti 83++ ? Connais pas, mais les TI 83+.fr nouvelles sont des 84+ si ma mémoire est bonne.

C'est TI-France qui renomme les modèles pour faire croire à une montée de gamme.

TI-82 Plus = TI-83 Plus.fr (modèle 2008) = TI-83 Plus
TI-83 Plus.fr (modèle 2013) = TI-84 Plus sur tous les points
TI-82 Stats = TI-82 Stats.fr = TI-83 au niveau logiciel, mais TI-83 Plus au niveau matériel
TI-82 égale à elle même
TI-83 Plus Silver Edition égale à elle même
TI-84 Plus Silver Edition égale à elle même, mais il en existe des sous-types différents

La seule TI-84 "non-Plus" qui existe est la TI-84 Pocket.fr, qui correspond logiciellement à une TI-84 Plus quand même. Mais elle tient dans la poche, ce qui la rend vraiment pratique, je l'aime beaucoup.

C'est le bazar, ils pouvaient pas faire plus simple...

Ils veulent faire croire qu'ils améliorent certains modèles (comme la TI 82+) pour le même prix qu'avant alors qu'il ne font que changer le nom de certains modèles (ce qui fait ce bazar pas possible...).

Je rappelle que mon programme, repris ici par m@thieu41, donne un résultat exact du calendrier Grégorien pour toute année de l'existence humaine. (+-8*10^13)

Wistaro a écrit:J'ai trouvé une chose plus étrange: ma calculatrice. (TI84+) gère les dates de 1997 à 2132 et la TI82stats de 1950 à 2049...

J'admettais bien ton observation mais aucun des manuels de 83plus et 84plus que j'ai consulté n'annonce ces bornes. Partout le domaine annoncé est 1950 à 2049.
Je soupçonne un défaut de syntaxe dans ton usage ou un défaut de support de TI.

Certaines périodes reviennent à l'identique tous les siècles, donc on pourrait se débrouiller avec d'autres siècles.
Mais ce qui ne contient pas un multiple de 400 comme 2000 ou 2400 comptera un jour de trop sur le février du siècle, par exemple 2100.

Lorsqu'il sera question de jours entre dates, mais plus de jour de semaine, je voudrais ne pas dépendre de TI.
Pour ce projet de jours entre dates, j'utilise la formule complète qui avais servis à réaliser la formule simplifiée des jours de semaines.

Code:

CumSum({0,31,28,31,30,31,30,31,31,30,31,30->L1  // jours passés des mois précédents
For(W,0,1
S->T
Prompt J,M,A
M<3->B
365(A-1)+int((A-B)/4)-int((A-B)/100)+int((A-B)/400)+L1(M)+J->S
End
T-S

Linkakro a écrit:

Wistaro a écrit:J'ai trouvé une chose plus étrange: ma calculatrice. (TI84+) gère les dates de 1997 à 2132 et la TI82stats de 1950 à 2049...

J'admettais bien ton observation mais aucun des manuels de 83plus et 84plus que j'ai consulté n'annonce ces bornes. Partout le domaine annoncé est 1950 à 2049.
Je soupçonne un défaut de syntaxe dans ton usage ou un défaut de support de TI.

Code:


While 1
Prompt A
1->M
1->J
SetDate(A, M, J)
End

Test avec 1950 via un émulateur de TI84+, tu verrais qu'il met "ERR:DOMAIN"...
La date limite est 1997...