Сумма с факториалом - 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, который позволяет пользователю нажать любую клавишу для выхода из программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д