un programme qui afiche un triangle isocèle

Question

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 


Configuration: Windows XP / Safari 534.7

Rebornou · Answer

"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?

yassine · Answer

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.

oumeima · Answer

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.

Un programme qui afiche un triangle isocèle

3 réponses

Votre réponse

Discussions similaires

Newsletters