Spé Terminale S - Adaptation d'un programme pour Nspire....

**AdRiWeB**

héhé j'avais commencé a faire un truc comme ca, je confirme c'est une prise de tête ;)

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...

**Bisam** · 14.8/20 à la 2ème épreuve de l'agreg 2000

Allez, je m'y colle... mais c'est bien pour faire plaisir.

Code:

primfact=func(n)
@ Copyright Bisam
local st,tmp,l1,l2,i,j,k
string(factor(n))&"*"->st
0->i
instring(st,"*")->j
while j<>0
i+1->i
left(st,j-1)&"^1"->tmp
mid(st,j+1)->st
instring(tmp,"^")->k
expr(left(tmp,k-1))->l1[i]
expr(mid(tmp,k+1))->l2[i]
instring(st,"*")->j
endwhile
{l1,l2}
endfunc

~~Bon, c'est tout de tête, sans vérification aucune et en 5 minutes, alors je ne garantis pas le résultat...~~
Maintenant, c'est garanti, ça marche sur les 68k... et très probablement aussi sur Nspire CAS.

PS : J'ai prévu que vous compreniez parfaitement ce que j'ai fait... mais ça, c'est une évidence, puisque mon code est parfaitement explicite ! (Notez par exemple les optimisations pour éviter d'avoir à faire plusieurs cas, etc...)

PPS : Maintenant, j'ai vérifié, optimisé un poil et du coup corrigé un léger bug (il fallait commencer à i=0 et non i)1 après l'optimisation, ou bien mettre le i+1->i un peu plus bas)