Dhifallah Fethi
Admin
Messages : 74
Date d'inscription : 02/03/2011
 | Sujet: Exercice 10 (Récursivité)  Ven 18 Mar - 5:18 | |
| Exercice 10
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
Réponse - Code:
-
program N_terme;
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. | |
|
Calendrier
