Вычислить значение выражения

@sergey-gostop · Регистрация: 26.11.2015

написать программу на Pascal, вычислить выражение:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> x-\frac{x^3}{3!}+\frac{x^5}{5!}-\frac{x^7}{7!}+...+(-1)^{n-1}\,\cdot\,\frac{x^{2n-1}}{(2n-1)!}<br />$

Зарание спасибо .

@Puporev · 26.11.2015, 21:27

Pascal

var x,e,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=abs(x) then s:=x
else
 begin
  n:=1;
  t:=x;
  s:=t;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=-t*x*x/((2*n-2)*(2*n-1));
    s:=s+t
   end;
 end;
writeln('S=',s:0:4);
write('sinx=',sin(x):0:4);//для проверки
end.

@sergey-gostop 0 / 0 / 0 Регистрация: 26.11.2015 Сообщений: 1
		1
	Вычислить значение выражения 26.11.2015, 17:29. Показов 921. Ответов 1 Метки нет (Все метки) написать программу на Pascal, вычислить выражение: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> x-\frac{x^3}{3!}+\frac{x^5}{5!}-\frac{x^7}{7!}+...+(-1)^{n-1}\,\cdot\,\frac{x^{2n-1}}{(2n-1)!}<br />$ Зарание спасибо . 0

Опции темы

Вычислить значение выражения

Решение