Разработать алгоритм и программу, определяющие сумму ряда с заданной погрешностью - Pascal (87453)

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

Разработать алгоритм и программу, определяющие сумму ряда с заданной погрешностью ε (ипсилон) для произвольно заданного аргумента x. 1+x*lna/1!+(x*lna)^2/2!+...+(x*lna)^n/n!+... . диапазон изменения x: -бесконечность <x< бесконечность. Функция для проверки а^x.

Решение задачи: «Разработать алгоритм и программу, определяющие сумму ряда с заданной погрешностью»

Листинг программы

var a,x,e,y,t,s:real;
    n:integer;
begin
repeat
write('Введите а>0 a=');
readln(a);
until a>0;
write('Введите любое число x=');
readln(x);
repeat
write('Введите точность вычислений e>0 e=');
readln(e);
until e>0;
if e>=1 then s:=1
else
 begin
  y:=x*ln(a);
  s:=1;
  t:=1;
  n:=0;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=t*y/n;
    s:=s+t;
   end;
  end;
writeln('s=',s:0:6);
write('Проверка a^x=',exp(x*ln(a)):0:6);
readln
end.

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

Переменные a, x, e, y, t, s объявлены как real (действительные числа) и n как integer (целое число).
Программа запрашивает у пользователя ввод значения переменной a, пока оно не будет положительным.
Затем программа запрашивает ввод значения переменной x.
После этого программа запрашивает точность вычислений e, пока она не будет положительной.
Если e больше или равно 1, то s устанавливается равным 1.
В противном случае, программа вычисляет значение переменной y как x*ln(a) и устанавливает s равным 1, t равным y и n равным 0.
Затем программа входит в цикл while, который продолжает выполняться, пока абсолютное значение t больше e.
Внутри цикла n увеличивается на 1, t умножается на y/n и добавляется к s.
После выхода из цикла, программа выводит значение s с точностью до 6 знаков после запятой.
Программа также выводит значение a в степени x, используя функцию exp(x*ln(a)).
В конце программы происходит чтение строки.