|
Aller à la page : 1, 2, 3  |
| Auteur | Message |
|---|
Mic Administrateur


   Age : 24 Inscrit le : 07 Sep 2004 Messages : 9766 Localisation : Talence Calculatrice : Voyage 200 & TI-Nspire CAS Classe : Prof de Maths
Impureté:
   (56/450) Dernière note en maths: -/20
| |
 | |
chicu Elite


   Age : 18 Inscrit le : 27 Mai 2007 Messages : 200 Calculatrice : ti82 ti84+ ti89tita Classe : TS SI
Impureté:
   (107/450) Dernière note en maths: 16.5/20
| Sujet: Re: Mes petits programmes Sam 10 Nov - 22: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 Elite


   Age : 16 Inscrit le : 01 Juin 2007 Messages : 787 Localisation : Sur ma chaise Calculatrice : TI-84+ Classe : 1ère S
Impureté:
   (-1/450) Dernière note en maths: **/20 ^^
| |
 | |
Syfo Légende


   Age : 17 Inscrit le : 21 Fév 2006 Messages : 2393 Localisation : Herault Calculatrice : 80,82,83,83+, 84+ Classe : TS spe maths ;)
Impureté:
   (46/200) Dernière note en maths: 18/20
| Sujet: Re: Mes petits programmes Dim 11 Nov - 12:09 | |
| | Sub( et expr( n'existe pas sur 82, puisque cette ti ne possede pas de chaines de caracteres. |
|
 | |
chicu Elite


   Age : 18 Inscrit le : 27 Mai 2007 Messages : 200 Calculatrice : ti82 ti84+ ti89tita Classe : TS SI
Impureté:
   (107/450) Dernière note en maths: 16.5/20
| Sujet: Re: Mes petits programmes Dim 11 Nov - 12:35 | |
| | Oui mais sur 82 stats ça existe :) |
|
 | |
Dark Fox Débutant


   Age : 18 Inscrit le : 25 Aoû 2007 Messages : 19 Calculatrice : Ti 89 Titanium et Ti 82 Classe : Terminale S
| Sujet: Re: Mes petits programmes Dim 11 Nov - 16: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 : 18 Inscrit le : 27 Mai 2007 Messages : 200 Calculatrice : ti82 ti84+ ti89tita Classe : TS SI
Impureté:
   (107/450) Dernière note en maths: 16.5/20
| Sujet: Re: Mes petits programmes Dim 11 Nov - 18:57 | |
| Pour moi il est optimisé à fond sauf à la fin
à la place de
|
|
 | |
tama Animateur


   Age : 17 Inscrit le : 19 Déc 2005 Messages : 9389 Localisation : quelque part en France... Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:) Classe : Terminale S spé maths
Impureté:
   (-9/500) Dernière note en maths: 13/20
| Sujet: Re: Mes petits programmes Dim 11 Nov - 19:01 | |
| .01A à la place de A/100 la multiplication est plus rapide que la division _________________ <EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst) |
|
 | |
Dark Fox Débutant


   Age : 18 Inscrit le : 25 Aoû 2007 Messages : 19 Calculatrice : Ti 89 Titanium et Ti 82 Classe : Terminale S
| Sujet: Re: Mes petits programmes Dim 11 Nov - 21: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 : 17 Inscrit le : 19 Déc 2005 Messages : 9389 Localisation : quelque part en France... Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:) Classe : Terminale S spé maths
Impureté:
   (-9/500) Dernière note en maths: 13/20
| Sujet: Re: Mes petits programmes Dim 11 Nov - 21:54 | |
| ça serait If not(R
not(X => si X est différent de 0, retourne 0, sinon retourne 1 _________________ <EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst) |
|
 | |
Dark Fox Débutant


   Age : 18 Inscrit le : 25 Aoû 2007 Messages : 19 Calculatrice : Ti 89 Titanium et Ti 82 Classe : Terminale S
| Sujet: Re: Mes petits programmes Mar 13 Nov - 21: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 : 17 Inscrit le : 19 Déc 2005 Messages : 9389 Localisation : quelque part en France... Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:) Classe : Terminale S spé maths
Impureté:
   (-9/500) Dernière note en maths: 13/20
| Sujet: Re: Mes petits programmes Mar 13 Nov - 22:18 | |
| bah retourne le nombre 0...'comprends pas ta question... _________________ <EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst) |
|
 | |
charognard Vétéran


   Age : 41 Inscrit le : 18 Oct 2007 Messages : 384 Localisation : indre et loire Calculatrice : TI NSPIRE CAS, CANON X07, HP48GX, HP11C, SHARP PC1262, PC1360, PC1246, PC1600, PC1500, CASIO FX790P Classe : sans
Impureté:
   (47/450) Dernière note en maths: 11/20
| Sujet: Re: Mes petits programmes Mar 13 Nov - 22: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 : 41 Inscrit le : 18 Oct 2007 Messages : 384 Localisation : indre et loire Calculatrice : TI NSPIRE CAS, CANON X07, HP48GX, HP11C, SHARP PC1262, PC1360, PC1246, PC1600, PC1500, CASIO FX790P Classe : sans
Impureté:
   (47/450) Dernière note en maths: 11/20
| Sujet: Re: Mes petits programmes Mar 13 Nov - 22: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 : 41 Inscrit le : 18 Oct 2007 Messages : 384 Localisation : indre et loire Calculatrice : TI NSPIRE CAS, CANON X07, HP48GX, HP11C, SHARP PC1262, PC1360, PC1246, PC1600, PC1500, CASIO FX790P Classe : sans
Impureté:
   (47/450) Dernière note en maths: 11/20
| Sujet: Re: Mes petits programmes Mar 13 Nov - 22:55 | |
| remplace ça
If 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 ça iPart(W/7->Q W-7(Q-(W<0->R |
|
 | |
|