olteanu.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 73 行

{Olteanu Loredana}
program bilet14;
type matrice=array [1..30,1..30] of integer;
     stiva=array[1..30] of integer;
var f:text;
    n,k,p:integer;
    a:matrice;
    st:stiva;
procedure citire;
 var i,j:integer;
  begin
   write('dati numarul de hobby-uri');
   readln(K);
   assign(f,'p14.txt');
   reset(f);
   readln(f,n);
   for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=0;
    close(f);
end;
procedure init(var st:stiva;p:integer);
 begin
  st[p]:=0;
 end;
procedure succesor(var st:stiva;p:integer; var as:boolean);
 begin
  if st[p]<1 then
              begin
                inc(st[p]);
                as:=true;
               end
              else as:=false;
 end;
procedure valid(st:stiva;p:integer;var ev:boolean);
 begin
  ev:=true;
 end;
function solutie(p:integer);
begin
 solutie:=(p=n);
end;
procedure tipar(p:integer);
 var i:integer;
  begin
   for i:=1 to n do
    begin
     writeln(i,p,' ');
     writeln;
    end;
begin
 citire;
 p:=1;
 init(st,p);
 while p>0 do
    repeat
      succesor(st,p,as);
      if as then valid(st,p,ev);
    until (not as)or (as and ev);
      if as then
       if solutie(p) then
                         tipar(p)
                     else
                       begin
                        inc(k);
                        init(st,k);
                       end
                     else dec(p);
readln;
end.