program recursion_n_p;
var
i, j: integer;
procedure fonction (n, p: integer);
begin
writeln(n : 0);
if n <> p then
fonction(n + 1, p);
end; { Fin de
'fonction' }
begin
writeln('Exercice 3 a');
writeln;
writeln('n=');
readln(i);
repeat
writeln('p=');
readln(j);
until j > i;
writeln('Affichage des entiers compris entre ', i : 0, ' et
', j : 0);
fonction(i, j);
writeln('Fin du programme.');
writeln;
writeln('©2001 All Rights Reserved to
www.Software-DS.com');
{ ©2001 All
Rights Reserved to
http://www.Software-DS.com
06/11/01 }
end.
|