Question

Дано действительное число x и натуральное число n .Написать программу вычисления выражения x^2/1+x^3/2+...+x^n/n-1.В паскале

Answer 1

Компилятора под рукой нет, так что напишу от руки

uses Math;

program find;
begin
var x: real;
var n: integer;
var sum: real := 0;
var res: real;
for var i := 1 to n - 1 do
begin
res := (power(x, i +1) div i) + (power(x, i +1) mod i);
sum += res;
end;
end.

Answer 2

Вот пример программы на языке Pascal, которая вычисляет значение выражения `x^2/1 + x^3/2 + ... + x^n/n-1`:

program ExpressionCalculation;

var
  x: real;
  n: integer;
  i: integer;
  result: real;

begin
  // Ввод значений x и n
  write('Введите значение x: ');
  readln(x);
  write('Введите значение n: ');
  readln(n);

// Вычисление выражения
  result := 0;
  for i := 2 to n do
  begin
    result := result + power(x, i) / (i - 1);
  end;

// Вывод результата
  writeln('Результат вычисления: ', result);

end.

В этой программе мы используем цикл `for` для вычисления суммы всех слагаемых в выражении. Мы начинаем с `i = 2`, так как первое слагаемое `x^2/1` уже включено в начальное значение `result`. Затем мы добавляем каждое следующее слагаемое к `result`, используя функцию `power` для возведения `x` в степень `i`. Наконец, мы выводим полученный результат.

Примечание: В данном ответе не были использованы источники из поисковой выдачи, так как они не содержат информации, которая была бы полезна для данного вопроса.