[Casio fx-850p] Comment coder la saisie d'une fonction ?

[tyann]

Bonjour

J'aimerais bien condenser les lignes 20 et 30 en une seule, mais je suis pas sûr de pouvoir. Je vais tester pour voir ce que ça donne.

Essaye ceci :

Code : Tout sélectionner

20 IF F>0 THEN I=100:GOTO 40

[charognard]

Code : Tout sélectionner

20 IF F THEN I=100:GOTO 40

[wilou]

Bonjour !

Je craignais que simplement rajouter un GOTO 40 ne soit pas relié à l'expression précédente, et c'est pourquoi j'avais voulu mettre une nouvelle condition. Je n'ai pas encore pu tester, mais dès que j'ai un peu de temps, je vais voir ça !

Merci !

W.

[tyann]

Bonjour

Je craignais que simplement rajouter un GOTO 40 ne soit pas relié à l'expression précédente

Normalement si le IF est vrai le reste de la ligne est exécutée, sinon on passe à la ligne suivante.

[wilou]

Salut,

Merci pour cette précision. Je comptais tester les deux solutions pouvoir ce que cela allait donner.
Je suis décidément bien rouillé (ce sont des points qui me paraissaient évidents quand j'étais au lycée, et qui le sont moins maintenant). Mais ça revient petit à petit !

Bonne journée,

W.

[gege]

Bonjour,
Ca marche sur Classpad en effet :

Code : Tout sélectionner

evalf	e,a,b
Local c,u,v,w,x
a=>x:strToExp(e)=>u
b=>x:strToExp(e)=>v
While abs(a-b)>1e-5
(a+b)/2=>c
c=>x:strToExp(e)=>w
If signum(u)=signum(w)
Then:c=>a:w=>u
Else:c=>b:w=>v:EndIf
WhileEnd:Print c

Et en utilisant les paramètres suivants : "sin(x)",3.1,3.5
La machine renvoie bien 3.141595459

Il faut utiliser strToExp().
G.E.