Mes petits programmes

**Mic**

C'est fait.

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

chicu · 16.5/20

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**

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 ^^

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...

**Syfo**

Sub( et expr( n'existe pas sur 82, puisque cette ti ne possede pas de chaines de caracteres.

chicu · 16.5/20

Oui mais sur 82 stats ça existe :)

Dark Fox

Mic a écrit:

C'est fait.

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 · 16.5/20

Pour moi il est optimisé à fond sauf à la fin

Code:

If non(R

à la place de

Code:

If R=0

**tama**

.01A à la place de A/100
la multiplication est plus rapide que la division

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

Dark Fox

ok merci mais tu est sur de :

Code:

If non(R

ça signifie quoi ? et si je le rajoute ma Ti mets un message d'erreur

**tama**

ça serait If not(R

not(X => si X est différent de 0, retourne 0, sinon retourne 1

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

Dark Fox

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**

bah retourne le nombre 0...'comprends pas ta question...

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

charognard

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

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

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