Вычисление факториала числа

[PAVEL315]

какая функция отвечает за это?

[zetrix]

Должно работать

Function Facktorial(x:word):integer;
var i:integer;
begin
Facktorial:=1;
for i:=1 to x do Facktorial:=Facktorial*i;
end;

P.S.: можно и через рекурсию

[PAVEL315]

А где здесь сама степень факториала (Если имеется вид n! то - n)?

[Speeker]

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

А где здесь сама степень факториала (Если имеется вид n! то - n)?

После внесения данной функции в програму, потом просто вызываешь ее и передаешь ей число факториал которого надо найти
для данного случая команда

Facktorial(x)

[PAVEL315]

У меня не получилось!
Даю скрин...

[mihali4]

Function Facktorial(x: word): integer;
var i: integer;
begin
Result:=1;
for i:=1 to x do Result:=Result*i;
end;

[PAVEL315]

Не хотят согласоваваться типы! Я перевёл x на integer и пробовал

Edit2.Text := Faktorial(StrtoInt(Edit1.Text))

, но оно не прёт

[BOBAH13]

Edit2.Text := Faktorial(Word(StrtoInt(Edit1.Text) )); думаю получится

[Umen]

А значение факториала к текстовому типу тоже нужно приводить:

Edit2.Text := IntToStr(Faktorial(StrtoInt(Edit1.Text)))

[zetrix]

мда... вроде бы задачка 9 класса.