Chaine sous forme d'un triangle rectangle

Mahmoud -  
 Salem -
J'ai un probleme de pascal
Ecrire un programme qui permet de lire une chaine puis lafficher sous forme d'un triangle rectangle
A voir également:

1 réponse

Réponse 1 / 1
Salem
 
Program Ce_Triangle;

var Sommet, Base, I : Integer;
begin
Base := 10; // Base du triangle
Sommet := 1;
while Sommet <= Base do begin
for I := 1 to Sommet do
Write('*');
WriteLn;
Sommet := Sommet + 1;
end;
ReadLn;
end.
0
Salem
  
Program Ce_Triangle;  

Sommet, Base, I : Integer;

 S : String;

begin

S := 'Mahmoud';

Base := Length(S);;

Sommet := 1;

while Sommet <= Base do begin

  for I := 1 to Sommet do

  Write(S[I]);

  WriteLn;

  Sommet := Sommet + 1;

end;

ReadLn; 

end.
    




    
      

    
    
    0

            
    


    

            



    

        
        

            
        

    



    

    
            

        

        

    

        

            
        

    

    

    

        

    


    

    
    





    
Discussions similaires

                                        
            

                
                    arriere plan
                    

                        

    

            


    
    


                        

                                                                                    minangi - 

                            
                                                                                    Raymond PENTIER - 
                        

                    

                    

                    

                        1 réponse
                    

                
            

                                            
            

                
                    que signifie les petits rectangles blancs à la fin de mes sms ?
                    

                        

    

            


    
    


                        

                                                                                    krystina1207 - 

                            
                                                                                    Arman - 
                        

                    

                    

                    

                        6 réponses
                    

                
            

                                            
            

                
                    rectangle dans mes textos
                    

                        

    

            


    
    


                        

                                                                                    jackmarbri - 

                            
                                                                                    nulenmathe - 
                        

                    

                    

                    

                        1 réponse
                    

                
            

                                            
            

                
                    smyley rectangulaire
                    

                        

    

            


    
    


                        

                                                                                    lolly - 

                            
                                                                                    Aranud87 - 
                        

                    

                    

                    

                        2 réponses