écrire un program en Pascal: suite
DouSSà
-
soumia91 Messages postés 8 Statut Membre -
soumia91 Messages postés 8 Statut Membre -
écrire un programme en langage Turbo-Pascal permettant de calculer les termes d'une suite
Uo=1;U1=3
Un=(Un-1 +Un-2)*3
(et n-1 et n-2 sont des indice)
et mrci bcp
Uo=1;U1=3
Un=(Un-1 +Un-2)*3
(et n-1 et n-2 sont des indice)
et mrci bcp
1 réponse
-
on peut résoudre ce problème en utilisant une fonction récursive:
program suite;
function rec (n:integer):integer;
begin
if n=0 then
rec :=1;
else
begin
if n=1 then
rec :=3;
else
rec := (rec(n-1)+rec(n-2))*3;
end;
end;
var n : integer;
begin
writeln('faites entrer la borne de la limite ');
readln(n);
writeln('Resultat=',rec(n));
end;
