лабораторная работа / Лабораторная работа3
.docЛабораторная работа №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.