Это неполный результат.
14 строчек получилось потому, что остальные уехали за верх экрана (и, в частности, количество прямоугольников m). Число m (оно же количество строк с a, b, ab и s) в данном случае заведомо больше 26, поскольку букв латинского алфавита не хватило и в картинке задействованы небуквенные символы. Советую перестать пользоваться допотопным полноэкранным режимом. Окомпилируй программу в exe-файл и запусти его в обычном скроллируемом cmd-окне (в его свойствах поставь размер прокрутки побольше). А про окно 80х25 давно пора забыть..

Еще совет: уменьши размер квадрата. Попробуй, скажем, 6х6. Там, думаю, букв должно хватить.

Добавлено через 6 мин.
Но тут какая-то лажа..

- так быть не может. Ты уверена, что при копировании не изменила ничего? Ты не вручную ли копировала??..

Чтобы скопировать из дос-окна, кликни правой кнопкой на верхней полоске, выбери Редактировать и Пометить (если я правильно перевел), затем пометь и снова кликни правой кнопкой..

нет, не в ручную.. все печатала.. хорошо, проверю.

а что делает function Overlap?

я задала n=6, все получается нормально, без вот этого
[ [ [ [ [ [ \_
[ [ ] ] ^ ^^_

Катюш, дело не в том, что там не буквы. Дело в том, что левые (открывающие) скобки там идут углом (я выделяю красным):

[ [ [ [ [ [ \_
[ [ ] ] ^ ^^_

Если это на самом деле так - плохо. Надо мне искать ошибку.
Я не могу воспроизвести эти результаты. Проверь, плз. Спасибо.

так там не должно быть этих скобок? или они должны быть красным? что-то у меня ничего не выделяется.. ничего не пойму:(

Добавлено через 1 мин.
я проверяла.. все так же , как я и написала.. результаты такие же..
ааааа.. эти скобочки не должны быть углом?

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

так что - углом они?

да, если n брать =8, добавляются скобочки и они углом, как и выше нарисовано

У меня при N=8 первая комбинация такая получается (скопировал из cmd):



Угла из скобок нет.

все, получается. да

Добавлено через 7 мин.
идея понятна.. несовсем пойму расположение этих бкув и символов. точнее почему кое-где по одной букве.. она считается за прямоугольник?

Спасибо, Unconnected. Я все никак не мог добраться до машины с ТР.
+1 тебе. Еще раз спасибо


Так зачем тогда было говорить то, чего нет?

Конечно. А чем он провинился?.. Не дорос?.. В условии нет границы снизу на размер.

потому что сначала не получалось..(

Добавлено через 6 мин.
а можно процедуру Put пошагово объяснить, конкретнее,если можно..
и что такое Inc(k);

Добавлено через 1 мин.
tRectangle, tLocation это какой-то тип?

Что не получалось? Так были скобки углом или не были? Как же трудно от тебя получить ответ на простейший вопрос..

Можно, конечно. Перечитай пост #45 ( рекурсия- разбиение и сборка квадрата ). Я не хочу копипастить его сюда. Более конкретно - на более конкретные вопросы..

Inc(x) эквивалентно x:=x+1 .

Да, типы. Смотри программный код, а также пост #6 ( рекурсия- разбиение и сборка квадрата ).

а для чего вот это?
const
r0: tRectangle=(a:1; b:1);
l0: tLocation=(x: 0; y: 0);

что такое r0 и l0?

Добавлено через 4 мин.
еще хотела спросить, а что делает эта функция
function Overlap(r1: tRectangle; l1: tLocation; r2: tRectangle; l2: tLocation): boolean;
begin
Overlap:=
(Abs(l2.x*2+r2.a-l1.x*2-r1.a) < r1.a+r2.a) and
(Abs(l2.y*2+r2.b-l1.y*2-r1.b) < r1.b+r2.b)
end;

var
r: array[1..n*n+10]of tRectangle;
l: array[1..n*n+10]of tLocation;
s,i,m,k,done: integer;
t: tRectangle;
u: tLocation;
Clear: boolean;



Добавлено через 16 мин.
function Overlap- эта функция проверяет пересекаются ли прямоугольники?

Объявление переменных r0 и l0 типами tRectangle и TLocation соответственно (только почему-то он сделал это в секции констант). Сразу же эти переменные инициализируются, т.е. им присваиваются начальные значения (вот эти части: "=(a:1; b:1);=(x: 0; y: 0);").



Ну нифига себе... Мы тут, понимаешь, на первой странице этого топа способы проверки на пересечение двух прямоугольников придумывали, а она и не заметила..))



Секция описания переменных, тут всё должно быть понятно.

заметила. а что такое NoOne?

Добавлено через 9 мин.
например, вот тут

или тут

Ну, насколько я понял, NoOne - булевая переменная, обеспечивающая условие выхода из рекурсии. Т.е. если рекурсивная функция находит очередной вариант, то рекурсивно вызывается эта же функция с изменёнными параметрами, иначе рекурсия кончается.

Условие выхода из рекурсии:

    if NoOne then Put(x mod n+1,y+x div n)

я так поняла, что function Overlap(r1: tRectangle; l1: tLocation; r2: tRectangle; l2: tLocation): boolean; -функция, которая выдает True, если прямоугольники пересекаются и False,если нет. так? только если честно, этого я в программе не вижу, в смысле где именно это описывается..

Добавлено через 1 мин.
ааа.. спасибо большое!

Добавлено через 5 мин.
можешь еще объяснить хотя бы в кратце, что делает procedure JustSet; {подготовка входных данных}
вот тут

with t do repeat
    a:=Random(k)+1;
    b:=Random(k)+1;
    q:=s+a*b;
    if q<=n*n then begin
      Inc(m);
      r[m]:=t;
      l[m]:=u;
      s:=q
    end
  until s=n*n
end;

Добавлено через 1 мин.

Это не описывается. Это делается внутри самой функции. Алгоритм я подробно объяснил в одном из постов, посмотри выше.

конечно.
Это просто случайный выбор набора прямоугольников с условием, что их суммарная площадь равна площади квадрата (ну и каждая сторона не превосходит стороны квадрата). То, что из них действительно можно составить квадрат - не гарантируется (поэтому название JustSet - ПростоНабор).

with t do repeat
// случайным образом выбираем размеры прямоугольника
    a:=Random(k)+1;
    b:=Random(k)+1;
// вычисляем общую сумму площадей
    q:=s+a*b;
// если она меньше, чем площадь разрезаемого квадрата - прямоугольник годится, записываем его в набор
    if q<=n*n then begin
      Inc(m);     // увеличиваем число прямоугольников в наборе
      r[m]:=t;    // записывем прямоугольник в набор
      l[m]:=u;    // приписываем ему нулевое положение (означает, что он не положен внутрь квадрата)
      s:=q    // запоминаем новое значение суммарной площади
    end
  until s=n*n  // до тех пор, пока суммарная площадь не сравняется с площадбю квадрата
end;

спасибо всем огромное, кто принимал участие в решении этой задачи!!!