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: Nieme terme d'une suite
 
 
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 -> Récursivité
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: Mer 26 Nov - 13:21 (2008)    Sujet du message: Exercice: Nieme terme d'une suite Répondre en citant

PublicitéSupprimer les publicités ?
Nième terme d'une suite


* Ecrire un programme modulaire qui permet de :
ü  Saisir un entier N .
ü  Calculer et afficher le Nième terme de la suite définie par : 

         U0 = 1/2
         Un = 2 + √2Un-1

Vous devez utilisez un module récursif.
* Traduire le programme en PASCAL


 
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: Mer 26 Nov - 13:21 (2008)    Sujet du message: Exercice: Nieme terme d'une suite Répondre en citant

SOLUTION_______________________


program Exercice_13 ;
uses  wincrt ;
var
n:integer ;
 
{ ============  CORPS DE LA PROCEDURE SAISIR  ===================}
 
procedure  saisir (var n:integer);
begin
repeat
writeln('donner un entier');
readln(n);
until n>=0;
End;
 
{ ============  CORPS DE LA FONCTION SUITE  ===================}
 
function suite(n:integer):real;
begin
if (n=0)  then suite:=1/2
else suite:= 2 + sqrt(2) * suite(n-1);
End;
 
{ ============  CORPS DE PROGRAMME PRINCIPAL  ===================}
 
begin
saisir(n);
writeln(' La somme des termes est: ',suite(n) :8:2);
End.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 23:19 (2016)    Sujet du message: Exercice: Nieme terme d'une suite

 
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 -> Récursivité 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