Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 19.04.2017, 15:27   #1 (permalink)
Anika69
Новичок
 
Регистрация: 19.04.2017
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal

помогите решить это, пожалуйста
Миниатюры
aacuiyiiue.png  
Anika69 вне форума   Ответить с цитированием

Старый 19.04.2017, 15:27
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Очень эффективно в решении проблемы просто пролистать похожие обсуждения

Pascal
Pascal ABC
Pascal
Pascal
Pascal

Старый 19.04.2017, 15:41   #2 (permalink)
MagentaTiger
Специалист
 
Аватар для MagentaTiger
 
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
По умолчанию

А условия схождения ряда какие ? т.е. какая точность схождения ? Ну или грубо говоря какое максимальное n для данного ряда
MagentaTiger вне форума   Ответить с цитированием
Старый 19.04.2017, 15:48   #3 (permalink)
Anika69
Новичок
 
Регистрация: 19.04.2017
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от MagentaTiger Посмотреть сообщение
А условия схождения ряда какие ? т.е. какая точность схождения ? Ну или грубо говоря какое максимальное n для данного ряда
это всё, что дано..
Anika69 вне форума   Ответить с цитированием
Старый 19.04.2017, 16:08   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

ПолучИте:
Код:
Function S(x:real;n:byte):real;
var
 a,T:real;
 i:byte;
begin
 a:=1;
 T:=a;
 for i:=1 to n do
  begin
   a:=a/(2*(i-1)+1)*(2*i+1)/i*Sqr(x);
   T:=T+a;
  end;
 S:=T;
end;

Function F(x:real):real;
begin
 F:=(1.0+Sqr(x)*2)*Exp(Sqr(x));
end;

Begin
 Writeln('Result:');
 Writeln(S(0.5,15):0:20);
 Writeln('Function:');
 Writeln(F(0.5):0:20);
 Readln
End.
Цитата:
Сообщение от MagentaTiger Посмотреть сообщение
А условия схождения ряда какие ? т.е. какая точность схождения ? Ну или грубо говоря какое максимальное n для данного ряда
Да зачем это? Сказано - просуммировать 15 членов, уж что получится, то получится. Кстати, сходимость очень высокая: учет 15-ти членов дает точный результат по крайней мере до 20-го знака (дальше не проверял).
Vladimir_S вне форума   Ответить с цитированием
Старый 19.04.2017, 16:18   #5 (permalink)
MagentaTiger
Специалист
 
Аватар для MagentaTiger
 
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
По умолчанию

Вы видимо что то обрезали я так понимаю x=0.5 a N=15 ...

Код:
program Project;
uses
  Math;
  function Factorial(n: word): LongInt;
  begin
  if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1);
  end;

  function myrow(x:Double;n:Integer): Double;
  begin
     myrow:= (2*n+1)/Factorial(n)* (Power(x,2*n));
  end;

  var s,x,f:Double;
  n:Integer;
begin


    x:=0.5;
   for n:=0 to 15 do
   begin
     s:=s+myrow(x,n);
   end;
   f:=(1+2*x*x)*exp(x*x);
   writeln('S=' ,s:4:10);
   writeln('f=',f:4:10);
   Writeln('Raznitca=',(s-f):4:10);
   readln;

end.
untitled-2.jpg
MagentaTiger вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 19.04.2017, 16:20   #6 (permalink)
MagentaTiger
Специалист
 
Аватар для MagentaTiger
 
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение

Да зачем это? Сказано - просуммировать 15 членов,
Не дочитал вторую строчку
MagentaTiger вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 22:48.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.