Forum Imprimante

 Oublié Pass?
 Register
Rechercher
Voir: 706|Réponse: 1

Triangle

[Copier lien]

Post sur le : 2012-07-09 18:20:20 |Tout les posts
Bonjour
j'ai besoin de votre aide
je veux afficher ce triangle avec la méthode de matrice
         *
      * *
   * * *
* * * *
l'affichage est toujours comme ça :
     *
*     *
*     *
*     *
procedure creation(var m:mat;n:integer);
var
i,j:integer;
begin
m[1,n]:='*';
for i:=2 to n do
m[i,n]:='*';
i:=1;
n:=n-1;
repeat
repeat
inc(i);
m[i,n]:='*';
until(i>n);
dec(n);
until(n=1);
end;
Réponse

Accessoires Signaler

Post sur le : 2012-07-09 19:47:07 |Tout les posts
celle ci aussi ne marche pas
procedure creation(var m:mat;n:integer);
var
i,j:integer;
begin
for i:=1 to n do
m[i,n]:='*';
i:=1;
j:=n;
repeat
inc(j);
repeat
inc(i);
m[i,j]:='*';
until(i>n);
until(j>(2*n)-1);
end;
Réponse

Accessoires Signaler

Vous devez vous connecter d'abord connect | Register

Contact Us| Archive| Forum Imprimante

GMT+1, 2024-03-28 13:33

Powered by Discuz! 7.2

Release 20121101, © 2001-2024 Forum Imprimante.

Top