Whileabs( c ) > eps do

Begin

c:=c * (((x-1)*(n+1))/((n+2)*(x+1)));

y:=y + c;

inc(n);

if n <= MaxIter then continue;

Writeln('|’Ряд расходится');

Done:= false; break

end;

if done then Writeln('Аргумент: ', x:10:6,

'Значение функции:', y:10:6,

'Вычислено с точностью ', eps:8:6, 'за', n, 'итераций');

readln

End.

Введите аргумент и точность:

0.01

Аргумент: 2.000000Значение функции: 2.593416Вычислено с точностью 0.010000за5итераций

Задание №5.

Составить алгоритм и программу для предложенного варианта. Исходные данные необходимо подобрать самостоятельно, исходя из допустимой области значений исследуемой функции.

program Задание5;

Var

a,x,y: real;

Begin

Write ('Введите значение числа a = ');

Readln (a);

x:=2.84+a*a;

y:=(1/x)*(sin(1/x))*(sin(1/x))*(sin(1/x))*(sin(1/x))*(sin(1/x))*(sin(1/x))*(sin(1/x))*(sin(1/x));

Writeln ('y=',y);

end.

Введите значение числа a = 0

y=7.04761496802254E-05

Задание №6.

Разработать схему алгоритма и составить программу вычисления функции. Результаты вывести на экран дисплея.

program Задание6;

Var x, a, P: real;

Begin

Writeln('Введите значение x:');

Readln(x);

P:=1;

Begin

If (x>=0) then a:=1

Else

a:=-1;

P:=P*(0.25+a*sin(x));

P:=P*(0.25+a*sin(x));

P:=P*(0.25+a*sin(x));

P:=P*(0.25+a*sin(x));

Writeln ('Р= ', P, 'при х= ', x);

end;

end.

Введите значение x:

Р= 0.00390625при х= 0

Задание №7.

Треугольник задан длинами сторон. Найти радиусы вписанной и описанной окружностей.

Var a, b, c, R, K: real;

Begin

Writeln ('Введите значения сторон a, b, c');

Readln (a);

Readln (b);

Readln (c);

If (a<b+c) and (a>b-c) or (b<a+c) and (b>a-c) or (c<a+b) and (c>a-b) then

Begin

R:= (a*b*c)/sqrt((a+b+c)*(-a+b+c)*(a-b+c)*(a+b-c));

K:= sqrt(((-a+b+c)*(a-b+c)*(a+b-c))/(4*(a+b+c)));

Writeln ('Радиус описанной окружности= ', R, 'Радиус вписанной окружности= ', K);

End

else writeln ('Треугольник не существует');

end.

Введите значения сторон a, b, c

Радиус описанной окружности= 2.5Радиус вписанной окружности= 1