Chrono (forum) | TOUT sur la TI-82

Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1171
Réponses : 12
Type : discussion
Etat : réponses autorisées

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Chrono

SpinyShip le 04/12/2011 à 17:15

Code

:EffEcr

:EffVar A

:EffVar B

:EffVar C

:EffVar D

:EffVar E

:EffVar F

:EffVar I

:EffVar K

:While 1

:Output(4,6,"CHRONO")

:Output(5,12,A)

:Output(5,11,B)

:Output(5,10,":")

:Output(5,9,C)

:Output(5,8,D)

:Output(5,7,":")

:Output(5,6,E)

:Output(5,5,F)

:While I<21

:codeTouche->K

:If K=105:Then

:Output(8,1,"Pause ")

:Pause

:End

:Output(8,1,"      ")

:I+1->I

:End

:0->I

:A+1->A

:If A>9:Then

:0->A

:B+1->B

:If B>5:Then

:0->B

:C+1->C

:If C>9:Then

:0->C

:D+1->D

:If D>5:Then

:0->D

:E+1->E

:If E>9:Then

:0->E

:F+1->F

:If F>9:Then

:Goto 00

:End

:End

:End

:End

:End

:End

:End

Lbl 00

Pour mettre en pause, appuyez sur la touche "entrer".

sandro le 04/12/2011 à 17:25

Si tu veut, tu peut l'optimiser :

Code

:EffEcr

:EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar IEffVar KWhile 1

:Output(4,6,"CHRONO

:Output(5,12,A

:Output(5,11,B

:Output(5,10,":

:Output(5,9,C

:Output(5,8,D

:Output(5,7,":

:Output(5,6,E

:Output(5,5,F

:While I<21

:codeTouche->K

:If K=105:Then

:Output(8,1,"Pause

:Pause

:End

:Output(8,1,"      "

:I+1->I

:End

:EffVar IA+1->A

:If A>9:Then

:EffVar AB+1->B

:If B>5:Then

:EffVar BC+1->C

:If C>9:Then

:EffVar CD+1->D

:If D>5:Then

:EffVar DE+1->E

:If E>9:Then

:EffVar EF+1->F

:If F>9:Stop

:End

:End

:End

:End

:End

:End

The K le 04/12/2011 à 21:00

Code

If A>9

EffVar AB+1->B

Sans then si end, ça ne marche pas ?

sandro le 05/12/2011 à 18:59

en gros, c'est l'équivalent de

Code

If A>9

Then

EffVar A

B+1->B

End

Mais j'ai suprimé le then, le end ET le saut de ligne, dnc ça passe.

Sandro

linkakro le 05/12/2011 à 19:02

Les Then et End actuellement présents demeurent indispensables si les tests sont nécessairement imbriqués.
Sinon un alogorithme avec liste devrait marcher.

sandro le 05/12/2011 à 19:16

J'ai juste supprimé 1 End, donc ça ne devrait pas poser de problème (le problème est un If ???:EffVar AEnd

Sandro

linkakro le 05/12/2011 à 22:29

Peu utile, mais histoire de...
Pas testé

Code

:EffEcr

:EffListe L1

:{9,5,9,5,9,9->L2

:6->dim(L1

:While 1

:Output(4,6,"CHRONO

:For(W,1,3

:Output(5,15-3W,L1(W

:Output(5,14-3W,L1(W

:End

:Output(5,10,":

:Output(5,7,":

:EffVar IWhile I<21

:codeTouche->K

:If K=105:Then

:Output(8,1,"Pause

:Pause

:End

:Output(8,1,"      "

:I+1->I

:End

:EffVar IL1(1)+1->L1(1

:1->W

:While L1(W)>L2(W

:If L1(6)=10:Stop

:0->L1(W

:1+L1(W+1->L1(W+1

:W+1->W

:End

:End

Code

:EffEcr

:EffVar A

:While 1

:Output(4,6,"CHRONO

:Output(5,5,A>DMS        // >DMS est dans le menu angle

:EffVar IWhile I<21

:codeTouche->K

:If K=105:Then

:Output(8,1,"Pause

:Pause

:End

:Output(8,1,"      "

:I+1->I

:End

:A+1/3600->A

:End

Sangohan38 le 06/12/2011 à 12:42

On peut pas faire encore mieux?

Code

:EffEcr

:EffListe L1

:EffVar A

:While 1

:Output(4,6,"CHRONO

:Output(5,5,A>DMS        // >DMS est dans le menu angle

:EffVar IWhile I<21

:If codetouche=105

Pause "PAUSE"

:Output(8,1,"      "

:I+1->I

:End

:A+1/3600->A

:End

Certes, s'pas esthétique mais sa me semble pas mal pour raccourcir.

Sangohan38

linkakro le 06/12/2011 à 18:20

Puisque tu aimes les optimisations :

Code

:EffEcr

:For(A,0,E99,1/60^2      // E=[2nde]+[,]

:Output(4,6,"CHRONO

:Output(5,5,A>DMS        // >DMS est dans le menu angle

:For(I,0,20

:If codetouche=105

:Pause "PAUSE"

:Output(8,1,"      "

:End

:End

snap le 06/12/2011 à 19:31

Pas besoin du effvar A si tu as for(A,
xD

Code

:EffEcr

:EffListe L1

:For(A,0,E99,1/60^2      //  E=[2nde]+[,]

:Output(4,6,"CHRONO      

:Output(5,5,A>DMS        // >DMS est dans le menu angle

:For(I,0,20

:If codetouche=105       

:Pause "PAUSE           

:Output(8,1,"      "     

:End

:End

D'ailleurs pourquoi EffListe L1?

linkakro le 06/12/2011 à 20:10

J'ai juste oublié des étapes dans mes opérations de copier/coller et réécriture.
C'est corrigé.

snap le 07/12/2011 à 15:12

D'ailleur j'ai mis le programme sur ma calto et il ne veut pas faire le : output(5,5,A>DMS
Pour que sa marche il faudrai mettre Effecran après le for et mettre Disp "","","","",A>DMS

linkakro le 07/12/2011 à 19:26

Mince j'avais oublié que les fonctions du type ">FRAC" ne fonctionnent pas dans Output...

Désolé.

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Forum

Chrono

Flux RSS

Abonnement à la newsletter