HỌC TIN CÙNG THỦ KHOA

Mời các bạn Download code tại: Click here

Đề bài: Nhập vào hai số nguyên dương n và k. Hãy liệt kê các tổ hợp chập k của n phần tử.

const fi = 'TOHOPCHAPK.INP';
      fo = 'TOHOPCHAPK.OUT';
      MAXN = 20;
var f: text;
    n, k: integer;
    a: array [0..MAXN] of integer;
    dem: integer;


procedure Nhap;
begin
        assign(f, fi); reset(f);
        readln(f, n, k);
        close(f);

        a[0]:= 0;
        dem:= 0;
end;

procedure InKQ;
var i: integer;
begin
        inc(dem);
        write(f, dem:3, ': ');
        for i:= 1 to k do
                write(f, a[i], ' ');
        writeln(f);
end;

procedure Try2(i: integer); // dien gia tri cho vi tri thu i
var j: integer;
begin
        for j:= a[i-1] + 1 to n do
        begin
                a[i]:= j;

                if i = k then InKQ
                        else Try2(i+1);
        end;
end;

BEGIN
        Nhap;
        assign(f, fo); rewrite(f);
        Try2(1);
        close(f);
END.