Kombinačné číslo bez použitia faktoriálu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória:

Autor: Zajo Brutus
Program: Komb_cisla.pas

Kombinačné číslo bez použitia faktoriálu
{ KOMB_CISLA.PAS                                 Copyright (c) Zajo Brutus }
{ Kombinačné číslo bez použitia faktoriálu.                                }
{ Author: Zajo Brutus                                                      }
{ Datum: 23.9.2014                                   http://www.trsek.com  }
 
function c(n,k:byte):longint;
var
  i:byte;
  p:longint;
begin
  if n-k<k then
    k:=n-k;
  p:=1;
  for i:=1 to k do
  begin
    p:=p*n div i;
    dec(n);
  end;
  c:=p;
end;
 
begin
  writeln('pocet kombinacii v sportke: ',c(49,6)); readln;
end.