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...).
Accueil­Portail­Calendrier­FAQ­Rechercher­S'enregistrer­Membres­Groupes­Connexion
Poster un nouveau sujet   Répondre au sujetLe Forum de TI-BANK.fr :: Forum TIz80 :: ProgrammationPartager | 
 

 Mes petits programmes

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2, 3
AuteurMessage
charognard
Vétéran
Vétéran


Masculin 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
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 22:03
ça (de plus ce code en ... merdiq....)

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


par

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


Dernière édition par le Mar 13 Nov - 22:09, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
charognard
Vétéran
Vétéran


Masculin 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
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 22:04
il y en a encore pas mal à optimiser mais chacun son tour
;-)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Animateur
Animateur


Masculin 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
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 23:03
charognard a écrit:
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

_________________
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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tamast.actifforum.com/index.htm
tama
Animateur
Animateur


Masculin 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
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 23:05
charognard a écrit:
ça (de plus ce code en ... merdiq....)

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


par

If A>=1000 AND A<10000
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:

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

_________________
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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tamast.actifforum.com/index.htm
charognard
Vétéran
Vétéran


Masculin 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
MessageSujet: Re: Mes petits programmes   Mer 14 Nov - 7:44
tama a écrit:
charognard a écrit:
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)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
charognard
Vétéran
Vétéran


Masculin 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
MessageSujet: Re: Mes petits programmes   Mer 14 Nov - 7:50
tama a écrit:
charognard a écrit:
ça (de plus ce code en ... merdiq....)

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


par

If A>=1000 AND A<10000
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:

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Xywez
Animateur
Animateur


Masculin Age: 20
Classe: PSI
Calculatrice(s): Ti 84 + SE
Messages: 3877
Efficacité: 8
Localisation: Uranus
Date d'inscription: 11/05/2006

Divers
Dernière note en maths: ** biiiip **
MessageSujet: Re: Mes petits programmes   Ven 16 Nov - 16:55
C'EST QUOI TOUTES CES PUB !!!!!!!!!!!!!!!!!!!!!!!!!!!!!


[size=12]enfin tu me dira les 2 filles encore sa peu aller [/size]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Dark Fox
Initié
Initié


Masculin 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

MessageSujet: Nouveau programme !   Dim 24 Aoû - 18:58
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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 

Mes petits programmes

Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 3 sur 3Aller à la page : Précédent  1, 2, 3

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Le Forum de TI-BANK.fr :: Forum TIz80 :: Programmation-
Poster un nouveau sujet   Répondre au sujet