next up previous contents index
suivant: Un exemple de fonction monter: Un exemple : le précédent: Traduction Xcas   Table des matières   Index

Traduction TI89/92

Voici la fonction crible :
- n est le paramètre de cette fonction.
- crible(n) est égal à la liste des nombres premiers inférieurs ou égaux à n.
:crible(n)
:Func
:local tab,prem,i,p
:newList(n)->tab
:newList(n)->prem
:seq(i,i,1,n) ->tab
:0 -> tab[1]
:2 -> p 
:While p*p <= n
:For i,p,floor(n/p)
:0 -> tab[i*p]
:EndFor
:p+1 -> p
:While p*p<= n and tab[p]=0
:p+1 -> p
:EndWhile
:EndWhile
:0 -> p
:For i,2,n
:If tab[i]!= 0 Then
:p+1 ->p
:i ->prem[p]
:EndIf
:EndFor
:Return left(prem,p)
:EndFunc


Documentation de giac écrite par Renée De Graeve