A voir également:
- écrire un program en Pascal: suite
- Turbo pascal - Télécharger - Édition & Programmation
- Ecrire en gras sur whatsapp - Guide
- My pascal - Télécharger - Édition & Programmation
- Écrire en majuscule - Guide
- Dev pascal - Télécharger - Édition & Programmation
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;
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;