Mes petits programmes

[tama]

ça (de plus ce code en ... merdiq....)

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


par

If A=1000 AND A10000
Then
iPart(A/100-H
100fPart(A/100-J
ELSE
Input "SIECLE: ",H
Input "ANNEE DS SIECLE: ",J
H-1-H
End

Pas sûr que ce soit plus rapide mais bon :

Code: Select all

If 3=int(log(A)+1
Then
iPart(.01A-H
100fPart(.01A-J
Else
Input "SIECLE: ",H
Input "ANNEE DANS SIECLE: ",J
H-1-H
End


[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

nan il me semble pas
c'est pas 14-2=12
dans tous les cas on doit enlever 2 à M

donc ça serait plutôt (M=1)*11+(M=2)*12-M

oui bien sur, erreur de ma part je me suis fais avoir par le basic TI (then ou pas == multiligne ou pas)

[charognard]

ça (de plus ce code en ... merdiq....)

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


par

If A=1000 AND A10000
Then
iPart(A/100-H
100fPart(A/100-J
ELSE
Input "SIECLE: ",H
Input "ANNEE DS SIECLE: ",J
H-1-H
End

Pas sûr que ce soit plus rapide mais bon :

Code: Select all

If 3=int(log(A)+1
Then
iPart(.01A-H
100fPart(.01A-J
Else
Input "SIECLE: ",H
Input "ANNEE DANS SIECLE: ",J
H-1-H
End


Alors là par contre si la fonction log prenant son temps
il est nettement préférable d'utiliser des fonctions logiques.
essai dans une boucle for next

pour cequi est du "code merdique"
regarde bien dedans, on sort des boucles par des goto la troisième condition revient à la deuxième. Bref si une telle structure est adoptée dans une boucle on va vers la saturation de la pile

[ced78fr]

C'EST QUOI TOUTES CES PUB !!!!!!!!!!!!!!!!!!!!!!!!!!!!!


[size=12]enfin tu me dira les 2 filles encore sa peu aller [/size]

[Dark Fox]

Salut à tous !
Me voilà de retour sur le forum après une longue période d'absence.
J'ai posté un nouveau programme sur Ti-Bank : arithmétique (toujours en z80). Il comprend de nombreuses fonctions comme : diviseurs, algorithme d'Euclide, nombre premier, PGCD, PPCM, facteurs premiers, Bezout et division euclidienne.
Je l'ai complété tout au long de mon année de terminale donc j'espère qu'il sera utile à quelques uns ^^
Sinon serait il possible que Mic retire mon ancien programme division euclidienne de Ti-Bank (vu qu'il devient obsolète avec celui-çi) ?
Voilà et aussi merci pour les conseils d'optimisations sur Zeller.