Сделать программу суммы чисел от k до n с факториалом - Turbo Pascal
Решение задачи: «Сделать программу суммы чисел от k до n с факториалом»
textual
Листинг программы
program pr;
var
i, n: integer;
sum: real;
function f(x: integer): integer;
var
i, n: integer;
begin
n := 1;
for i := 1 to x do
begin
n := n * i;
end;
f := n;
end;
begin
writeln('Введите n');
readln(n);
for i := 1 to n do
begin
sum := sum + (1 / f(i * i));
end;
writeln;
writeln('Сумма: ', sum);
end.
Объяснение кода листинга программы
- В программе объявлены три переменные: i, n и sum.
- Функция f(x) вычисляет факториал числа x.
- В цикле for i := 1 до n выполняется следующее:
- n переменной n присваивается значение 1.
- Затем, в блоке begin..end, переменная n перемножается с i от 1 до x.
- Значение n после завершения цикла равно произведению i от 1 до x.
- Функция f(i i) возвращает факториал числа (i i).
- Значение sum переменной sum увеличивается на 1/f(i * i).
- После выполнения цикла for выводится сообщение 'Сумма: ', и значение переменной sum.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д