π
<-
Chat plein-écran
[^]

Correction algo exo 4 Spé BAC S 2016, Centres Etrangers

Discussions scientifiques et scolaires

Correction algo exo 4 Spé BAC S 2016, Centres Etrangers

Message non lude critor » 09 Juin 2016, 18:29

Correction algorithme exercice n°4 Spécialité du sujet de Maths du BAC S de juin 2016 des Centres Etrangers.


Question B)2)a) :
Pour compléter le tableau, rajoutons une instruction affichant l'état des variables en fin de boucle et programmons l'algorithme sur notre calculatrice graphique :

Algorithme
Programme
Code: Tout sélectionner
Variables :
   a, u et r sont des nombres
   (a est naturel et premier avec 26)
Traitement :
   Lire a
   u prend la valeur 0
   r prend la valeur 0
   Tant que r≠1
      u prend la valeur u+1
      r prend le reste de la division de u×a par 26
      Afficher u et r
   Fin du Tant que
Sortie :
   Afficher u
Code: Tout sélectionner
Prompt A
0→U
0→R
While R≠1
   U+1→U
   reste(U*A,26→R
   Disp {U,R}
End
U

Code: Tout sélectionner
Prompt A
0→U
0→R
While R≠1
   U+1→U
   remainder(U*A,26→R
   Disp {U,R}
End
U

Code: Tout sélectionner
Define ce2016ss(a)=
Func
   Local u,r
   0→u
   0→r
   While r≠1
      u+1→u
      mod(u∙a,26)→r
      Disp u,r
   EndWhile
   Return u
EndFunc
Code: Tout sélectionner
?→A
0→U
0→R
While R≠1
   U+1→U
   MOD(U×A,26)→A
   Print {U,R}
WhileEnd
U

Code: Tout sélectionner
Input a
0⇒u
0⇒r
While r≠1
   u+1⇒u
   mod(u*a,26)⇒r
   Print {u,r}
WhileEnd
Print u
Code: Tout sélectionner
EXPORT CE2016SS(A)
BEGIN
   U:=0;
   R:=0;
   WHILE R≠1 DO
      U:=U+1;
      R:=U*A MOD 26;
      PRINT({U,R})
   END;
   PRINT(U)
END;



D'où la trace ainsi complétée :

u012345
r021161161
Image
Avatar de l’utilisateur
critorAdmin
Niveau 19: CU (Créateur Universel)
Niveau 19: CU (Créateur Universel)
Prochain niv.: 42.1%
 
Messages: 41493
Images: 14562
Inscription: 25 Oct 2008, 00:00
Localisation: Montpellier
Genre: Homme
Calculatrice(s):
MyCalcs profile
YouTube: critor3000
Twitter/X: critor2000
GitHub: critor

Retourner vers Maths, physique, informatique et autre...

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 8 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
1330 utilisateurs:
>1287 invités
>39 membres
>4 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)