Cours et code réalisé par Vincent Maffet
Entrée : Saisir n (entier, n>2)
Traitement : Pour J alant de 1 à E(√n)
Si n/J=E(n/J)
alors afficher J et n/J
Fin Si
Fin Pour
Prompt N
For (J,1,int(√n))
If N/J=int(N/J)
Then
Disp J;N/J
Pause
End
End
Entrée : Saisir N (entier naturel)
Traitement : Pour J allant de 2 à E(√N)
Si J divise N
Alors afficher "non premier"
Stopper le programme
Fin Si
Fin Pour
Afficher "premier"
Prompt N
For (J,2,int(√N)
If N/J=int(N/J)
Then Disp "non premier"
Stop
End
End
Disp "premier"
Entrée : Saisir N (entier naturel, N≥2)
Traitement : D prend la valeur 2
Tant que n≠1
Tant que D divise N
Afficher D
N prend la valeur N/D
Fin Tant que
D prend la valeur D+1
Fin Tant que
Prompt N
2→D
While n≠1
While N/D=int(N/D)
Disp D
Pause
N/D→N
End
D+1→D
End
Entrée : Saisir A et B (A>B)
Traitement : Tant que b≠0
Q prend la valeur E(A/B)
R prend la valeur A-BxQ
A prend la valeur B
Fin Tant que
Afficher A
Prompt A,B
While B≠0
int(A/B)→Q
A-BxQ→R
B→A
R→B
End
Disp A
-
Partagez ce cours !
Suivez Vincent Maffet sur google + ( cours inspiré de celui fait par le professeur de la classe)