Câu 56. Viết chương trình con (thủ tục hoặc hàm) thực hiện các yêu cầu sau. a) tính giai thừa của một số nguyên. b) tính hàm a mũ b. c) tích hợp chập k của n. Giải giúp em ạ.

a.

program phuongt;
uses crt;
  var n: integer;
function gt(n: integer): longint;
begin
        if n=1 then gt:=1 else gt:=n*gt(n-1);
end;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        write('Giai thua = ',gt(n));
        readln
end.

b.

program phuongt;
uses crt;
  var a, b: integer;
function mucoso: integer;
var i, k: integer;
begin
        k:=1;
        for i:=1 to b do k:=a*k;
        mucoso:=k;
end;
begin
        clrscr;
        write('Nhap a = '); readln(a);
        write('Nhap b = '); readln(b);
        write(a, ' mu ', b, ' = ', mucoso);
        readln
end.

c.

program phuongt;
uses crt;
  var n, k: integer;
function thc: real;
var i, d, m, s: integer;
begin
        d:=1;
        for i:=1 to n do d:=d*i;
        s:=1;
        for i:=1 to n-k do s:=s*i;
        m:=1;
        for i:=1 to k do m:=m*i;
        thc:=d/(s*m);
end;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        write('Nhap k = '); readln(k);
        write('To hop chap ', k, ' cua ', n, ' la: ', thc:3:2);
        readln
end.