Contributor: SWAG SUPPORT TEAM
{> Does anyone have an idea to perform permutations With pascal 7.0 ?> As an example finding the number of 5 card hands from a total of 52 cards.> Any help would be greatly appreciated.
This Program should work fine. I tested it a few times and it seemed to work.
It lets you call the Functions For permutation and combination just as you
would Write them: P(n,r) and C(n,r).
}
{$E+,N+}
Program CombPerm;
Var
Result:Extended;
Function Factorial(Num: Integer): Extended;
Var
Counter: Integer;
Total: Extended;
begin
Total:=1;
For Counter:=2 to Num do
Total:=Total * Counter;
Factorial:=Total;
end;
Function P(N: Integer; R: Integer): Extended;
begin
P:=Factorial(N)/Factorial(N-R);
end;
Function C(N: Integer; R: Integer): Extended;
begin
C:=Factorial(N)/(Factorial(N-R)*Factorial(R));
end;
begin
Writeln(P(52,5));
end.