by meki » 09 May 2015, 16:12
ok merci,
J'ai trouver ce programme mais je ne sais pas si il est bien :
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)" *)
D -> L5(E)
End
End
SortA(L5)
Disp "RESULTAT :"
Pause L5
Clr
qu'en penses-tu ?
Last edited by meki on 09 May 2015, 16:18, edited 1 time in total.