Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Février 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728     
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 3 (Récursivité)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin


Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Exercice 3 (Récursivité)   Ven 18 Mar - 2:28

Exercice 3

Soit la suite définit par :

u0=1

u1=1

Un+2=Un+1+Un pour n entier positif

Ecrire un programme qui demande un entier n positif (> 1) et affiche la valeur de Un en utilisant une fonction récursive pour le calcul ...

réponse

- Calcul du terme Un de la suite de Fibonacci

- - à l'aide d'une fonction récursive

Code:
procedure Suite ;

var  N:integer;

function fib(n : integer) : longint;
begin
    if n <= 2 then fib := 1
    else fib := fib(n-2) + fib(n-1);
end;
begin

write('Donnez un entier > 1 -> ');

read(N);

write('U[sub]n[/sub] vaut ');write(Fibo(N),2);

end.
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Exercice 3 (Récursivité)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: