Задать вопрос Регистрация
Помочь другим

  • помогите пожалуйста с 13 задачей (напишите программу,не используя power)
    огромное спасибо (Pascal ABC )

    question img

Ответы 6

  • проверила

    • Автор:

      fernm8oj
    • 6 лет назад
    • 0
  • Что пишет?

    • Автор:

      gaugew1mf
    • 6 лет назад
    • 0
  • Текст сообщения приведите

    • Автор:

      boo bear
    • 6 лет назад
    • 0
  • И, главное, Вы обратили внимание на первую строку в программе: // PascalABC.NET 3.1, сборка 1174 от 22.02.2016
  • Вы в какой среде запускаете программу?

    • Автор:

      marquise
    • 6 лет назад
    • 0
  • Сумму членов предложенного ряда можно записать в следующем виде:\displaystyle S=1+\sum_{i=1}^n(-1)^i \frac{x^{2i}}{(2i)!}=1+\sum_{i=1}^nz_iE_i \\ z_i= \left \{ {{-1, \quad i=1} \atop {-(z_{i-1}), \quad i\ \textgreater \ 1}} ight. \\ E_i= \frac{x^2}{2i(2i-1)} \times E_{i-1}, \quad i\in\mathbb N// PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  var x:=ReadReal('x=');  var n:=ReadInteger('n=');  var s:=1.0;  var e:=1.0;  var z:=-1;  for var i:=1 to n do begin    e:=e*x*x/(2*i*(2*i-1));    s:=s+z*e; z:=-z    end;  Writeln(s)end.Тестовое решение:x= 0.45n= 200.900447102352677Для сравнения cos(0.45)≈0.90044710235267692166884061148С учетом округления последнего разряда все выведенные знаки верны.

    • Автор:

      autumn50
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years