Bonjour, je cherche à realiser un programme sous ADA me permmettant de realiser une pyramide comme celle ci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
   1
             232
           3 4543
         4567654
       567898765
     67890109876
   7890123210987
 890123454321098
90123456765432109
Les "-" sont en fait des espaces.


j'ai réalisés plusieurs procedure

D'abord celle-ci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
PROCEDURE Espace IS 
 
Nb: Integer;
I: Integer; 
 
BEGIN 
 
Nb:=1;
 
while I<=Nb
LOOP Put(' ');
END LOOP;
End;
Puis ces deux autres :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PROCEDURE Nombre_Croissant IS 
 
Nb: Integer;
I: Integer;
Chiffre: Integer;
Nombre: Integer; 
 
BEGIN 
 
Nombre:=Nb;
WHILE Nombre<=(2*Nb)-1
LOOP Chiffre:=Nombre rem 10;
Put(Chiffre);
Nombre:=Nombre+1;
END LOOP;
end;
Puis celle des nombres decroissant:




Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PROCEDURE Nombre_Decroissant IS
 
 
 
Nb: Integer;
I: Integer;
Chiffre: Integer;
Nombre: Integer;
 
 
 
BEGIN 
 
Nombre:=Nb;
WHILE Nombre<=2*(Nb-1)
LOOP Chiffre:=Nombre rem 10;
Put(Chiffre);
Nombre:=Nombre-1;
END LOOP;
end;
Mais voila je n'arrive pas organiser le programme tout entié si quelq'un pouvais m'aider je lui en serait tres reconnaisant.
Merci d'avance!