Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT

@Алексей1987_456 · Регистрация: 02.04.2018

Author24 — интернет-сервис помощи студентам

Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT..UNTIL.

Ряд:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\sum_{n=1}^{\infty}\frac{x^{-n}}{n+10}<br />$

Точность: 0.00018

@Puporev · 02.04.2018, 12:33

1.

Pascal

var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите x<>0 x=');
readln(x);
until x<>0;
e:=0.00018;
n:=1;
t:=1/x;
s:=t/11;
while abs(t)/(n+10)>e do
 begin
  n:=n+1;
  t:=t/x;
  s:=s+t/(n+10);
 end;
writeln('S=',s:0:5);
write('Достигнутая точность=',t/(n+10):0:5);
readln
end.

2.

Pascal

var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите x<>0 x=');
readln(x);
until x<>0;
e:=0.00018;
n:=1;
t:=1/x;
s:=t/11;
repeat
n:=n+1;
t:=t/x;
s:=s+t/(n+10);
until abs(t)/(n+10)<=e;
writeln('S=',s:0:5);
write('Достигнутая точность=',t/(n+10):0:5);
readln
end.

@Алексей1987_456 0 / 0 / 0 Регистрация: 02.04.2018 Сообщений: 7
		1
	Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT 02.04.2018, 11:54. Показов 3787. Ответов 1 Метки нет (Все метки) Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT..UNTIL. Ряд: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\sum_{n=1}^{\infty}\frac{x^{-n}}{n+10}<br />$ Точность: 0.00018 0

	02.04.2018, 12:33

Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT

Решение