Предмет: Информатика, автор: hikolaevcawa

30 БАЛЛОВ ДАЮ
Вычислите факториал через рекурсию на языке Паскаль с написанием всех действий

Ответы

Автор ответа: MrSolution

Функция на PascalABC.NET:

function Integer.Factorial(): Integer;

begin

var newNumber:= self - 1;

if self <= 1 then Factorial:= 1

else Factorial:= self * newNumber.Factorial;

end;

Пример использования:

var a: Integer := 5;

('a!=' + a.Factorial).Print;

Вывод на экран:

a!=120

hikolaevcawa: Спасибо, но мне надо:

hikolaevcawa: Спасибо но мне надо var
result : QWord;
x : integer;

function Factorial(n : integer) : QWord;
begin
if (n = 0) or (n = 1) then
Factorial := 1
else
Factorial := Factorial(n - 1) * n;
end;

begin
writeln('Рекурсивное вычисление факториала');
write('x = ');
readln(x);
result := Factorial(x);
writeln(x, '!', ' = ', result);
readln;
end. и чтоб оно еще выводило все действия по типу ввожу 4 а выодит 4*3+3*2... ответ 24

MrSolution: Не понятно, что такое 4*3+3*2... Факториал - это 1*2*3*4*...*n=n!

MrSolution: Написать можно так:
##
function Integer.Factorial(): Integer;
begin
var newNumber:= self - 1;
if self <= 1 then begin
('1 =').Print;
Factorial:= 1
end
else begin
Console.Write(self + '*');
Factorial:= self * newNumber.Factorial;
end
end;

var a: Integer := 5;
(a + '! =').Print;
(a.Factorial).Print;

MrSolution: Выведет 5! = 5*4*3*2*1 = 120

MrSolution: Но сразу замечу, что делать вывод внутри функции, которая вычисляет значение - это ОЧЕНЬ плохо!

MrSolution: Лучше сделать вывод вот так:
'a! ='.Print;
(1..a).Print('*');
(' = ' + a.Factorial).Print;

MrSolution: Будет a! = 1*2*3*4*5 = 120

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Алгебра, автор: halabaga

3x⁴-2x²-8=0 помогите срочнооооо

1 год назад

Предмет: Математика, автор: Аноним

8. Решите уравнение 0,8(x+6)=0,16(x-4). D) 17 A) 8,5 B) -8,5 ) 8 C) Е) -8.Пж помогите я на мониторинге