22 lines
651 B
Text
22 lines
651 B
Text
include c:\cxpl\codes;
|
|
|
|
proc Pascal(N); \Display the first N rows of Pascal's triangle
|
|
int N; \if N<=0 then nothing is displayed
|
|
int Row, I, Old(40), New(40);
|
|
[for Row:= 0 to N-1 do
|
|
[New(0):= 1;
|
|
for I:= 1 to Row do New(I):= Old(I-1) + Old(I);
|
|
for I:= 1 to (N-Row-1)*2 do ChOut(0, ^ );
|
|
for I:= 0 to Row do
|
|
[if New(I)<100 then ChOut(0, ^ );
|
|
IntOut(0, New(I));
|
|
if New(I)<10 then ChOut(0, ^ );
|
|
ChOut(0, ^ );
|
|
];
|
|
New(Row+1):= 0;
|
|
I:= Old; Old:= New; New:= I;
|
|
CrLf(0);
|
|
];
|
|
];
|
|
|
|
Pascal(13)
|