vince6 Le 04/06/2008 à 19:51Edité par vince6 le 04/06/2008 à 20:41 voila le code :
()
Prgm
DelVar r,c,F,F0,n
Loop
Input "R= ",r
If r<0 Then
Goto aa
Else
Input "C= ",c
Input "F= ",F
Disp "calcul de t"
1/(2*pi*r*c)->F0
1/rac(1+(F/F0)^2)->n
Disp n
Disp approx(n)
Pause
EndIf
EndLoop
Lbl aa
menu principal
EndPrgm
Tu veux que le code soit plus petit ?
Qu'il se déroule plus vite ?
Qu'il danse des castagnettes en chantant la lambada ?
Tu veux qu'il vole dans les airs ?
ah c 'est vrai jai oublié de precisé ,je voudrais qu'il s"execute le plus rapidement possible tout prennant le moins de place memoire possible.
et niveau taille ? on peux reduire sa taille pour qu'il prenne moins de place possible sur la calculette?
Zeph Le 04/06/2008 à 20:44 bof, tu peux grappiller quelques octets en virant un "then ... else" qui sert à rien puisqu'il contient un goto, élimiter le calcul de F0 qui ne sert qu'une seule fois, factoriser les "disp" et quelques autres bricoles mais vu la simplicité du code y'a pas vraiment de miracle...
All right. Keep doing whatever it is you think you're doing.
------------------------------------------
Besoin d'aide sur le site ? Essayez
par ici :)
