Mes petits programmes

[Adriweb]

ok merci
mais comment on fait pour optimiser son programme ?

LE site de référence : http://sc.cemetech.net

[Dark Fox]

Il y a Cela aussi

Je viens de matter ton prog sur Zeller et je te propose des améliorations possibles :

- Le -1 au siècle tu peux le faire toi même maudit faignant
- Tu pourrais juste demander l'année et à l'aide de sub( et expr( (en français : sous-chaine( et expr() faire en sorte d'avoir ton année partagé en 2, les centaines et les unités
- Faire en sorte que Janvier soit le premier mois ^^
- Et pour finir demander une date échantillon c'est à dire demandé un jour de la semaine correspondant à une date demandé elle aussi. Ceux ci étant un exercice d'arithmétique de base.

Enfin voila si tu as peur de t'ennuyer car tu n'as pas d'idée en voici en voila. Je pense qu'elle sont toutes faisable peut être que tu auras plus de mal avec certaine mais dans l'ensemble la difficulté est peu élevé.

Ok je vais prendre en compte tes remarques, et essayer d'améliorer ça. Par contre je ne comprends pas trop ton histoire de date échantillon...

[Dark Fox]

C'est bon j'ai modifié zeller et je l'ai mis sur Ti-Bank, par contre comment je fais pour enlever l'ancienne version de Ti-Bank ? Je pensais qu'elle serait remplacé mais non ...
Et puis où trouve t'on expr( et sub( sur 82 ? Sur 83+ c'est dans le catalogue mais sur 82 je n'ai pas trouvé. Bon c'est pas très graver de toute façon je me suis débrouillé autrement pour avoir l'année partagé en 2.

[chicu]

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]

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]

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

[chicu]

Oui mais sur 82 stats ça existe

[Dark Fox]

C'est fait.

je te remercie ^^

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: Select all

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 DARK FOX
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 A1000
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 W0
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



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]

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

Code: Select all

If non(R

à la place de

Code: Select all

If R=0

[tama]

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