Procédure récursive

xman -
xman - 7 nov. 2012 à 13:24

je n'arrive pas a transformer cette procédure en une procédure récursive , pouvez vous m'aidez s'il vous plait. merci d'avance
procedure affiche;
var
a,b:integer;
begin
for a:=0 to 3 do
for b:=0 to 9 do
writeln(a*10+b);
end;

Afficher la suite

A voir également:

1 réponse

Réponse 1 / 1

KX Messages postés 19031 Statut Modérateur 3 020

Et qu'est-ce que tu as fait pour l'instant ?

xman

j'ai pas pu , je ne comprends pas comment faire le passage récursif

KX Messages postés 19031 Statut Modérateur 3 020

Il faut essayer... ça ne va pas se faire tout seul.
Déjà il faut enlever tes deux boucles, sinon c'est itératif.
Ensuite comme il te faudra quand même des valeurs de a et b, tu devras les passer en paramètres.

procedure afficheRecursif(a,b:integer)
begin
    // ...
    writeln(a*10+b);
    // ...
end;

xman

if (a>=0) and (a<=3)then
if (b>=0) and(b<=9)then
writeln(a*10+b);
afficherecursif(a+1,b+1);

c'est comme ça ?

KX Messages postés 19031 Statut Modérateur 3 020

Ce sera quelque chose dans ce genre là, mais là tu incrémentes a et b en même temps, et ça ne correspond pas à l'imbrication des boucles que tu avais en itératif.

xman

svp aidez moi encore une demi heure et je passe mon examen ça sera cette procédure

Discussions similaires

Commande - “grep” récursif

le frigo ne marche pas....

Solution : Point d'entrée introuvable dans KERNEL32.dll

Internat nourriture

Point d'entrée de procédure introuvable dans la bibliothèque de liens dynamiques

Discussions similaires

Newsletters