Найти значение выражения

@pywok96 · Регистрация: 07.10.2015

Помогите пожалуйста решить задачу в TurboPascal:
Найти значение выражения вида: 1+x^2/2!+x^4/4!+x^6/6!+...x^(2n)/(2n!)
Заранее спасибо.

@CodeR · 08.10.2015, 12:03

Pascal

var
  s, x, pr: real;
  i, n: integer;
 
begin
  write('x: ');readln(x);
  write('n: ');readln(n);
  pr := 1;
  i := 2;
  s := pr;
  while i <= 2 * n do
  begin
    pr := pr * ((x * x) / (i * (i - 1)));
    s := s + pr;
    i := i + 2;
  end;
  writeln('S = ', s:0:4);
  readln;
end.

@pywok96 · 08.10.2015, 18:02 **[ТС]**

Большое спасибо!)

@pywok96 2 / 2 / 2 Регистрация: 07.10.2015 Сообщений: 28
		1
	Найти значение выражения 07.10.2015, 22:26. Показов 1062. Ответов 2 Метки нет (Все метки) Помогите пожалуйста решить задачу в TurboPascal: Найти значение выражения вида: 1+x^2/2!+x^4/4!+x^6/6!+...x^(2n)/(2n!) Заранее спасибо. 0

@pywok96 2 / 2 / 2 Регистрация: 07.10.2015 Сообщений: 28
	08.10.2015, 18:02 [ТС]	3
	Большое спасибо!) 0

Опции темы

Найти значение выражения

Решение