Cod sursa(job #196337)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 25 iunie 2008 18:41:12
Problema Combinari Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 1.79 kb
program combinari;
{$APPTYPE CONSOLE}  
uses  
  SysUtils;   
var i,j,n,m,k,p:integer;   
    fin,fout:text;   
    sol:array [1..18] of integer;   
{*-------------------------------*}  
procedure tipar;   
begin  
        for i:=1 to k do write(fout,sol[i],' ');
        writeln(fout);   
end;   
{*-------------------------------*}  
procedure back(p:integer);   
var i:integer;   
begin  
        if p > k then tipar   
        else  
        begin  
                for i:=1 to n do  
                begin  
                        sol[p]:=i;   
                        if sol[p] > sol[p-1] then back(p+1);   
                end;   
        end;   
end;   
{*-------------------------------*}  
begin  
        assign(fin,'combinari.in'); reset(fin);   
        assign(fout,'combinari.out'); rewrite(fout);   
  
        readln(fin,n,k);   
        back(1);   
  
        close(fin);   
        close(fout);   
end.  
program combinari;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var i,j,n,m,k,p:integer;
    fin,fout:text;
    sol:array [1..18] of integer;
{*-------------------------------*}
procedure tipar;
begin
        for i:=1 to k do write(fout,sol[i],' ');
        writeln(fout);
end;
{*-------------------------------*}
procedure back(p:integer);
var i:integer;
begin
        if p >= k then tipar
        else
        begin
                for i:=0 to n do
                begin
                        sol[p]:=i;
                        if sol[p] > sol[p-1] then back(p+1);
                end;
        end;
end;
{*-------------------------------*}
begin
        assign(fin,'combinari.in'); reset(fin);
        assign(fout,'combinari.out'); rewrite(fout);

        readln(fin,n,k);
        back(1);

        close(fin);
        close(fout);
end.