écrire un program en Pascal: suite
Fermé
DouSSà
-
3 mars 2011 à 19:31
soumia91 Messages postés 6 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 5 mars 2011 - 5 mars 2011 à 02:11
soumia91 Messages postés 6 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 5 mars 2011 - 5 mars 2011 à 02:11
A voir également:
- écrire un program en Pascal: suite
- Turbo pascal download - Télécharger - Édition & Programmation
- Ecrire en gras sur whatsapp - Guide
- Ecrire en miroir - Guide
- My pascal - Télécharger - Édition & Programmation
- Écrire en majuscule - Guide
1 réponse
soumia91
Messages postés
6
Date d'inscription
jeudi 2 avril 2009
Statut
Membre
Dernière intervention
5 mars 2011
5 mars 2011 à 02:11
5 mars 2011 à 02:11
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;