Procédure récursive
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;
procedure affiche;
var
a,b:integer;
begin
for a:=0 to 3 do
for b:=0 to 9 do
writeln(a*10+b);
end;
1 réponse
-
ModérateurEt qu'est-ce que tu as fait pour l'instant ?
-
-
ModérateurIl 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; -
-
-
-
