π
<-
Chat plein-écran
[^]

Correction algo BAC S obligatoire 2015 (Polynésie - juin)

Discussions scientifiques et scolaires

Correction algo BAC S obligatoire 2015 (Polynésie - juin)

Message non lude critor » 13 Juin 2015, 18:13

Correction algo exercice n°5 Obligatoire
(suites + algo)
du sujet de Maths du BAC S 2015 en Polynésie.

Question A)1)

Il s'agit de calculer la somme des premiers termes d'une suite (vn) définie à partir du rang n=1.
Nous commençons donc par initialiser la variable
v
prenant la valeur du terme de la suite à v1=ln(2), et la variable
S
destinée à recevoir la somme à v1 :
Code: Tout sélectionner
v prend la valeur ln(2)
S prend la valeur v


Comme le terme v1 a déjà été sommé, il ne reste plus qu'à taiter n-1 termes : v2 jusqu'à vn. On peut donc prendre 2 et
n
comme bornes de la boucle Pour :
Code: Tout sélectionner
Pour k variant de 2 à n faire
   ...
FinPour


Enfin, au sein de la boucle Pour, il reste à effectuer l'affectation récurrente permettant d'obtenir le terme suivant, et à le rajouter à la somme :
Code: Tout sélectionner
v prend la valeur ln(2-exp(-v))
S prend la valeur s+v


Question A)2)

La question fournissant un tableau de valeurs produit par l'algorithme, on peut programmer ce dernier sur notre calculatrice graphique afin de vérifier sa correction :

Algorithme
Programme
Code: Tout sélectionner
Variables :
   n, k entiers
   S, v réels
Initialisation :
   Saisir la valeur de n
   v prend la valeur ln(2)
   S prend la valeur v
Traitement :
   Pour k variant de 2 à n faire
   |   v prend la valeur ln(2-exp(-v))
   |   S prend la valeur S+v
   Fin du tant que
   Afficher S
Code: Tout sélectionner
Prompt N
ln(2)→V
V→S
For(K,2,N
   ln(2-e^(-V))→V
   S+V→S
End
arrondir(S,1

Code: Tout sélectionner
Prompt N
ln(2)→V
V→S
For(K,2,N
   ln(2-e^(-V))→V
   S+V→S
End
round(S,1

Code: Tout sélectionner
Define poly2015s(n)=
Func
   Local v,s,k
   ln(2)→v
   v→s
   For k,2,n
      ln(2-exp(-v))→v
      s+v→s
   EndFor
   Return s
EndFunc
Code: Tout sélectionner
?→N
ln 2→V
V→S
For 2→K To N
   ln (2-e^-V)→V
   S+V→S
Next
S

Code: Tout sélectionner
Input n
ln(2)⇒v
v⇒s
For 2⇒k To n
   ln(2-e^(-v))⇒v
   s+v⇒s
Next
Print s
Code: Tout sélectionner
EXPORT poly15s(N)
BEGIN
   V:=LN(2);
   S:=V;
   FOR K FROM 2 TO N DO
      V:=LN(2-e^(-V));
      S:=S+V;
   END;
   ROUND(S,1);
END;



Le tableau de valeurs fourni permet certes de conjecturer que la suite (Sn) est croissante, et que sa croissance est de plus en plus faible.
Toutefois, il ne permet pas de constater de convergence. On peut donc conjecturer que la suite (Sn) diverge vers +∞.
Image
Avatar de l’utilisateur
critorAdmin.
Niveau 18: DC (Deus ex Calculatorum)
Niveau 18: DC (Deus ex Calculatorum)
Prochain niv.: 83.5%
 
Messages: 31533
Images: 7733
Inscription: 25 Oct 2008, 00:00
Localisation: Montpellier
Genre: Homme
Calculatrice(s):
Classe: Lycée
YouTube: critor3000
Twitter: critor2000
Facebook: critor.ti

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

Qui est en ligne

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

Campagne de dons
Pour nous aider à financer nos déplacements sur les salons/congrès qui vous donnent du contenu exclusif

Vous aurez droit aux avantages VIP et des goodies !
4.7%
-
Rechercher
-
Sujets à la une
Avantages VIP et goodies pour les donateurs !
Offre TI-Planet/Jarrety pour avoir la TI-83 Premium CE avec son chargeur pour 79,79€ port inclus !
Offre TI-Planet/Jarrety pour avoir la TI-Nspire CX CAS à seulement 130€ TTC port inclus!
Jailbreake ta TI-Nspire avec Ndless et profite des meilleurs jeux et applications !
1234
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...

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 
-
Stats.
348 utilisateurs:
>323 invités
>20 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)