%C% **Programme** %C% L'utilisateur entre un entier $n$, le programme fixe une variable $p=\text{\textquotedblleft}\text{premier}\text{\textquotedblright}$ : tant qu'on n'a pas trouvé de diviseur, on suppose que $n$ est premier. Et tant qu'on le suppose premier on continue à tester tous les diviseurs possibles de $2$ à $\sqrt{n}$. %C% **Variables** %C% $n$ un entier donné par l'utilisateur $p=n$ $i$ un entier qui va prendre successivement toutes les valeurs de $2$ à $\sqrt{n}$ %C% **Algorithme** %C% |Demander $n$ |$p=n$ |$i=2$ |Tant que $p=n$ et $i\le\sqrt{n}$ <<((auto,-20,0,-20,30))|Si $\dfrac{n}{i}=\text{Int}\dfrac{n}{i}$ alors :>> <<((auto,-20,0,-20,60))|$p$ devient $i$>> <<((auto,-20,0,-20,60))__ainsi, le **Tant que** ne recommencera pas__ >> <<((auto,-20,0,-20,60))|Afficher $i$>> |Si $p=n$ __cela signifie que le programme n’a pas trouvé de diviseur__ <<((auto,-20,0,-20,30))|Afficher $\text{\textquotedblleft}p\ \text{est premier}\text{\textquotedblright}$>> |Sinon <<((auto,-20,0,0,30))|Afficher $\text{\textquotedblleft}\text{Voici un diviseur de}\ p\text\{\textquotedblright}$>> %C% **Programme TI** %C% <<((auto,0,0,0,-50))[IMG]((60)) ![Alt texte](https://images.schoolmouv.fr/test-de-primalite-ti-copie.png) [/IMG]>> * [BUTC]prgm[/BUTC] [BUTC]▷[/BUTC] « E/S » [BUTC]2[/BUTC] « **Prompt** » [BUTC]alpha[/BUTC] [BUTC]log[/BUTC] « **N** »((bulle,1)) * [BUTC]alpha[/BUTC][BUTC]log[/BUTC] « **N** » [BUTC]sto ➔[/BUTC] « **➔** » [BUTC]alpha[/BUTC][BUTC]8[/BUTC] « **P** »((bulle,2)) * [BUTC]2[/BUTC] [BUTC]sto ➔[/BUTC] « **➔** » [BUTC]alpha[/BUTC] [BUTC] $x^2$ [/BUTC] « **I** »((bulle,3)) * [BUTC]prgm[/BUTC] [BUTC]5[/BUTC] « **While** » [BUTC]alpha[/BUTC][BUTC]8[/BUTC] « **P** » [BUTC]2nde[/BUTC] [BUTC]maths[/BUTC] [BUTC]1[/BUTC] « **=** » [BUTC]alpha[/BUTC][BUTC]log[/BUTC] « **N** » [BUTC]2nde[/BUTC] [BUTC]maths[/BUTC] [BUTC]▷[/BUTC] « LOGIQUE » [BUTC]1[/BUTC] « **et** » [BUTC]alpha[/BUTC] [BUTC] $x^2$ [/BUTC] « **I** » [BUTC]2nde[/BUTC] [BUTC]maths[/BUTC] [BUTC]6[/BUTC] « $\le$ » [BUTC]2nde[/BUTC] [BUTC] $x^2$ [/BUTC] « **√(** » [BUTC]alpha[/BUTC][BUTC]log[/BUTC] « **N** » [BUTC])[/BUTC]((bulle,4)) * [BUTC]prgm[/BUTC] [BUTC]1[/BUTC] « **If** » [BUTC]alpha[/BUTC] [BUTC]log[/BUTC] « **N** » [BUTC]alpha[/BUTC] [BUTC] $f(x)$ [/BUTC] [BUTC]1[/BUTC] « **/** » [BUTC]alpha[/BUTC] [BUTC] $x^2$ [/BUTC] « **I** » [BUTC]2nde[/BUTC] [BUTC]maths[/BUTC] [BUTC]1[/BUTC] « **=** » [BUTC]maths[/BUTC] [BUTC]▷[/BUTC] [BUTC]3[/BUTC] « **ent(** » [BUTC]alpha[/BUTC] [BUTC]log[/BUTC] « **N** » [BUTC]alpha[/BUTC] [BUTC] $f(x)$ [/BUTC] [BUTC]1[/BUTC] « **/** » [BUTC]alpha[/BUTC] [BUTC] $x^2$ [/BUTC] « **I** » [BUTC])[/BUTC]((bulle,5)) * [BUTC]prgm[/BUTC] [BUTC]2[/BUTC] « **Then** »((bulle,6)) * [BUTC]alpha[/BUTC] [BUTC] $x^2$ [/BUTC] « **I** » [BUTC]sto ➔[/BUTC] « **➔** » [BUTC]alpha[/BUTC][BUTC]8[/BUTC] « **P** »((bulle,7)) * [BUTC]prgm[/BUTC] [BUTC]7[/BUTC] « **End** »((bulle,8)) * [BUTC]1[/BUTC] [BUTC]+[/BUTC] [BUTC]alpha[/BUTC] [BUTC] $x^2$ [/BUTC] « **I** » [BUTC]sto ➔[/BUTC] « **➔** » [BUTC]alpha[/BUTC] [BUTC] $x^2$ [/BUTC] « **I** »((bulle,9)) * [BUTC]prgm[/BUTC] [BUTC]7[/BUTC] « **End** »((bulle,10)) * [BUTC]prgm[/BUTC] [BUTC]1[/BUTC] « **If** » [BUTC]alpha[/BUTC][BUTC]8[/BUTC] « **P** » [BUTC]2nde[/BUTC] [BUTC]maths[/BUTC] [BUTC]1[/BUTC] « **=** » [BUTC]alpha[/BUTC][BUTC]log[/BUTC] « **N** »((bulle,11)) * [BUTC]prgm[/BUTC] [BUTC]2[/BUTC] « **Then** »((bulle,12)) * [BUTC]prgm[/BUTC] [BUTC]▷[/BUTC] « E/S » [BUTC]3[/BUTC] « **Disp** » [BUTC]2nde[/BUTC] [BUTC]alpha[/BUTC] « verr-A » [BUTC]+[/BUTC] [BUTC]8[/BUTC] [BUTC] $\times$ [/BUTC] [BUTC]sin[/BUTC] [BUTC] $\div$ [/BUTC] [BUTC] $x^2$ [/BUTC] [BUTC]sin[/BUTC] [BUTC] $\times$ [/BUTC] [BUTC]+[/BUTC] « **"PREMIER"** » ((bulle,13)) * [BUTC]prgm[/BUTC] [BUTC]3[/BUTC] « **Else** »((bulle,14)) * [BUTC]prgm[/BUTC] [BUTC]▷[/BUTC] « E/S » [BUTC]3[/BUTC] « **Disp** » [BUTC]2nde[/BUTC] [BUTC]alpha[/BUTC] « verr-A » [BUTC]+[/BUTC] [BUTC]6[/BUTC] [BUTC]7[/BUTC] [BUTC] $x^2$ [/BUTC] [BUTC]prgm[/BUTC] [BUTC] $x^2$ [/BUTC] [BUTC]0[/BUTC] [BUTC]5[/BUTC] [BUTC]log[/BUTC] [BUTC]0[/BUTC] [BUTC] $x^{-1}$ [/BUTC] [BUTC] $x^2$ [/BUTC] [BUTC]6[/BUTC] [BUTC] $x^2$ [/BUTC] [BUTC]ln[/BUTC] [BUTC]sin[/BUTC] [BUTC]5[/BUTC] [BUTC] $\times$ [/BUTC] [BUTC]+[/BUTC] « **"VOICI UN DIVISEUR"** »((bulle,15)) * [BUTC]prgm[/BUTC] [BUTC]▷[/BUTC] « E/S » [BUTC]3[/BUTC] « **Disp** » [BUTC]alpha[/BUTC][BUTC]8[/BUTC] « **P** »((bulle,16)) **Remarque :** Il faut appuyer sur la touche [BUTC]enter[/BUTC] à chaque retour à la ligne.