[84+] jour de la semaine
2 participants
Page 1 sur 1
![[84+] jour de la semaine Empty](https://2img.net/i/empty.gif)
[84+] jour de la semaine
par persalteas 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
persalteas- Platinum 2
- Sexe :
Age : 28
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
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [84+] jour de la semaine
par Alexis 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(".
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
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
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [84+] jour de la semaine
par persalteas 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).
(remarque les modèles en dessous de la 84+ ne l'ont pas).
persalteas- Platinum 2
- Sexe :
Age : 28
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
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [84+] jour de la semaine
par Alexis Ven 27 Aoû - 12:42
Ok, donc il fonctionne seulement sur TI-84+ et TI-84+ SE je pense.
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
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
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [84+] jour de la semaine
par persalteas Ven 27 Aoû - 13:11
et probablement les modèles du dessus (ti 86, ti 89, ti nspire)
persalteas- Platinum 2
- Sexe :
Age : 28
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
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|