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...).
AccueilPortailCalendrierFAQRechercherS’enregistrerConnexion
Poster un nouveau sujet   Répondre au sujetLe Forum de TI-BANK.fr :: Forum TIz80 :: Programmation
 Mes petits programmesVoir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédente  1, 2, 3
AuteurMessage
charognard
Vétéran
Vétéran


Sexe:MasculinSagittaireCheval
Age : 41
Inscrit le : 18 Oct 2007
Messages : 383
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  (47/450)
Dernière note en maths: 11/20
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 23: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 - 23:09, édité 1 fois
Revenir en haut Aller en bas
charognard
Vétéran
Vétéran


Sexe:MasculinSagittaireCheval
Age : 41
Inscrit le : 18 Oct 2007
Messages : 383
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  (47/450)
Dernière note en maths: 11/20
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 23:04
il y en a encore pas mal à optimiser mais chacun son tour
;-)
Revenir en haut Aller en bas
tama
Animateur
Animateur


Sexe:MasculinLionChèvre
Age : 16
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  (-9/500)
Dernière note en maths: 13/20
MessageSujet: Re: Mes petits programmes   Mer 14 Nov - 0: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
_________________
<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)
Revenir en haut Aller en bas
tama
Animateur
Animateur


Sexe:MasculinLionChèvre
Age : 16
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  (-9/500)
Dernière note en maths: 13/20
MessageSujet: Re: Mes petits programmes   Mer 14 Nov - 0: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

_________________
<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)
Revenir en haut Aller en bas
charognard
Vétéran
Vétéran


Sexe:MasculinSagittaireCheval
Age : 41
Inscrit le : 18 Oct 2007
Messages : 383
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  (47/450)
Dernière note en maths: 11/20
MessageSujet: Re: Mes petits programmes   Mer 14 Nov - 8: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
charognard
Vétéran
Vétéran


Sexe:MasculinSagittaireCheval
Age : 41
Inscrit le : 18 Oct 2007
Messages : 383
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  (47/450)
Dernière note en maths: 11/20
MessageSujet: Re: Mes petits programmes   Mer 14 Nov - 8: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
Xywez
Animateur
Animateur


Sexe:MasculinBalanceSerpent
Age : 18
Inscrit le : 11 Mai 2006
Messages : 3021
Localisation : Paris
Calculatrice : Ti 84 + SE
Classe : 1ère année ISEP (après une PCEM1)


Impureté:
32/450  (32/450)
Dernière note en maths: 18/20 au bac (et en spé maths bien sur!!)
MessageSujet: Re: Mes petits programmes   Ven 16 Nov - 17:55
C'EST QUOI TOUTES CES PUB !!!!!!!!!!!!!!!!!!!!!!!!!!!!!


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


Je met ici à dispo MA sélection pour le bac : ici
Revenir en haut Aller en bas
Mes petits programmesVoir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 3 sur 3Aller à la page : Précédente  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