Важная информация
Показано с 1 по 2 из 2

Тема: Как вывести рекуррентную формулу ?

  1. #1 Как вывести рекуррентную формулу ? 
    Новичок
    Регистрация
    28.05.2019
    Сообщений
    11
    Сказал(а) спасибо
    2
    Поблагодарили 1 раз в 1 сообщении
    Pascal Code:
    1.  
    2. program lab7;
    3. const e=0.001;
    4. x=3;
    5. var x1,s,t:real;
    6. n:integer;
    7. begin
    8. x1:=x/3;
    9. n:=0;
    10. t:=x1;
    11. s:=t;
    12. while abs(t)>e do
    13. begin
    14. n:=n+1;
    15. t:=t*x1*x1/(2*n)/(2*n+1);
    16. s:=s+t;
    17. end;
    18. writeln('S=',s:0:4);
    19. write('sh(x/3)=',(exp(x1)-exp(-x1))/2:0:4);
    20. end.
    Ответить с цитированием  
     

  2. #2  
    Профи
    Регистрация
    09.11.2013
    Сообщений
    331
    Сказал(а) спасибо
    17
    Поблагодарили 90 раз(а) в 64 сообщениях
    Нужно разделить Ai/Ai-1
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Как вывести минимальное значение d?
    от paneev02 в разделе Pascal ABC
    Ответов: 1
    Последнее сообщение: 13.05.2020, 22:31
  2. Как вывести Webmoney ?
    от Glava в разделе Электронная коммерция
    Ответов: 18
    Последнее сообщение: 22.02.2018, 15:08
  3. Joomla - вывести имя пользователя
    от Ultra_Dragonoid в разделе Системы управления контентом
    Ответов: 3
    Последнее сообщение: 24.03.2015, 16:24
  4. Ответов: 1
    Последнее сообщение: 03.12.2014, 05:18
  5. Как вывести сообщение в трее?
    от suxoranu в разделе Visual Basic
    Ответов: 3
    Последнее сообщение: 29.11.2014, 14:04
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •