лабораторная работа / Лабораторная работа3

Лабораторная работа №3.

Д ано: x=0.5, a=1.5, с точностью e=0.0001

БЛОК СХЕМА.

Program lab3;

Var x, a, s, e, xn: real; n: integer;

Begin

Write(‘Vvedite x, a, e’);

Read(x, a, e);

S:=0;

Xn:=1;

N:=1;

While xn>e do begin

S:=s+xn;

Xn:=xn*x*LN(a)/(n+1);

N:=n+1;

End;

Write(‘s=’, s:12:6, ‘xn=’, xn:12:6, ‘n=’, n:10);

End.

Результат: s=1.108563, xn=0.000014, n=5.