Question

Помогите написать код в pascal для вычисления суммы ряда s=(x^2/2!)+(x^4/4!)+(x^6/6!)+...+(x^n/n!)

Answer 1

// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal('x=');

 var n := ReadInteger('n=');

 var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);

 for var i := 1 to n do

 begin

   p *= k;

   q *= 2 * i * (2 * i - 1);

   s += p / q

 end;

 Println('Сумма =', s)

end.

Answer 2

Конечно! Вот код на Pascal для вычисления суммы ряда:

pascalCopy code
program SumOfSeries;

function Factorial(n: Integer): Integer;
begin
  if n = 0 then
    Result := 1
  else
    Result := n * Factorial(n - 1);
end;

function CalculateSeriesSum(x, n: Integer): Real;
var
  i: Integer;
begin
  Result := 0.0;
  for i := 1 to n do
    Result := Result + Power(x, 2 * i) / Factorial(2 * i);
end;

var
  x, n: Integer;
  seriesSum: Real;

begin
  Write('Введите значение x: ');
  Readln(x);

  Write('Введите значение n (количество слагаемых): ');
  Readln(n);

  seriesSum := CalculateSeriesSum(x, n);
  writeln('Сумма ряда равна: ', seriesSum:0:6);
end.

Программа вычисляет сумму ряда, используя функцию Factorial для вычисления факториала и функцию CalculateSeriesSum, которая выполняет итерацию по всем слагаемым ряда и вычисляет их сумму. После выполнения вычислений, результат выводится на экран.