programme pascal affiche un mot sous forme de triangle
27 avr. 2016Bonjour,
Ce bout de programme permet de lire un mot et de nous l'afficher sous forme d'un triangle
Exemple:
en entrée on donne le mot: regarder
en sortie on aura
r
re
reg
rega
regar
regard
regarde
regarder
program triangle;
var chaine,lettre:String;
i:integer;
begin
lettre:='';
readln (chaine);
if(length(chaine)>=3) then
begin
for i:=1 to length(chaine) do
begin
lettre:=lettre+chaine[i];
writeln(lettre);
end
end else
writeln('entrer un mot qui dépasse deux lettres');
end.
Commenter cet article