22 lines
352 B
Text
22 lines
352 B
Text
code ChOut=8, CrLf=9, IntOut=11;
|
|
|
|
func Binomial(N, K);
|
|
int N, K;
|
|
int M, B, I;
|
|
[M:= K;
|
|
if K>N/2 the M:= N-K;
|
|
B:=1;
|
|
for I:= 1 to M do
|
|
B:= B*(N-M+I)/I;
|
|
return B;
|
|
];
|
|
|
|
int N, K;
|
|
[for N:= 0 to 9 do
|
|
[for K:= 0 to 9 do
|
|
[if N>=K then IntOut(0, Binomial(N,K));
|
|
ChOut(0, 9\tab\);
|
|
];
|
|
CrLf(0);
|
|
];
|
|
] \Mr. Pascal's triangle!
|