заключительные аk =( 1,9x+ 7k)/k!program sum;const e = 0.001; var x,

Question

заключительные аk =( 1,9x+ 7k)/k!program sum;const e = 0.001; var x,

Заключительные аk =( 1,9x+ 7k)/k!

program sum;
const e = 0.001;
var x, a,summa : real;
k : integer;
function Factorial(n: word): LongInt;
begin
if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1);
end;
begin
writeln('Введите x:');
readln(x);
summa:= 0;
k:=1;
a := 1.9*x+exp(k*ln(7));
while абс(a) gt; e do
begin
summa:=summa + a;
k := k + 1;
a := exp(1.9*x+exp(k*ln(7)))/Factorial(k);
end;
writeln('Сумма=', summa:5:2);
writeln('Количество слогаемых=', k-1);
end.
Где ошибка?

Задать свой вопрос

Разинков Анатолий 2019-04-18 22:33:46

аn = (2х)n/(10n), выглядет как writeln('Введите число x:');readln(x);summa := 0;n: = 1;a := -2 * x;while abs(a) > e do beginsumma := summa + a;n := n + 1; Вычисляем an+ia := exp(n * ln(2 * x)) / (10*n);end;writeln('Сумма =', summa:5:2); writeln('Количество слагаемых =', n-1);

Жека Здерев 2019-04-18 22:35:46

это так пример

Вадим Хухрянкин 2019-04-18 22:40:40

ааа

Кирилл Мишаев 2019-04-18 22:45:02

но тогда выходит дробленье на 0 ошибка

Мария Дедченко 2019-04-18 22:49:14

где?

Илюшка Седолобов 2019-04-18 22:57:40

a := 1.9*x+exp(k*ln(7))/Factorial(k);

Венксель Диана 2019-04-18 23:03:25

Это комп выдаёт такую ошибку?