Вычислить элементы последовательности, используя рекурсию.

[ilyas22]

Вычислить элементы последовательности, используя рекурсию.
формула в изображении, при K>2, программа не работает
program _;
var
k1,x1:integer;
function T(k,x:integer):integer;
begin
if k=0 then T:=1 else
if k=1 then T:=x else
T:=T(k,x)-T(k-1,x);
end;
begin
writeln('введите k,x');
readln(k1,x1);
T(k1,x1);
writeln('-----------------------');
writeln('T=',2*x1*T(k1,x1));
end.

[Скандербег]

Функция Т ничего не вычисляет. Поэтому и не работает. Если К > 2, то первые два условия в функции не выполняются, а рекурсивные вызовы, которые выполняются в третьем условии [T(k,x)-T(k-1,x)], приводят к тому, что на второй итерации функция ничего не возвращает.
Если посмотреть исходное выражение, то там можно увидеть произведение: 2хT... В функции же ничего такого нет. Кроме того, значения параметров при каждом вхождении в очередную рекурсию не меняются, а это приведет к зацикливанию.

[ilyas22]

вы можете написать как должна быть написана формула, как я понимаю рекурсия это нахождение значения из предыдущего.