mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 10:35:07 +02:00
00f401693c
of all at the same time, because otherwise circular renamings could
cause errors
git-svn-id: trunk@3644 -
21 lines
318 B
ObjectPascal
21 lines
318 B
ObjectPascal
{ %OPT=-O-1 -Ooasmcse -Oonoregvar }
|
|
|
|
function B(n, k: Integer):Integer;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
if k > n-k then
|
|
k := n-k;
|
|
B := 1;
|
|
for i := n-k+1 to n do
|
|
B := B * i;
|
|
for i := 2 to k do
|
|
B := B div i;
|
|
end;
|
|
begin
|
|
if B(0,1) <> 1 then
|
|
halt(1); { Should write 1; fpc -O1 binom.pas writes 0 }
|
|
end.
|
|
|
|
|