Вычислить сумму ряда с заданной точностью

@kawa · Регистрация: 24.12.2013

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

Задали задачу по паскалю а я не могу решить((( помогите пожалуйста)))

@volvo · 24.12.2013, 19:40

Pascal

const 
  eps = 1E-4;
var 
  s, p, X : real;
  n : integer;
begin
  X := 0.12;
  s := 1; n := 0; p := 1;
  repeat
    inc(n);
    p := X * p / n;
    s := s + p * cos(n * pi / 3);
  until abs(p * cos(n * pi / 3)) < eps;
  writeln(s:10:5);
end.

@kawa 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 16
		1
	Вычислить сумму ряда с заданной точностью 24.12.2013, 17:48. Показов 1140. Ответов 1 Метки нет (Все метки) Задали задачу по паскалю а я не могу решить((( помогите пожалуйста))) Миниатюры 0

Опции темы

Вычислить сумму ряда с заданной точностью

Решение