tổ hợp chập k của n ?

program tinh_to_hop;
uses crt;
var C:real;
n,k:integer;
function giaithua(n:integer):longint;
var i,Tich:longint;
begin
Tich:=1;
for i:=1 to n do
Tich:=Tich*i;
giaithua:=Tich;
end;
begin
clrscr;
write('Nhap n :');
readln(n);
write('Nhap to hop chap k :');
readln(k);
C:=giaithua(n)/(giaithua(k)*giaithua(n-k));
write('to hop la :',C:10:0);
readln;

end.



Mình làm mà sao kt lại thì kết quả không đúng
bạn coi có sai j ko nha ? tk

Uhm, nhìn thì thấy đúng thật. Bạn coi lại xem thử có tràn dữ liệu ko?

hàm tính giai thừa nên dùng đệ quy thì tốt hơn ^^

nên dùng nhân số lớn!