antar le 24/03/2009 à 21:45
un exemple
:ClrHome
:Input "A = ",A
:ClrHome
:If fPart A [différent de] 0 or abs A [différent de] A
:Then
:Output(3,2,"A N EST PAS UN")
:Output(5,2,"ENTIER NATUREL")
:Pause
:ClrHome
:Stop
:End
:0 -> E
:0 -> dim L5 (* pour les TI-82 STATS ":0 -> dim(L5)" *)
:iPart [Racine carré] A -> B
:For(C,1,B)
:A/C -> D
:If iPart D=D
:Then
:E+1 -> E
:E -> dim L5 (* pour les TI-82 STATS ":E -> dim(L5)" *)
:C -> L5(E)
:E+1 -> E
:E -> dim L5 (* pour les TI-82 STATS ":E -> dim(L5)" *)
-> L5(E)
:End
:End
:SortA(L5)
:Disp "RESULTAT :"
:Pause L5
:ClrHome
jaimerai savoir ou est la touche [racine carrér]
