Chaine sous forme d'un triangle rectangle

Fermé
Mahmoud - 12 févr. 2017 à 12:39
 Salem - 12 févr. 2017 à 22:11
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

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