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 chỉnh hợp chập k của n phần tử.

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


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

        fillchar(b, sizeof(b), true);
        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:= 1 to n do
             if b[j]=true then
             begin
                a[i]:= j;
                b[j]:= false;
                if i = k then InKQ
                        else Try2(i+1);
                b[j]:= true;
             end;
end;

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