Poster un nouveau sujet Poster une réponse
Conversion de température 1.1
Auteur Message
yoki990



Autorisation : Membre
Nb de messages : 3
Inscrit le : Lun 11 Fév 2013, 16:30
Posté le : Ven 08 Nov 2013, 8:14   Citer 


Code

:Lbl M
:EffEcr
:Menu(«TEMPERATURE»,«NOUVELLE CONV.»,N,«QUITTER»,Q)
:Lbl N
:EffEcr
:Input «TEMPERATURE:»,T
:EffEcr
:Menu(«T?»,«CELSIUS»,C,«FAHRENHEIT»,F,«KELVIN»,K,«QUITTER»,P)
:EffEcr
:Lbl C
:(1,8*T)+32->A
:T+273,16->B
:Output(1,1,T)
:Output(1,15, «°C»)
:Output(2,1, «VAUT:»)
:Output(3,1,A)
:Output(3,15, «°F»)
:Output(4,1,B)
:Output(4,16, «K»)
:Pause
:EffEcr
:Goto M
:Lbl F
:0,55*(T-32)->A
:A+273,16->B
:Output(1,1,T)
:Output(1,15, «°F»)
:Output(2,1, «VAUT:»)
:Output(3,1,A)
:Output(3,15, «°C»)
:Output(4,1,B)
:Output(4,16, «K»)
:Pause
:EffEcr
:Goto M
:Lbl K
:T-273,16->A
:(1,8*A)+32->B
:Output(1,1,T)
:Output(1,16, «K»)
:Output(2,1, «VAUT:»)
:Output(3,1,A)
:Output(3,15, «°C»)
:Output(4,1,B)
:Output(4,15, «°F»)
:Pause
:EffEcr
:Goto M
:Lbl P
:EffEcr
:Lbl Q
:EffEcr



 Adresse email Haut de page Bas de page 
 
rpgcreator



Autorisation : Membre
Nb de messages : 85
Inscrit le : Sam 20 Juil 2013, 17:00
Posté le : Ven 08 Nov 2013, 10:00   Citer 

bonjour optionnel? (ha la jeunesse, on oublie souvent de leur apprendre les bonnes manieres!!!)
la conversion en celsius des degres kelvins ne sert que pour les idiots; il suffit de rajouter 273.16 a la temperature pour passer du kelvin au degres et inversement
tu peux optimiser:
remplaces:

Code
0,55*(T-32)->A


par

Code
.55*(T-32->A


tu gagnes 2 octets glasses.gif

evite les multiplications entre parenthèses et les multiplications avec le signe: happy.gif

Code
(1,8*T)+32->A
devient:
1.8T+32->A


tu gagnes 3 octets glasses.gif
a quoi sert le Lbl P si Lbl Q est exactement la meme chose??? ahh.gif


Code
:Lbl Q
:EffEcr
:Lbl P
:EffEcr
Devient
:Lbl Q
:EffEcr
en ayant remplace:
:Menu("T?","CELSIUS",C,"FAHRENHEIT",F,"KELVIN",K,"QUITTER",P
par:
:Menu("T?","CELSIUS",C,"FAHRENHEIT",F,"KELVIN",K,"QUITTER",[couleur=#FF0000]Q[/couleur]


tu gagnes quand meme 7 octets!!! laugh.gif

essaie d'economiser les "EffEcr"'s, ca bouffe ton code:

Code
:Lbl M
:EffEcr
:Menu(«TEMPERATURE»,«NOUVELLE CONV.»,N,«QUITTER»,Q)
:Lbl N
:EffEcr
:Input «TEMPERATURE:»,T
:EffEcr
:Menu(«T?»,«CELSIUS»,C,«FAHRENHEIT»,F,«KELVIN»,K,«QUITTER»,P)
:EffEcr
devient:
:Lbl M
:EffEcr
:Menu(«TEMPERATURE»,«NOUVELLE CONV.»,N,«QUITTER»,Q)
:Lbl N
:Input «TEMPERATURE:»,T
:Menu(«T?»,«CELSIUS»,C,«FAHRENHEIT»,F,«KELVIN»,K,«QUITTER»,P)
:EffEcr


tu gagnes 2 octets pour chaque effecr supprime!!

sur les ti-z80, tu peux ommettre de fermer les parenthèses et les guillemets (hé oui hé oui glasses.gif )
en faisant ca, tu optimises ton code et economises beaucoup d'octets utilises pour rien!!


Code
Exemple: ca:
:Output(2,1, «VAUT:»)
c'est pareil que ca:
:Output(2,1, «VAUT:
et hop! 2 octets de gagnes!


il y a des erreurs:

Code
:Output(1,16, «K»)
:Output(2,1, «VAUT:»)
pas d'espace entre les arguments;juste une virgule (au-dessus du 7)


avec tous ces conseils, ce programme devrait vite perdre au moins 50 octets avec exactement le meme fonctionnement. essaie!

----------------------
je prefere la ti-82stats a la fumette ^^
 Adresse email Haut de page Bas de page 
 
m@thieu41



Autorisation : Membre
Nb de messages : 848
Inscrit le : Mer 18 Juil 2012, 18:44
Posté le : Sam 09 Nov 2013, 13:17   Citer 

En même temps c'est normal qu'il ne soit pas optimisé, il s'inspire fortement (et ce n'est pas précisé) du prgm de notre webmasteur.

----------------------
Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)

Et au fait: la politesse n'a jamais tué personne winkle.gif
 Adresse email Haut de page Bas de page 
 
rpgcreator



Autorisation : Membre
Nb de messages : 85
Inscrit le : Sam 20 Juil 2013, 17:00
Posté le : Mar 12 Nov 2013, 12:57   Citer 

ha quand meme (faut bien un jour commencer a optimiser ces programmes)
faut pas pousser, quand meme!! aller jusqu'a mettre deux labels pour la MEME fonction (je veux bien qu'il y ait des idiots), la, franchement, c'est chercher a charger la pauvre calto maltraitée pour rien!!!!

----------------------
je prefere la ti-82stats a la fumette ^^
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes