Сумма с факториалом - 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.

Объяснение кода листинга программы

  1. Программа начинается с объявления переменных n, k, i, f и s, x, c, f1:longint; real.
  2. Строка clrscr; очищает экран.
  3. В цикле repeat-until запрашивается значение переменной n от 1 до 4 и сохраняется в переменной n.
  4. Затем запрашивается значение переменной x и сохраняется в переменной x.
  5. Переменные s, x, c, f1 инициализируются нулями.
  6. В цикле for k:=1 до n do происходит расчет факториала числа k и сохраняется в переменной f.
  7. Затем рассчитывается сумма c/f1 и сохраняется в переменной s.
  8. Цикл for i:=1 до f+1 do рассчитывает факториал числа i и сохраняет его в переменной f1.
  9. После завершения цикла for i=1 to f+1 do переменная f1 содержит факториал числа f+1.
  10. Значение переменной s, полученное в результате суммирования c/f1, выводится на экран.
  11. Программа завершается вызовом readkey, который позволяет пользователю нажать любую клавишу для выхода из программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы