Описать функцию Fact(N) целого типа, вычисляющую значение факториала N!

@cucibob · Регистрация: 29.02.2012

Студворк — интернет-сервис помощи студентам

Описать функцию Fact(N) целого типа, вычисляющую значение факториала N! = 1•2•...•N (N > 0 – параметр целого типа). С помощью этой функции вычислить факториалы 3 данных чисел. Заранее спасибо.

@Ev[G]eN · 07.04.2012, 14:15

Pascal

var
  n, i: Integer;
  
function Fact(n: Integer): LongInt;
var
  Factorial: LongInt;
  i: Integer;
begin
  Factorial:=1;
  for i:=1 to n do
    Factorial:=Factorial * i;
  Fact:=Factorial;
end;
 
begin
  for i:=1 to 3 do
  begin
    write(i, ' число: ');
    readln(n);
    writeln(n, '! = ', Fact(n));
  end;
end.

@cucibob · 04.05.2012, 14:10 **[ТС]**

а если можно то через процедуру. спасибо.

@Nurislom · 13.03.2015, 12:35

а можете с комментариями написать

@SuperKir · 13.03.2015, 15:08

cucibob,

Pascal

procedure Fact(n:integer; var result:integer);
var i,res: Integer;
begin
    res := 1;
    for i := 1 to n do
        res := res * i;
    result := res;
end;
 
var x,k: Integer;
 
begin
Write('Enter ! - ');
ReadLn(x);
Fact(x,k);
WriteLn(x,'! = ',k);
ReadLn;
end.

Новичок · 13.03.2015, 17:20

SuperKir, гляньте на дату сообщения cucibob.

@SuperKir · 13.03.2015, 19:48

Новичок, Виноват, увидел Nurislom сообщение, думал свежее

@Nurislom · 14.03.2015, 09:49

можете м комментариями написать

Описать функцию Fact(N) целого типа, вычисляющую значение факториала N!

Решение

Решение

@cucibob 0 / 0 / 0 Регистрация: 29.02.2012 Сообщений: 20
		1
	Описать функцию Fact(N) целого типа, вычисляющую значение факториала N! 07.04.2012, 13:23. Показов 7527. Ответов 7 Метки нет (Все метки) Описать функцию Fact(N) целого типа, вычисляющую значение факториала N! = 1•2•...•N (N > 0 – параметр целого типа). С помощью этой функции вычислить факториалы 3 данных чисел. Заранее спасибо. 0

@cucibob 0 / 0 / 0 Регистрация: 29.02.2012 Сообщений: 20
	04.05.2012, 14:10 [ТС]	3
	а если можно то через процедуру. спасибо. 0

@Nurislom 0 / 0 / 0 Регистрация: 01.03.2015 Сообщений: 54 Записей в блоге: 1
	13.03.2015, 12:35	4
	а можете с комментариями написать 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	13.03.2015, 17:20	6
	SuperKir, гляньте на дату сообщения cucibob. 0

@SuperKir 474 / 426 / 290 Регистрация: 10.03.2015 Сообщений: 1,782
	13.03.2015, 19:48	7
	Новичок, Виноват, увидел Nurislom сообщение, думал свежее 0

@Nurislom 0 / 0 / 0 Регистрация: 01.03.2015 Сообщений: 54 Записей в блоге: 1
	14.03.2015, 09:49	8
	можете м комментариями написать 0

Опции темы