В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

Fortran - написать подпрограмму для вычисления бесконечной суммы с заданной точностью е=0.1.
s=σ(-1)^i/(2*i)!

Показать ответ
Ответ:
nail4iklatyopo
nail4iklatyopo
17.08.2020 15:23

subroutine SumSer(eps, res)

   real eps

   real(8) res

   real(8) :: sgn = -1, z = 1, a

   integer :: i = 1

   res = 0

   do

       z = z * (2 * i) * ( 2 * i - 1)

       a = sgn / z

       if (abs(a) <= eps) then

           exit

       endif

       res = res + a

       sgn = -sgn

       i = i + 1

   enddo

end subroutine SumSer

program MainProg

   real :: eps = 0.00001

   real(8) y

   call SumSer(eps, y)

   write(*,'(1X,F9.6)') y

end program MainProg


Fortran - написать подпрограмму для вычисления бесконечной суммы с заданной точностью е=0.1. s=σ(-1)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота