Simplification de racines carrées !

[crash_conan]

utilise Omnicalc !

[tama]

sinon suffit de trouver tous les multiples d'un nombre puis de chercher le plus grand carré (celui dont la racine fait un entier) de simplifier

Code: Select all

Input "nombre",N
ClrList L1
0-D
For(A,1,N
If not(fPart(N/A
Then
D+1-D
If D=1
Then
{A-L1
Else
augment(L1,{A-L1
End
End
End
For(A,dim(L1),1,-1
If not(fPart(V(L1(A
Then
L1(A-B
1-A
End
End
N/B-O
V(B)-B
Disp "V(N)=",B,"V(",O


testé et ça marche

[Mr. Crocodile]

quand tu me remontre cet exemple cela me fais penser que c'est la que j'avais vu ça!

merci quand meme ^^

en fait je n'avais jamais vu de programme qui simplifiait les racines carrées !

mais si tu retrouves ton prog envoie-le moi stp ?

de memoire c'est ça :

Code: Select all

2-I
1-X
Input "r(",A
While I²=A
If fpart(A/I²)=0
Then
A/I²-A
I*X-I
Else
I+1-I
End:End
Disp X,"r(",A


[tama]

En tout cas mon code il marche
(ça veut pas dire que le tien ne marche pas)

[Mr. Crocodile]

Il marche aussi le mien mais bon c'est assez lent tout de meme (pas de l'ASM). Je n'ai pas tester le tien tama. je n'ai meme pas eu le courage de me lancer dedan.

[Syfo]

moi aussi j'en ai fait un a la demande de Crash

[tama]

cool ça en fait 3 ^^

[crash_conan]

merci à vous tous !!!!!!!!!