Факториал.В чем ошибка?

[furymaxim]

Program
var
p,t:LONGINT;
x,i,n:real;
begin
writeln('Введите x');
readln(x);
if (x mod 2) =0 then
t:=1.5 else t:=2;
n:=x*t;
p:=1;
for i:=2 to n do
p := p * i;
end;
writeln('p! = ', p);
end.

Пишет For1.pas(7) : Нельзя преобразовать тип real к integer

Задание звучит так : Вычислить P=(xt)!; n! = 1*2.....n , t = 1,5 если х - четное , t =2 , если нечетное
Какие типы я только не ставил,если бы не 1.5 ,а целое число было бы ,то всё ОК

[Sciv]

if (x mod 2) =0 then

Остаток от деления вычислим только у целых чисел, соответственно оператор mod требует целочисленных аргументов, а Вы ему вещественный x подсовываете

t:=1.5 else t:=2;

И что ещё интересней, в целочисленную переменную t Вы пытаетесь запихнуть вещественное значение "полтора"

for i:=2 to n do

Счётчик цикла у Вас также объявлен как real, да ещё и n тоже вещественное

t = 1,5 если х - четное , t =2 , если нечетное

Это фигня какая-то, а не задание. Факториал - целочисленная функция, каким макаром там t = 1,5? Единственное разумное объяснение, которое я могу предложить - это необходимость использования округления произведения (Round). В любом случае при умножении 1.5 на чётное число мы получаем нечто, что делится на 2 без остатка, вот только компьютер-то об этом не знает и считает, что результатом подобного перемножения будет вещественное число (и кстати, он прав).

Потому присвоение надо делать так:

if (x mod 2) =0 then
  n := Round(x * 1.5)
else
  n := x * 2;

и никакие Real в программе уже не нужны. Также, как и отдельное объявление t

[type_Oleg]

Сообщение от furymaxim

t = 1,5 если х - четное , t =2 , если нечетное

Например, так

if Odd(x) then k:=2*x else k:=3*x div 2;

и дальше считаете k!
Вместо Odd(x) можно (x mod 2 <>0)

Хотя, лучше использовать все, кроме x - не целого типа. Потому что уже 13! = 6227020800 - это не влезет в LongInt

Вот так, например вычисление !

function factr(n:Integer):Extended;
begin
 if n=0 then factr:=1 else factr:=n*factr(n-1);
end;