Вычислить сумму функционального ряда и функцию в паскале

breakoyt · 29.03.2014, 16:33

Нужно написать прогу в паскале по вычислению функционального ряда и функции. Дается кол-во членов n, диапазон изменения аргумента и шаг.
Все показано в файле.
Если кто поможет, то буду очень благодарна.

Vladimir_S · 29.03.2014, 20:17

Цитата:

Сообщение от breakoyt

Нужно написать прогу в паскале по вычислению функционального ряда и функции.

Да пожалуйста, нужно - так нужно:

Код:

Const
 a=0.1;
 b=1.0;
 h=0.1;

Var
 N,i,j:Integer;
 S,x,Q:Real;

Function Fun(z:real):real;
begin
 Fun:=(1-z*z/2)*Cos(z)-z/2*Sin(z);
end;

Begin
 N:=Round((b-a)/h);
 Writeln(' x      Sum  Accurate value');
 For i:=0 to N do
  begin
   x:=a+h*i;
   Q:=1;
   S:=Q;
   for j:=1 to 40 do
    begin
     Q:=-Q*x*x/(2*(j-1)*(j-1)+1)*(2*j*j+1)/((2*j-1)*2*j);
     S:=S+Q;
    end;
   Writeln(x:3:1,S:9:3,Fun(x):10:3);
  end;
 Readln
End.

29.03.2014, 16:33	#1 (permalink)
breakoyt Новичок Регистрация: 29.03.2014 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вычислить сумму функционального ряда и функцию в паскале Нужно написать прогу в паскале по вычислению функционального ряда и функции. Дается кол-во членов n, диапазон изменения аргумента и шаг. Все показано в файле. Если кто поможет, то буду очень благодарна. Миниатюры

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