
Le Forum de TI-BANK.fr Le forum de la banque de programmes pour calculatrices graphiques Texas Instruments (aide débutants, résolution problèmes...). |
| | |
| Auteur | Message |
|---|
Mic Administrateur


Age: 25 Classe: Prof de Maths Calculatrice(s): Voyage 200 & TI-Nspire CAS Messages: 11433 Efficacité: 13 Localisation: Orléans Date d'inscription: 07/09/2004
Divers Dernière note en maths: -/20
 | Sujet: Re: Mes petits programmes Sam 10 Nov - 19:35 | |
| |
|  | | chicu Elite


Age: 19 Classe: TS SI Calculatrice(s): ti82 ti84+ ti89tita Messages: 206 Efficacité: 0 Date d'inscription: 27/05/2007
Divers Dernière note en maths: 16.5/20
 | Sujet: Re: Mes petits programmes Sam 10 Nov - 21:24 | |
| expr( tu fais catalogue f et tu remonte d'un cran sub( tu fais s tu descend d'une dizaine de cran sub et expr étant la à partir de ti82 Stats pas 82 tout court M'en vais jeter un coup d'oeil :) Edit : Ok je trouve ça beaucoup mieux personnellement enfin surtout plus simple :) Pour la date échantillon : Les profs de spé disent souvent en sachant que le xx/xx/xxxx est un jeudi trouvé le jour le yy/yy/yyyy. Moi je te proposer de permettre la saisie de xx/xx/xxxx voila tout en espérant avoir été plus clair :) PS : Mets nous ton code pour qu'on te dise si il est entièrement optimisé :) |
|  | | AdRiWeB Légende


Age: 17 Classe: Term. S Calculatrice(s): TI-84+, Nspire CAS, Nspire CAS+ Messages: 1203 Efficacité: 1 Localisation: Sur ma chaise Date d'inscription: 01/06/2007
Divers Dernière note en maths: 100 % ^^
 | Sujet: Re: Mes petits programmes Dim 11 Nov - 10:33 | |
| | chicu a écrit: | | sub( tu fais s tu descend d'une dizaine de cran | Perso, j'tape T et je monte de 2 ^^
Ou alors tu télécharges Omnicalc et t'as un menu personnel ^^ mais bon ^^ |
|  | | Syfo Légende


Age: 18 Classe: prepa integree polytech (L2) Calculatrice(s): 80,82,83,83+, 84+ Messages: 2581 Efficacité: 9 Localisation: Montpellier Date d'inscription: 21/02/2006
Divers Dernière note en maths: 14,5 maintenant tama t'arrete de me bourrer le mou
 | Sujet: Re: Mes petits programmes Dim 11 Nov - 11:09 | |
| Sub( et expr( n'existe pas sur 82, puisque cette ti ne possede pas de chaines de caracteres. |
|  | | chicu Elite


Age: 19 Classe: TS SI Calculatrice(s): ti82 ti84+ ti89tita Messages: 206 Efficacité: 0 Date d'inscription: 27/05/2007
Divers Dernière note en maths: 16.5/20
 | Sujet: Re: Mes petits programmes Dim 11 Nov - 11:35 | |
| Oui mais sur 82 stats ça existe :) |
|  | | Dark Fox Initié


Age: 19 Classe: Classe prépa MPSI Calculatrice(s): Ti 89 Titanium et Ti 82 Messages: 22 Efficacité: 0 Date d'inscription: 25/08/2007
 | Sujet: Re: Mes petits programmes Dim 11 Nov - 15:01 | |
| je te remercie ^^
| chicu a écrit: | expr( tu fais catalogue f et tu remonte d'un cran sub( tu fais s tu descend d'une dizaine de cran
sub et expr étant la à partir de ti82 Stats pas 82 tout court M'en vais jeter un coup d'oeil :)
Edit : Ok je trouve ça beaucoup mieux personnellement enfin surtout plus simple :)
Pour la date échantillon :
Les profs de spé disent souvent en sachant que le xx/xx/xxxx est un jeudi trouvé le jour le yy/yy/yyyy. Moi je te proposer de permettre la saisie de xx/xx/xxxx voila tout en espérant avoir été plus clair :)
PS : Mets nous ton code pour qu'on te dise si il est entièrement optimisé :) |
Ok je vois ce que tu veux dire c'est pour trouver le jour d'une certaine date à partir d'un jour et d'une date donnée, je l'ai fait en spé. Cependant (sans vouloir t'offenser) je ne vois pas trop l'utilité vu qu'avec zeller tu n'a pas besoin d'une date de réference pour trouver un jour. Sinon voilà mon code :
| Code: | ClrHome Output(2,4,"LA FORMULE Output(3,8,"DE Output(4,6,"ZELLER Output(6,1,"----------------- Output(7,1,"PROGRAMME CREE Output(8,1,"PAR AMAURY DARNY Pause Lbl 1 ClrHome Input "JOUR DU MOIS: ",T Input "MOIS: ",M Input "ANNEE: ",A If M=1 13->M If M=2 14->M M-2->M If A>=1000 Then iPart(A/100->H 100fPart(A/100->J End If A<1000 Then Lbl 0 Input "SIECLE: ",H Input "ANNEE DS SIECLE: ",J H-1->H Goto 2 End If A>=10000 Goto 0 Lbl 2 T+int(2.6M-0.2)+J+int(J/4)+int(H/4)-2H->W If W>=0 Then iPart(W/7->Q W-7Q->R Else If W<0 iPart(W/7->Q W-7(Q-1->R End ClrHome If R=0 Output(5,4,"DIMANCHE If R=1 Output(5,4,"LUNDI If R=2 Output(5,4,"MARDI If R=3 Output(5,4,"MERCREDI If R=4 Output(5,4,"JEUDI If R=5 Output(5,4,"VENDREDI If R=6 Output(5,4,"SAMEDI Output(3,1,"---------------- Output(4,1,"CETTE DATE EST Output(5,1,"UN Output(6,1,"---------------- Pause Menu("QUE FAIRE ?","CHERCHER JOUR",A,"QUITTER",B Lbl A Goto 1 Lbl B ClrHome
|
| Syfo a écrit: | | Sub( et expr( n'existe pas sur 82, puisque cette ti ne possede pas de chaines de caracteres. |
Ok j'ai donc bien confirmation que ça n'existe pas sur 82 normal |
|  | | chicu Elite


Age: 19 Classe: TS SI Calculatrice(s): ti82 ti84+ ti89tita Messages: 206 Efficacité: 0 Date d'inscription: 27/05/2007
Divers Dernière note en maths: 16.5/20
 | Sujet: Re: Mes petits programmes Dim 11 Nov - 17:57 | |
| Pour moi il est optimisé à fond sauf à la fin à la place de
|
|  | | tama Animateur


Age: 18 Classe: oui. (2ème année à l'Epita, sinon) Calculatrice(s): TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:) Messages: 10279 Efficacité: 29 Localisation: Paris ... dans un rayon de 15 km Date d'inscription: 19/12/2005
Divers Dernière note en maths: 13/20
 | Sujet: Re: Mes petits programmes Dim 11 Nov - 18:01 | |
| .01A à la place de A/100 la multiplication est plus rapide que la division |
|  | | Dark Fox Initié


Age: 19 Classe: Classe prépa MPSI Calculatrice(s): Ti 89 Titanium et Ti 82 Messages: 22 Efficacité: 0 Date d'inscription: 25/08/2007
 | Sujet: Re: Mes petits programmes Dim 11 Nov - 20:22 | |
| ok merci mais tu est sur de : ça signifie quoi ? et si je le rajoute ma Ti mets un message d'erreur |
|  | | tama Animateur


Age: 18 Classe: oui. (2ème année à l'Epita, sinon) Calculatrice(s): TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:) Messages: 10279 Efficacité: 29 Localisation: Paris ... dans un rayon de 15 km Date d'inscription: 19/12/2005
Divers Dernière note en maths: 13/20
 | Sujet: Re: Mes petits programmes Dim 11 Nov - 20:54 | |
| ça serait If not(R not(X => si X est différent de 0, retourne 0, sinon retourne 1 |
|  | | Dark Fox Initié


Age: 19 Classe: Classe prépa MPSI Calculatrice(s): Ti 89 Titanium et Ti 82 Messages: 22 Efficacité: 0 Date d'inscription: 25/08/2007
 | Sujet: Re: Mes petits programmes Mar 13 Nov - 20:06 | |
| | tama a écrit: | ça serait If not(R
not(X => si X est différent de 0, retourne 0, sinon retourne 1 |
retourne 0 ? par rapport à quoi ? |
|  | | tama Animateur


Age: 18 Classe: oui. (2ème année à l'Epita, sinon) Calculatrice(s): TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:) Messages: 10279 Efficacité: 29 Localisation: Paris ... dans un rayon de 15 km Date d'inscription: 19/12/2005
Divers Dernière note en maths: 13/20
 | Sujet: Re: Mes petits programmes Mar 13 Nov - 21:18 | |
| bah retourne le nombre 0...'comprends pas ta question... |
|  | | charognard Vétéran


Age: 42 Classe: sans Calculatrice(s): TI NSPIRE CAS, TI 74 + CHIMIE,2 CANON X07 + 2x8Ko + 2 CARD + audio, HP48GX + 512Ko, 11C, 28S, 35S, SHARP PC1262 + audio, PC1360, PC1246, PC1600 + 256Ko + RS232, 2 PC1500A + CE150 + CE-161 + 24ko, 2 PC1251 + CE125, 2 EL 9000, EL 512, PC G850V + USB, CASIO PB700 + FA11 + 4Ko, Z1Gr, TANDY TRS MODEL 100, TI59 Messages: 558 Efficacité: 7 Date d'inscription: 18/10/2007
Divers Dernière note en maths: 11/20
 | Sujet: Re: Mes petits programmes Mar 13 Nov - 21:41 | |
| on peut faire aussi des IF X THEN pour le test inverse à noter ne marche pas sur 68K et NOT(X) renvoi un entier signé sur 64bits et pas true ou false donc ne marche pas non plus sur 68000 |
|  | | charognard Vétéran


Age: 42 Classe: sans Calculatrice(s): TI NSPIRE CAS, TI 74 + CHIMIE,2 CANON X07 + 2x8Ko + 2 CARD + audio, HP48GX + 512Ko, 11C, 28S, 35S, SHARP PC1262 + audio, PC1360, PC1246, PC1600 + 256Ko + RS232, 2 PC1500A + CE150 + CE-161 + 24ko, 2 PC1251 + CE125, 2 EL 9000, EL 512, PC G850V + USB, CASIO PB700 + FA11 + 4Ko, Z1Gr, TANDY TRS MODEL 100, TI59 Messages: 558 Efficacité: 7 Date d'inscription: 18/10/2007
Divers Dernière note en maths: 11/20
 | Sujet: Re: Mes petits programmes Mar 13 Nov - 21:44 | |
| tu dois aussi pouvoir remplacer, théoriquement (je n'ai pas de Z80 TI) If M=1 13->M If M=2 14->M M-2->M par (M=1)*13+(M=2)*12->M |
|  | | charognard Vétéran


Age: 42 Classe: sans Calculatrice(s): TI NSPIRE CAS, TI 74 + CHIMIE,2 CANON X07 + 2x8Ko + 2 CARD + audio, HP48GX + 512Ko, 11C, 28S, 35S, SHARP PC1262 + audio, PC1360, PC1246, PC1600 + 256Ko + RS232, 2 PC1500A + CE150 + CE-161 + 24ko, 2 PC1251 + CE125, 2 EL 9000, EL 512, PC G850V + USB, CASIO PB700 + FA11 + 4Ko, Z1Gr, TANDY TRS MODEL 100, TI59 Messages: 558 Efficacité: 7 Date d'inscription: 18/10/2007
Divers Dernière note en maths: 11/20
 | Sujet: Re: Mes petits programmes Mar 13 Nov - 21:55 | |
| remplace çaIf W>=0 Then iPart(W/7->Q W-7Q->R Else If W<0 ; A iPart(W/7->Q W-7(Q-1->R End par çaiPart(W/7->Q W-7(Q-(W<0->R |
|  | | |
| Page 2 sur 3 | Aller à la page : 1, 2, 3  |
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
|