FORUM MP | ADA : PYRAMIDE HELP

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

PYRAMIDE HELP
	Forum : ADA Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ ADA
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM ADA
	Page précedente	Page suivante

darknife
Nouveau membre

Inscrit : 30/09/2006
Messages : 2

#111397 Posté le 30/09/06 à 15:30

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

1
232
3 4543
4567654
567898765
67890109876
7890123210987
890123454321098
90123456765432109
0123456789876543210

j'ai réalisés plusieurs procedure

D'abord celle-ci:

PROCEDURE Espace IS

Nb: Integer;
I: Integer;

BEGIN

Nb:=1;

while I<=Nb
LOOP Put(' ');
END LOOP;
End;

Puis ces deux autres :
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:

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!

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

darknife
Nouveau membre

Inscrit : 30/09/2006
Messages : 2

#111398 Posté le 30/09/06 à 15:32

Mes espaces n'ont pas etai pri en compte devant la pyramide
en fait il y a 9 espace devant le 1, 8 devant le 2, 7 devant le 3, ect...

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.