Un programme qui afiche un triangle isocèle
Mamoun Miladi
-
oumeima -
oumeima -
Bonjour,
salut a tous j'ai un problème dans un exercice dans mon livre
il me demande de faire un programme et d'enduire un analyse dans programme pascal qui permet d'affiché un triangle [COLOR="Black"]isocèle formé[/COLOR] d'étoiles de n ligne (n = donné par le clavier )
un exemple pour comprendre
n=8
*
***
*****
*******
*********
***********
*************
***************
il faut pas etres comme ca
*
**
***
****
*****
******
*******
*********
et merci pour tous
salut a tous j'ai un problème dans un exercice dans mon livre
il me demande de faire un programme et d'enduire un analyse dans programme pascal qui permet d'affiché un triangle [COLOR="Black"]isocèle formé[/COLOR] d'étoiles de n ligne (n = donné par le clavier )
un exemple pour comprendre
n=8
*
***
*****
*******
*********
***********
*************
***************
il faut pas etres comme ca
*
**
***
****
*****
******
*******
*********
et merci pour tous
3 réponses
-
"il faut pas etres comme ca" Nous ne comprenons pas, bien que je ne maitrise pas le pascal. D'abord on demande un triangle isocèle, et ceux représentés par des étoiles sont rectangles? De plus quel exemple des deux serait le bon?
-
program etoile;
uses wincrt;
var
u:integer;
i,j,n:integer;
begin
readln(n);
u:=1;
for i:=1 to n do
begin
for j:=1 to u do
write('*');
writeln;
u:=u+2;
end;
end. -
program triangle ;
uses wincrt ;
type
tab=array[1..14,1..14] of char ;
var
m :tab ;
i,j,n:integer ;
begin
write('entrer le taille') ;
read(n) ;
for i:=1to n do
begin
for j:=1to 2*n do
begin
if j in [n-i+1..n+i-1]
then m[i,j]:='*'
else m[i,j]:=' ' ;
write(m[i,j]);
end ;
writeln ;
end;
end.
