univscien a écrit:

J'ai une 84+

J'espére qu'il y a une méthode quant méme.
En fait c'est pour trouver tous réels A et B entre 1 et 100 tel que (A+B)²=AB
Genre (30+25)²=3025

Pour çà j'ai fait:

Code:ClrDraw
ClrHome
For(A,1,100
For(B,1,100
AB->Str1
(A+B)²->C
If C=Str1
Disp A,",",B
End
End

Le prob c'est que A->Str1 ne rentre pas la valeur de A.

(de tibank ^^)

Donc expr(chaine) ça sert à convertir une chaine (Str0, Str1, ... ,Str9) en expres​sion(A,B,C,D,...Z)

pour ton truc tu peux faire

Code:

ClrDraw
ClrHome
For(A,1,100
For(B,1,100
"AB->Str1
"(A+B)²->Str2
expr(Str1->C //on calcule A*B
expr(Str2->D //on calcule (A+B)²
If C=D //si c'est égal
....
End
End

Roo la classe Tama, j'allais le faire. ^^


Sinon je croi que ta pas compri pour le code. Pourquoi faire A*B?

Je vais prendre un autre code:

Code:

ClrDraw
ClrHome
For(A,1,100
For(B,1,100
"A"->Str1
"B"->Str2
expr(Str1,Str2->D
(A+B)²->C
If D=C
Disp A,",",B
End
End

Comme pour l'exemple: 3025

A=30
B=25

(A+B)²=3025=AB et pas A*B

Mon prob c'est de rassembler A et B. A la ligne expr(Str1,Str2->D
C'est la virgule qui bloque.

En plus expr(Str1)->Str1 on peut pas faire.

vii autant pour moi j'ai interprété comme A*B

expr(Str1) retourne une expression pas une chaine ^^

dans ce cas va falloir convertir une expression en chaine
on peut le faire chiffre à chiffre puisque ce sont que des entiers

Bon me demande pas d'où vient cette ligne, moi non plus j'ai pas compris, mais pour convertir un nombre en chaine ça donne (pour nombre différent de 0)

Code:

" ->Str1
For(Z,1,int(log(N)+1 //N est ton nombre
int(10fPart(N/10^(int(2-Z+log(X
Str1+sub("0123456789",Ans+1,1->Str1
End
sub(Str1,2,length(Str1)-1->Str1

Donc le truc serait de convertir a et b en chaine grâce à ça
calculer (a+b)², le convertir également mais dans une autre chaine
puis comparer les 2 chaines

(juste pour savoir ... ca sert a quoi ? ^^)

ça doit encore être un problème de terminale...

Non pas du tout.

arf c'est pour quoi alors ? ^^

Pour trouver tout les nombres de 1 à 100 qui vérifient cette condition.

ok.

ouia, mais l'intéret est assez limité quand meme
bon c'est pas grave ... ^^

Sinon y a ça, qui est plus rapide :

code a écrit:

{B,0->LTEMP1
{0,B->LTEMP2
LinReg(a+bx) LTEMP1,LTEMP2,Y1
Equ>String(Y1 ,Str1
sub(Str1,1,length(Str1)-4->Str1
DelVar LTEMP1
DelVar LTEMP2
DelVar Y1

Vous rentrez le nombre B, ça le met dans la chaine Str1

Pourquoi vous fermez pas tout le temps les parenthèses et les crochets?

Parce que ça prend de la place inutile....
Et qu'une T.I. en a pas beaucoup, alors sur le long terme, ça fait une sacrée économie

Et ça marche quand même?

oui

Ahhhh...
Je me demande si ça marche aussi sur ma TI-82 ou sur les 68k...

M@D>oui (c'était mon code d'ailleurs :p) mais ça efface l'écran à chaque fois donc faudra sauver l'écran, mais d'un autre côté ça marche pour tout nombre
à univ' d'utiliser la bonne méthode

(je lui ai passé le programme hier soir)

ton code? ah zut je savais pas que tu l'avais déjà dit... sry

^^ ça vient de tibank :)

ProgVal a écrit:

Ahhhh...
Je me demande si ça marche sur les 68k...

ya déja la fonction string( ...

ouép

(ya déja eu un topic, sur ti-bank ^^)

vii

c'est pour ca que j'ai su qu'il y avait cette commande ^^ lol

string ?