Условие:
1. Записать расчетные формулы для вычисления слагаемого по рекуррентной формуле
2. Вычислить сумму с точностью до члена ряда, меньшего е, в указанном диапазоне изменения х с определенным шагом. Для получения шага диапазон разделить на п.
3. Сравнить вычисленное значение суммы функционального ряда с данной суммой ряда у {сравнить полученные суммы с у}.
Указания. Результат напечатать в виде таблицы: первый столбец - значение х, второй — вычисленное значение суммы 5, третий 1 значение у. Значение точности е > 0 ввести с клавиатуры.
Вот мои наработки:
program summa;
Uses crt;
Var w,n,a,j:integer;
eps,x,z,s,i,e:real;
k:longint;
BEGIN
ClrScr;
Writeln(' x s y n');
x:=pi/2; w:=0;
Repeat
s:=0; j:=1; k:=1; eps:=0.00001;
Write(x:3:1);
Repeat
j:=j+1;
k:=k*j;
{Write(' n=',j:4);
Write(' in k=',k:14);}
i:=exp((j/2)*ln(2)) * sin(j*pi/4) * exp((j)*ln(x)) ; z:=i/k; s:=s+z;
{Write(' x^n=',i:4:2);
Writeln(' an=',z:10:8); }
Until abs(z)<eps;
e:=exp(x)*sin(x);
Write(' ',s:10:5);
Write(' ',e:10:5);
w:=w+1; Writeln(' ',w);
x:=x+1/10;
Until x>pi;
Readln;
END.
Функцию y вроде считает правильно, сумму неправильно