programme pascal qui d'affiche un triangle Fermé

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 isocèle formé d'étoiles de n ligne  (n = donné  par le clavier ) 
un exemple pour comprendre 
 n=8

             *
           ***  
         *****
       *******
     *********
   ***********
 *************
***************   
 


s'il vous plaie j'ai besoin de votre aide et merci 
votre nouveau ami mam :(

chrislains · Accepted Answer

bjr jesper k ceci va taider c le programme

ligne:integer;
a, b: integer;
begin
writeln('nbre ligne'); read(ligne);
for a:=1 to ligne do 
 begin
   for b:=1 to a do 
    write('*');
    writeln;
    end
end.


jespere k c pas trop trop tard

en revange je recherche comment faire la figure ci dessous
     *
    *  *
**      **
   *      *
        *

KX · Answer

Tu dois utiliser une boucle (ou de la récursivité), regarde ce cours :
https://pascal.developpez.com/cours/cyberzoide/chap6.php3

laguchori · Answer

bonsoir voila ce que tu veux
ligne:integer; 
a, b: integer; 
begin 
writeln('nbre ligne un nombre impaire'); read(ligne); 
for a:=1 to  (ligne div 2 )+1  do 
begin 
for b:=1 to a do 
write('*'); 
writeln; 
end;
for k:=ligne div2 +2 to ligne do
begin
for i:=ligne div 2  downto 1 do
write('*');
writeln;

end ;
end.

KX · Answer

Voici pour les "losanges" même si ça n'en est pas vraiment...

program losange;

procedure f(n:integer);
var i:integer;
begin
     for i:=1 to n do
         write(' ');
     write('*');
end;

procedure g(n,nmax:integer);
begin
     f(nmax-n);
     f(2*n);
     writeln;
end;

procedure h(n,nmax:integer);
begin
     if (n<nmax)
     then begin
          g(n,nmax);
          h(n+1,nmax);
          g(n,nmax);
          end
     else g(n,nmax);
end;

var n:integer;
BEGIN
     for n:=0 to 5 do
     begin
          writeln('n=',n);
          h(0,n);
          writeln;
     end;
END.

Programme pascal qui d'affiche un triangle

4 réponses

Discussions similaires