Exercice 1
Ecrire une procédure qui affiche les entiers par ordre décroissant, de n jusqu’à 1. Proposer une solution itérative et une autre récursive.
voici une procedure iterative de cette exercice
program ex1;
uses wincrt;
var
n,i:integer;
procedure ordre (var n:integer);
begin
readln (n);
for i:= n downto 1 do
writeln (i);
end;
begin
ordre(n);
end.
voila un procedure recursive de cette exercice mais je crois ilya une faute dans la procedure Wink procedure ordre (var n:integer);
begin
readln (n);
if n=1 then
writeln (n)
else
writeln (n);
ordre (n-1);
end;
