Pascal программа для вычисления функции. Дано натуральное п и действительное х. Вычислить значение суммы.

Вот пример программы на языке Pascal, которая вычисляет значение суммы для заданных значений натурального числа п и действительного числа х:

program PascalFunction;

var
  p: integer;
  x, sum: real;
  i, factorial: integer;

begin
  writeln('Введите значение натурального числа p:');
  readln(p);

  writeln('Введите значение действительного числа x:');
  readln(x);

  sum := 0;
  factorial := 1;

  for i := 0 to p do
  begin
    sum := sum + (power(x, i) / factorial);
    factorial := factorial * (i + 1);
  end;

  writeln('Значение суммы для p = ', p, ' и x = ', x, ' равно ', sum);

  readln;
end.

Программа запрашивает у пользователя значения натурального числа p и действительного числа x. Затем она вычисляет значение суммы, используя формулу ряда Тейлора для функции exp(x). Результат выводится на экран.

Обратите внимание, что в данной программе используется функция power(x, i) для возведения числа x в степень i. Эта функция возвращает значение типа real. Если вам нужно использовать только целые значения степени, вы можете использовать оператор возведения в степень (^) вместо функции power.