π
<-
Chat plein-écran
[^]

Correction algo exo 4 BAC ES/L, Inde, avril 2016

Discussions scientifiques et scolaires

Correction algo exo 4 BAC ES/L, Inde, avril 2016

Message non lude critor » 21 Avr 2016, 12:43

Correction algo exercice n°4 Obligatoire du sujet de Maths du BAC ES/L d'avril 2016 en Inde.

Question 2)a)
On nous demande de compléter une sorte de trace de l'algorithme, ici un tableau avec l'état de deux variables et d'un test à chaque itération de la boucle tant que.
Il est très facile d'obtenir cela en programmant l'algorithme sur la calculatrice, et en y rajoutant une simple instruction affichant ce qui nous est demandé en fin de boucle.
Voici les programmes pour calculatrices graphiques actuelles :


Algorithme
Programme
Code: Tout sélectionner
Variables :
   n est un entier naturel
   u est un nombre réel
Traitement :
   Affecter à u la valeur 5700
   Affecter à n la valeur 0
   Tant que u>4500 faire
      u prend la valeur 1,015×u-300
      n prend la valeur n+1
      Afficher u, n et u>4500
   Fin Tant que
Sortie :
   Afficher n
Code: Tout sélectionner
5700→U
0→N
While U>4500
   1.015U-300→U
   N+1→N
   Disp {arrondir(U,2),N,U>4500
End
N

Code: Tout sélectionner
5700→U
0→N
While U>4500
   1.015U-300→U
   N+1→N
   Disp {round(U,2),N,U>4500
End
N

Code: Tout sélectionner
Define indeso16()=
Func
   Local u,n
   5700→u
   0→n
   While u>4500
      1.015∙u-300→u
      n+1→n
      disp round(u,2),n,u>4500
   EndWhile
   Return n
EndFunc
Code: Tout sélectionner
5700→U
0→N
While U>4500
   1.015U-300→U
   N+1→N
   {U,N,U>4500}◢
WhileEnd
N

Code: Tout sélectionner
SetDecimal
5700⇒u
0⇒n
While u>4500
   1.015u-300⇒u
   N+1⇒N
   Print {u,n,judge(u>4500)}
WhileEnd
Print n
Ne pas oublier le 'SetDecimal' en début de programme,
pour obtenir les résultats en écriture décimale.
Code: Tout sélectionner
EXPORT INDESO16()
BEGIN
   U:=5700;
   N:=0;
   WHILE U>4500 DO
      U:=1.015*U-300;
      N:=N+1;
      PRINT({ROUND(U,2),N,U>4500})
   END;
   PRINT(N)
END;


D'où la réponse affichée qu'il n'y a plus qu'à recopier :


Valeur de u57005484,55267,785046,804822,504594,844363,76
Valeur de n0123456
u>4500 (vrai/faux)vraivraivraivraivraivraifaux


Question 2)b)
La valeur affichée en fin d'algorithme est la valeur de la variable n, et donc ici 6.

L'algorithme s'articule autour d'une boucle tant que, de condition de poursuite u>4500.
Il se termine donc sur la réalisation de la condition contraire : u≤4500.

Or, la variable n, initialisée à 0 et incrémentée de 1 dans la boucle est donc un indice.
De plus, la variable u, initialisée à u0=5700 et affectée dans la boucle avec la même relation de récurrence que la suite (un) contient donc la valeur du terme un

Cet algorithme détermine donc la plus petite valeur de n vérifiant un≤4500.
Image
Avatar de l’utilisateur
critorAdmin
Niveau 19: CU (Créateur Universel)
Niveau 19: CU (Créateur Universel)
Prochain niv.: 42.4%
 
Messages: 41498
Images: 14683
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 59 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.
1668 utilisateurs:
>1632 invités
>31 membres
>5 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)