У вас ошибка в преобразовании переменной k
в целое. Вот как объявлена функция Int
:
function Int(const X: Extended): Extended;
А вот, как она описывается:
Функция Int
возвращает целочисленную часть числа с плавающей точкой,
как число с плавающей точкой.
Очевидно, что эта функция не подходит для того, чтобы преобразовать Real
в Integer
(а цикл for
работает именно с Integer
). Для такого преобразования вам надо использовать либо функцию Trunc
(которая делает то же самое, что и Int
, только результатом будет Integer
), либо Round
, которая округляет число до целого.
function Trunc (const Number : Extended): Integer;
function Round (const Number : Extended): Int64;
Примеры:
begin
ShowMessage('Round(12.75) = ' + IntToStr(Round(12.75)));
ShowMessage('Trunc(12.75) = ' + IntToStr(Trunc(12.75)));
ShowMessage(' Int(12.75) = ' + FloatToStr(Int(12.75)));
ShowMessage(' Frac(12.75) = ' + FloatToStr(Frac(12.75)));
end;
Выведет:
Round(12.75) = 13
Trunc(12.75) = 12
Int(12.75) = 12
Frac(12.75) = 0.75
P.S. Судя по тому, что вы пытались изменить тип переменной l
, вы неправильно поняли к чему конкретно относится сообщение об ошибке. А это произошло от того, что вы написали в одну строку и условие цикла и его тело. Стоит придерживаться нормального форматирования кода, особенно на начальных парах:
for I := 1 to Trunc(K) do begin
L := L * I;
end