Program S6;
Var
h : integer;
//************************************
Procedure saisir(Var h:integer);
Begin
Repeat
write('Donner la hauteur du triangle: ');
readln(h);
Until h In [5..10];
End;
//************************************
Procedure afficher(h:integer);
Var
i,j,k : integer;
ch : string;
Begin
ch := '';
For i:=1 To h*2-1 Do
ch := ch+'*';
writeln(ch);
j := 1;
k := length(ch);
For i:=2 To h Do
Begin
ch[j] := ' ';
ch[k] := ' ';
writeln(ch);
j := j+1;
k := k-1;
End;
End;
//************************************
Begin
saisir(h);
afficher(h);
End.
Inscription à :
Publier les commentaires (Atom)
