Хитрое заполнение ячеек Опции

[Unconnected]

Привет всем.

Столкнулся с задачами, решение которых я если и в голове очень смутно, но представляю, то в коде ну вообще никак... Погуглил по слову Комбинаторика, кажется, это из этой области. Вот задача:

Требуется в каждую клетку квадратной таблицы размером NxN поставить ноль или единицу так, чтобы в любом квадрате размера KxK было ровно S единиц.
Во входном файле записаны три числа – N, K, S (1 ≤ N ≤ 100, 1 ≤ K ≤ N, 0 ≤ S ≤ K2).

И вывести надо получившуюся матрицу. Может кто-нибудь объяснить алгоритм решения? Я додумался лишь до того, что сначала надо посчитать все возможные "квадраты", а уже потом, исходя из их расположения заполнять..

[Unconnected]

Решил, ( ), вот, если кому интересно:

uses sysutils;
var f:textfile;
    n,k,i,j,x,y:byte;
    s:integer;
    big,small:array[1..100,1..100] of char;
begin
  assignfile(f,'input.txt');
  reset(f);
  read(f,n,k,s);
  closefile(f);
  for i:=1 to n do
    for j:=1 to n do big[i,j]:='0';
  x:=0;
  for i:=1 to k do
    for j:=1 to k do
      begin
        if (x=s) then break;
        inc(x);
        small[i,j]:='1';
      end;
  for i:=1 to k do
    for j:=1 to k do if small[i,j]<>'1' then small[i,j]:='0';
  x:=0;
  y:=0;
  for i:=1 to n do
    begin
      if (y=k) then y:=1 else inc(y);
      for j:=1 to n do
        begin
          if (x=k) then x:=1 else inc(x);
          big[i,j]:=small[x,y];
        end;
     end;
  assignfile(f,'output.txt');
  rewrite(f);
  for i:=1 to n do
    begin
      for j:=1 to n do write(f,big[i,j],' ');
      writeln(f);
    end;
  closefile(f);
end.

Хотел правда массивы динамическими сделать, но я не знаю, как для многомерных память выделять.

Сообщение отредактировано: Unconnected - 29.10.2009 12:57