Program Triangle_Pascal;
Type matrice = Array [1..15, 1..15] of Integer;
Var T : matrice; N : Integer;
Procedure triangle (n : Integer ; Var T:matrice);
Var l, c : Integer;
Begin T[1,1]:=1;
For l:=2 To n Do
Begin
T[l,1]:=1;
For c:=2 To l-1 Do
T[l,c]:=T[l-1,c]+T[l-1,c-1];
T[l,l]:=1;
End;
End;
Procedure Afficher (n : Integer ; T:matrice);
Var l, c : Integer;
Begin
For l:=1 To n Do
Begin
For c:=1 To l Do
Write (T[l,c], ' ');
Writeln ;
End;
End;
(*********************************************)
Begin
Repeat
Writeln ('Donner la taille du triangle : ');
Readln (n);
Until n in [2..15];
Triangle (n, T);
Afficher (n, T);
End.
UHJvZ3JhbSBUcmlhbmdsZV9QYXNjYWw7ClR5cGUgbWF0cmljZSA9IEFycmF5IFsxLi4xNSwgMS4uMTVdIG9mIEludGVnZXI7ClZhciBUIDogbWF0cmljZTsgTiA6IEludGVnZXI7ClByb2NlZHVyZSB0cmlhbmdsZSAobiA6IEludGVnZXIgOyBWYXIgVDptYXRyaWNlKTsKVmFyIGwsIGMgOiBJbnRlZ2VyOwpCZWdpbiBUWzEsMV06PTE7CkZvciBsOj0yIFRvIG4gRG8gCkJlZ2luClRbbCwxXTo9MTsKRm9yIGM6PTIgVG8gbC0xIERvIApUW2wsY106PVRbbC0xLGNdK1RbbC0xLGMtMV07ClRbbCxsXTo9MTsKRW5kOwpFbmQ7ClByb2NlZHVyZSBBZmZpY2hlciAobiA6IEludGVnZXIgOyBUOm1hdHJpY2UpOwpWYXIgbCwgYyA6IEludGVnZXI7CkJlZ2luCkZvciBsOj0xIFRvIG4gRG8gCkJlZ2luCkZvciBjOj0xIFRvIGwgRG8gCldyaXRlIChUW2wsY10sICcgJyk7CldyaXRlbG4gOwpFbmQ7CkVuZDsKKCoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKQmVnaW4KUmVwZWF0CldyaXRlbG4gKCdEb25uZXIgbGEgdGFpbGxlIGR1IHRyaWFuZ2xlIDogJyk7ClJlYWRsbiAobik7ClVudGlsIG4gaW4gWzIuLjE1XTsKVHJpYW5nbGUgKG4sIFQpOwpBZmZpY2hlciAobiwgVCk7CkVuZC4=