@Даня98

Задача звучит так:
Лесенкой называется набор кубиков, в котором каждый более верхний слой содержит кубиков меньше, чем предыдущий. Подсчитать число лесенок, которое можно построить из N кубиков. (кубики, сложеные в один ряд тоже считается лесенкой). Подсчитать кол-во лесенок, которое можно построить из n кубиков.
Решение: Переформулируем нашу задачу на язык математики. В каждом следующем слое (считая сверху вниз) кубиков больше, чем в предыдущем, а в сумме их n. Значит, нам требуется представить n в виде суммы возрастающих натуральных слагаемых. Пусть в качестве первого слагаемого мы взяли L, тогда нам требуется n-L разбить на слагаемые. Но теперь добавляется дополнительное условие - слагаемые должны быть больше либо равны L+1. Значит, нам достаточно научиться считать число разбиений числа n на слагаемые не меньшие k (обозначим an, k). Есть два случая: слагаемое k либо входит в разбиение (таких способов an-k, k+1), либо нет (таких способов an, k+1). Так как никакое разбиение не подходит одновременно под оба эти случая, то an,k=an-k, k+1 + an, k+1. Заметим, что для единицы существует единственное разбиение: 1 = 1. Значит a1, 0 = a1, 1 = 1, a1, f = 0, где f >= 2. an, k удобно вычислять в порядке невозрастания k. При равных k - в произвольном порядке.
Но как это реализовать, рекурсией что ли? Если да, то как?

0

@use

Вот так примерно:
Даня98, ты не сказал, в каком диапазоне изменяется N. Приведенный мной код на FP работает примерно где-то до N=200. Дальше нужно переходить на int64 (или comp) с небольшой модификацией программы.

Мне понравился характер роста. До 10 результат не превосходит входного числа, а потом начинается ускорение роста.. Меня это даже как-то озадачило в начале )).

Если хочешь, могу дать также решение на основе процедуры (а не функции) - оно немного проще для понимания, мне кажется.

2

@Даня98

А что это за строка, то есть что она значит?

0

@neske

(n=0) - может быть как правдой, так и ложью. То есть если n <> 0, то это запись вернет false.
byte (n=0) - явное приведение типов, то есть вместо false, мы получим 0 на выходе.

Вроде так.

2

@Даня98

У меня программа выводит ошибку тут:
Я поменял это на:
И идет неправильный ответ. При 3 должно быть 2 (в ряд, и 2 снизу 1 сверху), при 6 - должно быть 4, а прога выводит 1 и 1. Где исправить?

0

@neske

Увеличиваем Stairs на значение Stairs (n-l, l)
То есть:

0

@Даня98

Неверное кол-во параметров.

0

@use

Ох.. Даня98, ну если используешь раритетный TurboPascal, то и пиши в раздел TurboPascal.. Я же словами написал, что прога под FP.

neske, спасибо за помощь )).
Но так: - все же не пойдет. Имя функции как переменную можно использовать только в левой части.

Даня98, возьми изначальный вариант и замени в нем tInt с longint на integer. Прога скомпилится и будет работать, но диапазон уменьшится. Если хочешь ипользовать longint, введи дополнительную переменную, и перекладывай из нее в функцию при выходе. Показать?

2

@neske

Не знал, спасибо

0

@use

для полноты картины: еще его можно передавать как var-параметр (тут как раз у меня этот случай на самом деле))

2

@Wanee

use, на n > 100 алгоритм не работает

0