%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 Casio** %C% <<((auto,0,0,0,-70))[IMG]((60)) ![Alt texte](https://images.schoolmouv.fr/test-de-primalite-casio.png) [/IMG]>> * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F4[/BUTC] « **?** » [BUTC]**➔** [/BUTC][BUTC]ALPHA[/BUTC][BUTC]8[/BUTC] « **N** »((bulle,1)) * [BUTC]ALPHA[/BUTC][BUTC]8[/BUTC] « **N** » [BUTC]**➔** [/BUTC][BUTC]ALPHA[/BUTC][BUTC]4[/BUTC] « **P** »((bulle,2)) * [BUTC]2[/BUTC][BUTC]**➔** [/BUTC][BUTC]ALPHA[/BUTC][BUTC]([/BUTC] « **I** »((bulle,3)) * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F1[/BUTC] « COM » [BUTC]F6[/BUTC] « ▷ » [BUTC]F6[/BUTC] « ▷ » [BUTC]F1[/BUTC] « **Whle** » [BUTC]ALPHA[/BUTC][BUTC]4[/BUTC] « **P** » [BUTC]SHIFT[/BUTC][BUTC].[/BUTC] « **=** » [BUTC]ALPHA[/BUTC][BUTC]8[/BUTC] « **N** » [BUTC]OPTN[/BUTC][BUTC]F6[/BUTC] « ▷ » [BUTC]F6[/BUTC] « ▷ » [BUTC]F4[/BUTC] « LOGIC » [BUTC]F1[/BUTC] « **And** » [BUTC]ALPHA[/BUTC][BUTC]([/BUTC] « **I** » [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F6[/BUTC] « ▷ » [BUTC]F3[/BUTC] « REL » [BUTC]F6[/BUTC] « $\le$ » [BUTC]SHIFT[/BUTC][BUTC] $x^2$ [/BUTC] « **√** » [BUTC]ALPHA[/BUTC][BUTC]8[/BUTC] « **N** » ((bulle,4)) * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F1[/BUTC] « COM » [BUTC]F1[/BUTC] « **If** » [BUTC]ALPHA[/BUTC][BUTC]8[/BUTC] « **N** » [BUTC]$\dfrac{\blacksquare}{\square}$[/BUTC][BUTC]ALPHA[/BUTC][BUTC]([/BUTC] « **I** » [BUTC]SHIFT[/BUTC][BUTC].[/BUTC] « **=** » [BUTC]ALPHA[/BUTC][BUTC]8[/BUTC] « **N** » [BUTC]OPTN[/BUTC][BUTC]F6[/BUTC] « ▷ » [BUTC]F4[/BUTC] « NUM » [BUTC]F2[/BUTC] « **Int** » [BUTC]([/BUTC][BUTC]ALPHA[/BUTC][BUTC]8[/BUTC] « **N** » [BUTC]$\dfrac{\blacksquare}{\square}$[/BUTC][BUTC]ALPHA[/BUTC][BUTC]([/BUTC] « **I** » [BUTC])[/BUTC] ((bulle,5)) * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F1[/BUTC] « COM » [BUTC]F2[/BUTC] « **Then** » [BUTC]ALPHA[/BUTC][BUTC]([/BUTC] « **I** » [BUTC]**➔** [/BUTC][BUTC]ALPHA[/BUTC][BUTC]4[/BUTC] « **P** » ((bulle,6)) * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F1[/BUTC] « COM » [BUTC]F4[/BUTC] « **I-End** » ((bulle,7)) * [BUTC]1[/BUTC][BUTC]+[/BUTC][BUTC]ALPHA[/BUTC][BUTC]([/BUTC] « **I** » [BUTC]**➔** [/BUTC][BUTC]ALPHA[/BUTC][BUTC]([/BUTC] « **I** » ((bulle,8)) * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F1[/BUTC] « COM » [BUTC]F6[/BUTC] « ▷ » [BUTC]F6[/BUTC] « ▷ » [BUTC]F2[/BUTC] « **WEnd** » ((bulle,9)) * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F1[/BUTC] « COM » [BUTC]F1[/BUTC] « **If** » [BUTC]ALPHA[/BUTC][BUTC]4[/BUTC] « **P** » [BUTC]SHIFT[/BUTC][BUTC].[/BUTC] « **=** » [BUTC]ALPHA[/BUTC][BUTC]8[/BUTC] « **N** » ((bulle,10)) * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F1[/BUTC] « COM » [BUTC]F2[/BUTC] « **Then** » [BUTC]SHIFT[/BUTC][BUTC]ALPHA[/BUTC][BUTC]$\times 10^x$[/BUTC][BUTC]4[/BUTC][BUTC]6[/BUTC][BUTC]cos[/BUTC][BUTC]7[/BUTC][BUTC]([/BUTC][BUTC]cos[/BUTC][BUTC]6[/BUTC][BUTC]$\times 10^x$[/BUTC] « **"PREMIER"** » ((bulle,11)) * [BUTC]SHIFT[/BUTC][BUTC]VARS[/BUTC][BUTC]F1[/BUTC] « COM » [BUTC]F3[/BUTC] « **Else** » [BUTC]SHIFT[/BUTC][BUTC]ALPHA[/BUTC] « $\fcolorbox{black}{white}{A}$-LOCK » [BUTC]$\times 10^x$[/BUTC][BUTC]2[/BUTC][BUTC]9[/BUTC][BUTC]([/BUTC][BUTC]ln[/BUTC][BUTC]([/BUTC][BUTC].[/BUTC][BUTC]1[/BUTC][BUTC]8[/BUTC][BUTC].[/BUTC][BUTC]sin[/BUTC][BUTC]([/BUTC][BUTC]2[/BUTC][BUTC]([/BUTC][BUTC]$\times$[/BUTC][BUTC]cos[/BUTC][BUTC]1[/BUTC][BUTC]6[/BUTC][BUTC]$\times 10^x$[/BUTC] « **"VOICI UN DIVISEUR"** » ((bulle,12)) * [BUTC]ALPHA[/BUTC][BUTC]4[/BUTC] « **P** »((bulle,13)) **Remarque :** Il faut appuyer sur la touche [BUTC]EXE[/BUTC] à chaque retour à la ligne.