hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
exercice+correction
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Algorithmes récurrents
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 1 Déc - 17:47 (2009)    Sujet du message: exercice+correction Répondre en citant

PublicitéSupprimer les publicités ?
Exercice1:

Soit la suite (U) définie par:
Code:

          U0= 2
          U1= 3
          Un = Un-1+ 2*Un-2              pour tout n >= 2


En supposant que cette suite est croissante, écrire un programme permettant de lire un entier x (x > 2), de vérifier et d'afficher s'il est un terme de la suite U ou non. Dans l'affirmative afficher son rang.

Exercice 2:

Ecrire un programme qui permet de calculer puis d'afficher la racine carrée d'un réel positif x en utilisant la suite suivante:
Code:

          U0 = (1+x)/2
          Un+1 = (Un+ x/Un)/2


Il s'agit de calculer les premiers termes de cette suite jusqu'à ce que la différence entre deux termes successifs devient inferieur ou égale à 10^-4. Le dernier terme calculé est une valeur approchée de √x à 10^-4 près

Exercice 3:

La suite de Fabonacci est définie par :
Code:

          F0= 1
          F1= 1
          Fn= Fn-1 + Fn-2


Ecrire un programme qui permet de saisir un entier naturel n strictement superieur à 1 puis calculer et afficher, pour toutes les valeurs de i inferieur ou égales à n, les valeurs du rapport: Fi/Fi-1

Exercice 4:


Soit la suite (Pi), i impaire définie par:
Code:

          P1= 2
Pi = Pi-2 * (i-1)/i * (i+1)/i



Ecrire un programme qui permet de calculer et d'afficher les termes de la suite P jusqu'à ce que la différence entre deux termes consécutifs devient inferieure ou égale à 10-4

Exercice 5:

Sachant que sin(x) = x/1! - x3/3! + x5/5! - x7/7! + x9/9! - ... Pour x très proche de zéro
Ecrire un programme qui permet d'afficher sin(x) en utilisant la formule ci-dessus.
Le calcul s'arrête quand la différence entre deux termes consécutifs devient inferieure ou égale à 10^-4. la dernière somme calculée est une valeur approchée de sin(x).


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 1 Déc - 17:47 (2009)    Sujet du message: exercice+correction Répondre en citant

voila la correction des exercices 1 & 2

on commence par l'exercice 1:

Code:


program ex1;

uses wincrt;

var x,u,r:integer;









procedure saisie (var x:integer);

 begin

  repeat

    writeln ('saisir l''entier x');

    readln (x);

  until (x>2);

 end;





procedure calcul (x:integer; var
u,r:integer);

var uap,up:integer;

begin

r:=2;

up:=2;

u:= 3;

  repeat

    uap := up;

    up := u;

    u:= up+ 2 * uap;

    r:= r+1

  until (u>=x);

end;









begin

  saisie (x);

  calcul (x,u,r);

  if (x=r) then

      writeln (x,' un terme de la suite')

  else

      writeln (x,' n''est pas un terme de
la suite');

end.


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 1 Déc - 17:48 (2009)    Sujet du message: exercice+correction Répondre en citant

voici l'exercice 2:

Code:


program ex2;

uses wincrt;

var x,r:real;









procedure saisie (var x:real);

begin

  repeat

    writeln ('saisir un reel positif');

    readln (x);

  until (x>0);

end;





function racine (x:real):real;

var u,up:real;

begin

  u:= (1+x)/2;

    repeat

      up := u;

        u:= (up + x / up)/2;

    until (abs(u-up) <= 0.0001);

racine := u;

end;





begin

  saisie (x);

  r:= racine(x);

  writeln(r:5:2,' est la racine carée
de ',x:5:2);

end.



 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 1 Déc - 17:48 (2009)    Sujet du message: exercice+correction Répondre en citant

la solution de l'exersice N° 3


program ex3;
uses wincrt;

var
f0,f1,fn,i,n:integer;
procedure saisie(var n:integer);
begin
repeat
writeln('donner u, entier > 1');
readln(n);
until (n>1);
end;

procedure calcul(n:integer);
var i:integer;
begin
for i:=1 to n do
begin
fn:=f0+f1;
writeln('le ',i,' rapport est ',(fn/f1):0:2);
f0:=f1;
f1:=fn;
end;
end;
begin
f0:=1;
f1:=1;
saisie(n);
calcul(n);
end.


 
Revenir en haut
ayari.zohra


Hors ligne

Inscrit le: 09 Déc 2009
Messages: 4
Féminin
Point(s): 4
Moyenne de points: 0

Posté le: Jeu 14 Jan - 11:25 (2010)    Sujet du message: exercice+correction Répondre en citant

merci pour le partage

 
Revenir en haut
skilatchi


Hors ligne

Inscrit le: 20 Oct 2009
Messages: 6
Point(s): 8
Moyenne de points: 0

Posté le: Ven 15 Jan - 19:27 (2010)    Sujet du message: exercice+correction Répondre en citant

merci  Okay

 
Revenir en haut
mekkaoui_rakya
recent membre
recent membre

Hors ligne

Inscrit le: 15 Jan 2010
Messages: 11
Féminin
Point(s): 11
Moyenne de points: 0

Posté le: Ven 15 Jan - 20:18 (2010)    Sujet du message: exercice+correction Répondre en citant

c bien merci Wink

 
Revenir en haut
staticroof


Hors ligne

Inscrit le: 21 Nov 2009
Messages: 7
Point(s): 6
Moyenne de points: 0

Posté le: Ven 15 Jan - 22:27 (2010)    Sujet du message: exercice+correction Répondre en citant

merci beaucoup Okay

 
Revenir en haut
bhouss
recent membre
recent membre

Hors ligne

Inscrit le: 16 Avr 2009
Messages: 15
Masculin
Point(s): 23
Moyenne de points: 0

Posté le: Lun 18 Jan - 20:58 (2010)    Sujet du message: exercice+correction Répondre en citant

tunis merci

 
Revenir en haut
med_charfi


Hors ligne

Inscrit le: 17 Jan 2010
Messages: 4
Point(s): 4
Moyenne de points: 0

Posté le: Mar 19 Jan - 11:53 (2010)    Sujet du message: exercice+correction Répondre en citant

merci bq Okay Okay Okay Okay

 
Revenir en haut
taher05


Hors ligne

Inscrit le: 25 Mar 2010
Messages: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posté le: Jeu 25 Mar - 17:52 (2010)    Sujet du message: exercice+correction Répondre en citant

merci  Okay Okay Okay Okay

 
Revenir en haut
sofien


Hors ligne

Inscrit le: 19 Aoû 2010
Messages: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posté le: Jeu 19 Aoû - 15:01 (2010)    Sujet du message: exercice+correction Répondre en citant

merci         Okay Okay Okay     Okay Okay Okay    Okay Okay Okay

 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Sam 9 Oct - 15:00 (2010)    Sujet du message: exercice+correction Répondre en citant

Okay Okay Okay Okay Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
med_med


Hors ligne

Inscrit le: 12 Oct 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Mar 1 Mar - 11:14 (2011)    Sujet du message: exercice+correction Répondre en citant

merciiiiiiiiiiiiiiiiiiiiiii

 
Revenir en haut
emily


Hors ligne

Inscrit le: 08 Avr 2011
Messages: 6
Point(s): 6
Moyenne de points: 0

Posté le: Lun 11 Avr - 11:37 (2011)    Sujet du message: exercice+correction Répondre en citant

bravo, c'est très interessant Laughing

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 13:06 (2016)    Sujet du message: exercice+correction

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Algorithmes récurrents Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation