Помогите составить программу!!Необходимо составить программку на Pascal!Задачка: Вычислить

Помогите составить программку!!Необходимо составить программку на Pascal!

Задача: Вычислить
x-x^3/3!+x^5/5!-x^7/7!+x^9/9!-x^11/11!

Задать свой вопрос
Галина Живолун
Эту задачку решают непрерывно, решена теснее сотки раз на всех языках..
Леонид Яшманов
Вы, кстати в конце +x^13/13! не дописали
Вадик Штульман
ее там не обязано быть
Валерка Януленок
Ну тогда это совсем иная задачка. Поисковиком её не отыскать...
Василиса Махудинова
сумма гармонического ряда, тоже мне
1 ответ
Если (n - 1)-ое слагаемое равно y, то n-ое слагаемое одинаково -y * x^2 / (2n * (2n + 1)). Осталось положить первое слагаемое одинаковым x и просуммировать 6 раз.

PascalABC.NET 3.2
begin
  var x := readReal;
  var y := x;
  var s := x;
  var n := 1;
  while (n lt; 7) do
  begin
    y := -y * x * x / (2 * n) / (2 * n + 1);
    s += y;
    n += 1;
  end;
  writeln(s);
end.

Пример ввода: 1
Пример вывода: 0.841470984808658
Игорь Писчаренко
чисто энтузиазма ради, а для чего вайл? либо переписаный шаблон?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт