combinar.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 26 行

program combinari;
var n,k,d:longint;
    C:real;
function fact(x:integer):integer;
         var p,i:integer;
             begin
             if (x=0) then fact:=1
                           else
                               begin
                               p:=1;
                               for i:=1 to x do
                               p:=p*i;
                               fact:=p;
                               end;
             end;
begin
write('n=');
readln(n);
write('k=');
readln(k);
write(fact(n));
d:=fact(k)*fact(n-k);
write(d);
C:=fact(n)/d;
writeln('C(',n,',',k,')= ',C:4:1);
end.