Написать программу вычисления суммы - Pascal (80988)

Узнай цену своей работы

Формулировка задачи:

Написать программу вычисления суммы S=x-(x/2)^2+(x/3)^3-(x/4)^4+...(n членов). Моя попытка решить данную задачу не увенчалась успехом:
Program test;
 var i,n,k,b:integer;
     x,s,z,m,v:real;
  begin
   write ('Введите кол-во членов ряда: ');
   readln (n);
   write ('Введите X: ');
   readln (x);
   k:=-1; s:=x; v:=x;
   for i:=2 to n-1 do
      begin
      for b:=1 to i do 
      z:=i*i;
      v:=x*v;
      m:=v/z;
      s:=s+m*k;
    end;
   write ('Сумма =:', s:5:2);
  end.

Решение задачи: «Написать программу вычисления суммы»

textual
Листинг программы
var i,n:integer;
    x,s,v:real;
begin
write ('Введите кол-во членов ряда: ');
readln (n);
write ('Введите X: ');
readln (x);
v:=x;//первый член
s:=x; //первая сумма
for i:=2 to n do
 begin
  v:=-v*x;//меняем знак и домножаем на х
  s:=s+v/i;//делим на индекс и прибавляем
 end;
writeln('Сумма =',s:0:4);
// при |x|<1 ряд сходится для функции ln(x+1)
//write('ln(x+1)=',ln(x+1):0:4)
end.

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

  1. Создается переменная n, которая представляет собой целое число, введенное пользователем.
  2. Создается переменная x, которая представляет собой вещественное число, введенное пользователем.
  3. Создается переменная s, которая представляет собой вещественное число, и инициализируется значением x.
  4. Создается переменная v, которая представляет собой вещественное число, и инициализируется значением x.
  5. Запускается цикл for, который выполняется от 2 до n (включительно).
  6. Внутри цикла переменная v изменяется на -v*x, что меняет ее знак и умножает на x.
  7. Затем переменная s изменяется на сумму v/i, где i - это текущий индекс (i=2 до n).
  8. После завершения цикла for, выводится сообщение Сумма =, за которым следует значение переменной s, округленное до четырех знаков после запятой.
  9. Код завершается.

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


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

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

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