Описание алгоритма. Вводятся значения элементов массива «х» и желаемого коэффициента точности «е». Присваиваются нулевые значения текущего члена S2, последующего члена S1, а также n (показатель степени и факториала). S1присваивается значению S2. Вычисляется значение S1.Значение nувеличивается на 1. Данные операции проводятся до достижения необходимой точности и для каждого элемента массива «х».
3) programmassive; usescrt; var i, n: integer; S1, S2, e :real; x: array[1..10] ofreal; functionfact(n:integer):real; {вычисление значения факториала "n"} begin if n=0 then fact:=1 else fact:=fact(n-1)*n; end; begin clrscr; for i:=1 to 10 do {Ввод значений, принимаемых переменной "х"} begin writeln('Введите ', i, ' элемент массива'); readln(x[i]); end;
write('e='); {Ввод значения коэффициента точности вычислений} readln(e);
for i:=1 to 10 do begin; S1:=0; S2:=0; n:=0; repeat S2:=S1; S1:=S1+(exp(n*ln(x[i])))/(fact(n)); {Вычисление значения суммы предыдущих и последующего членов} n:=n+1; until abs(S1-S2)<=e; {Проверка достижения заданной точности} writeln(S2); {Вывод значения суммы} readln; end; end.
4) Результаты выполнения программыпри е=0,01: X S2 1 2.70833333333576E+0000 2 7.38095238095411E+0000 3 2.00796651785786E+0001 4 5.45939826428657E+0001 5 1.48402917371131E+0002 6 4.03421694338787E+0002 7 1.09662819474190E+0003 8 2.98094688156620E+0003 9 8.10307611395419E+0003 10 2.20264602662623E+0004