[84+] jour de la semaine

Voir le sujet précédent Voir le sujet suivant Aller en bas

[84+] jour de la semaine

Message par persalteas le Jeu 26 Aoû - 8:57

Un programme tout con qui donne le jour de la semaine quand on rentre une date.

Spoiler:

Code:

:EffEcr
:Disp "----------------","    DATE?","----------------"
:Lbl AJ
:Input "jour ?",J
:If non(J) ou J>31:Goto AJ
:Lbl A
:0
:Menu("mois","janvier",1,"fevrier",2,"mars",3,"avril",4,"mai",5,"juin",6,"autres",0
:Lbl 0
:Menu("mois","juillet",7,"aout",8,"septembre",9,"octobre",10,"novembre",11,"decembre",12,"retour",A
:Lbl 12
:Rep+1
:Lbl 11
:Rep+1
:Lbl 10
:Rep+1
:Lbl 9
:Rep+1
:Lbl 8
:Rep+1
:Lbl 7
:Rep+1
:Lbl 6
:Rep+1
:Lbl 5
:Rep+1
:Lbl 4
:Rep+1
:Lbl 3
:Rep+1
:Lbl 2
:Rep+1
:Lbl 1
:Rep+1
:Rep->M
:Lbl A1
:Input "annee ?",A
:If non(A:Goto A1
:dayOfWk(A,M,J)-1->D
:EffEcr
:Output(3,1,"---------------- le"
:Output(4,6,J
:Output(4,8,"/
:Output(4,9,M
:Output(4,11,"/
:Output(4,12,A
:Output(5,1,"sera un"
:Output(6,1,"----------------"
:If D=1:Output(5,9,"lundi"
:If D=2:Output(5,9,"mardi"
:If D=3:Output(5,9,"mercredi"
:If D=4:Output(5,9,"jeudi"
:If D=5:Output(5,9,"vendredi"
:If D=6:Output(5,9,"samedi"
:If D=0:Output(5,9,"dimanche"
:Pause
:EffVar AEffVar MEffVar JEffVar D
:EffEcr
:Output(1,1,"



Dernière édition par persalteas le Ven 31 Déc - 10:10, édité 1 fois

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [84+] jour de la semaine

Message par Alexis le Jeu 26 Aoû - 12:50

Quand tu dis qu'il fonctionne sur TI-84+ c'est seulement ou alors aussi sur les autres ? Car sinon il y a la fonction "dayOfWk(".

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [84+] jour de la semaine

Message par persalteas le Jeu 26 Aoû - 13:04

eh bien il fonctionne sur toutes les calculettes qui ont la fonction dayOfWk(, et comme je ne sais pas lesquelles l'ont en dehors de la 84+, je ne cite rien.

(remarque les modèles en dessous de la 84+ ne l'ont pas).

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [84+] jour de la semaine

Message par Alexis le Ven 27 Aoû - 12:42

Ok, donc il fonctionne seulement sur TI-84+ et TI-84+ SE je pense.

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [84+] jour de la semaine

Message par persalteas le Ven 27 Aoû - 13:11

et probablement les modèles du dessus (ti 86, ti 89, ti nspire)

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [84+] jour de la semaine

Message par Contenu sponsorisé Aujourd'hui à 18:17


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum