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

1 réponse

  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
    1. 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