Сумма с факториалом - Turbo Pascal (29939)
Формулировка задачи:
Дано натуральное число n и действительное число х. Вычислить
Пожалуста помогите я неверно задание зделал, кто может переписать?
Решение задачи: «Сумма с факториалом»
textual
Листинг программы
program unit13;
uses crt;
var n,k,i,f:longint;
s,x,c,f1:real;
begin
clrscr;
writeln;
repeat
write('Введите n от 1 до 4 n=');
readln(n);
until n in [1..4];
write('Введите x=');
readln(x);
s:=0;
f:=1;
c:=1;
for k:=1 to n do
begin
c:=c*x;
f:=f*k;
f1:=1;
for i:=1 to f+1 do
f1:=f1*i;
s:=s+c/f1;
end;
writeln('S=',s:0:11);
readkey;
end.
Объяснение кода листинга программы
- Программа начинается с объявления переменных n, k, i, f и s, x, c, f1:longint; real.
- Строка
clrscr;очищает экран. - В цикле repeat-until запрашивается значение переменной n от 1 до 4 и сохраняется в переменной n.
- Затем запрашивается значение переменной x и сохраняется в переменной x.
- Переменные s, x, c, f1 инициализируются нулями.
- В цикле for k:=1 до n do происходит расчет факториала числа k и сохраняется в переменной f.
- Затем рассчитывается сумма c/f1 и сохраняется в переменной s.
- Цикл for i:=1 до f+1 do рассчитывает факториал числа i и сохраняет его в переменной f1.
- После завершения цикла for i=1 to f+1 do переменная f1 содержит факториал числа f+1.
- Значение переменной s, полученное в результате суммирования c/f1, выводится на экран.
- Программа завершается вызовом readkey, который позволяет пользователю нажать любую клавишу для выхода из программы.