Program - Kombinačné číslo :)

Program napísaný v jazyku Pascal.

program Kombinacne_cislo;

 function Faktorial (cislo:integer):longint;
 var
  i:integer;
  faktorialx:longint;
 begin
  faktorialx:=1;
  for i:=cislo downto 2 do faktorialx:=faktorialx*i;
  Faktorial:=faktorialx;
 end;

var
 n,k,x,kombicislo:integer;

begin
 writeln('Pocitam kombinacne cislo n nad k.');
 writeln('Zadajte n');
 readln(n);
 writeln('Zadajte k');
 readln(k);
 kombicislo:=Faktorial(n) div Faktorial(k) div Faktorial(n-k);
 writeln; writeln('Kombinacne cislo = ',kombicislo);
 readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Hra Zápalky :)
• Program - Malá násobilka :) →