Факториал в Паскале

Факториал - произведение натуральных чисел от единицы до заданного числа. Имеет условное обозначение в виде восклицательного знака. n!=1*2*3*...*n (Например: 3!=1*2*3=6).

В Turbo Pascal факториал находится, как правило, двумя способами: с помощью цикла или с помощью рекурсии.

Вычисление факториала в pascal с помощью цикла

Данный способ нахождения факториала исключительно прост. В цикле от 1 до n умножается число само на себя. При этом необходимо учитывать условие, что 0!=1. Ниже представлена реализация программы с помощью цикла for. Аналогично используются repeat и while.

readln(n);

if (n=0) then writeln('0!=1') else

if (n<0) then writeln('Определяется только для положительных чисел') else

begin

s:=1;

for i:=1 to n do

s:=s*i;

writeln(n,'!='s:0:0);

end;

Рекурсионный способ нахождения факториала в паскале

Найти факториал в pascal можно также посредством вызова функции (с помощью рекурсии).

function fact(x:byte):real;

begin

if x=0 then fact:=1

else fact:=fact(x-1)*x;

end;

Скачать:

Факториал числа - Вычисление с помощью цикла (1 способ)

Факториал - Нахождение факториала в паскале с помощью рекурсии (2 способ)