Médaille
N°1 pour apprendre & réviser du collège au lycée.
Test de primalité – Casio
Découvrez, sur SchoolMouv, des milliers de contenus pédagogiques, du CP à la Terminale, rédigés par des enseignants de l’Éducation nationale.
Les élèves de troisième, de première ou de terminale bénéficient, en plus, de contenus spécifiques pour réviser efficacement leur brevet des collèges, leur bac de français ou leur baccalauréat édition 2023.
Algorithme

Type de calculatrice

Casio

Prérequis

Pour tester si un entier nn est premier ou pas, on peut tester tous les entiers aa de 22 à n\sqrt{n}, et vérifier si na\dfrac{n}{a} est un nombre entier ou pas.

Description

Programme

L'utilisateur entre un entier nn, le programme fixe une variable p=“premier”p=\text{\textquotedblleft}\text{premier}\text{\textquotedblright} : tant qu'on n'a pas trouvé de diviseur, on suppose que nn est premier. Et tant qu'on le suppose premier on continue à tester tous les diviseurs possibles de 22 à n\sqrt{n}.

Variables

nn un entier donné par l'utilisateur

p=np=n

ii un entier qui va prendre successivement toutes les valeurs de 22 à n\sqrt{n}

Algorithme

|Demander nn
|p=np=n
|i=2i=2
|Tant que p=np=n et ini\le\sqrt{n}

|Si ni=Intni\dfrac{n}{i}=\text{Int}\dfrac{n}{i} alors :

|pp devient ii</span

>

ainsi, le Tant que ne recommencera pas

|Afficher ii</span

> |Si p=np=n
cela signifie que le programme n’a pas trouvé de diviseur

|Afficher p est premier”\text{\textquotedblleft}p\ \text{est premier}\text{\textquotedblright}</span

> |Sinon

|Afficher \text{\textquotedblleft}\text{Voici un diviseur de}\ p\text{\textquotedblright}</span

>

Programme Casio

Alt texte

  • SHIFTVARSF4 « ? » ALPHA8 « N »
  • ALPHA8 « N » ALPHA4 « P »
  • 2 ALPHA( « I »
  • SHIFTVARSF1 « COM » F6 « ▷ » F6 « ▷ » F1 « Whle » ALPHA4 « P » SHIFT. « = » ALPHA8 « N » OPTNF6 « ▷ » F6 « ▷ » F4 « LOGIC » F1 « And » ALPHA( « I » SHIFTVARSF6 « ▷ » F3 « REL » F6 « \le » SHIFT x2x^2 «  » ALPHA8 « N »
  • SHIFTVARSF1 « COM » F1 « If » ALPHA8 « N » \dfrac{\blacksquare}{\square}ALPHA( « I » SHIFT. « = » ALPHA8 « N » OPTNF6 « ▷ » F4 « NUM » F2 « Int » (ALPHA8 « N » \dfrac{\blacksquare}{\square}ALPHA( « I » )
  • SHIFTVARSF1 « COM » F2 « Then » ALPHA( « I » ALPHA4 « P »
  • SHIFTVARSF1 « COM » F4 « I-End »
  • 1+ALPHA( « I » ALPHA( « I »
  • SHIFTVARSF1 « COM » F6 « ▷ » F6 « ▷ » F2 « WEnd »
  • SHIFTVARSF1 « COM » F1 « If » ALPHA4 « P » SHIFT. « = » ALPHA8 « N »
  • SHIFTVARSF1 « COM » F2 « Then » SHIFTALPHA×10x\times 10^x46cos7(cos6×10x\times 10^x « "PREMIER" »
  • SHIFTVARSF1 « COM » F3 « Else » SHIFTALPHA « A\fcolorbox{black}{white}{A}-LOCK » ×10x\times 10^x29(ln(.18.sin(2(×\timescos16×10x\times 10^x « "VOICI UN DIVISEUR" »
  • ALPHA4 « P »

Remarque :

Il faut appuyer sur la touche EXE à chaque retour à la ligne.

Cours associés

Arithmétique et problèmes de codage Arithmétique et problèmes de codage (suite)