Вычислить сумму ряда

[ExZzoTiC]

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

[Stilet]

Хм... Например так:

program Project1;
uses Math;
Type TArray=array[1..5] of double;
const
 a:TArray=(-1.1,2.4,5.6,-2.4,0.5);
 b:TArray=(1.4,3.6,1.3,-2.1,-3.3);
 x=6.4; z=-0.9;
Function Cosa(x,y:Double):Double; begin Cosa:=cos(x-y); end;
Function Sum(aFrom,aTo:Integer;x,y:TArray;xs,ys:double):Double;
var r:Double;
begin
 r:=0;
 while aFrom<=aTo do begin
   r:=r+power(x[aFrom],xs)-power(y[aFrom],ys);
   Inc(aFrom);
 end;
 sum:=r;
end;

begin
 write('Q=',
   (Sum(1,5,a,b,1,3)/Cosa(x*z,1.7))
  -(Cosa(3.6,x*x)/Sum(2,4,b,a,3,3))
  -(Sum(2,5,a,b,3,3)/Cosa(x,0.3*z))
 );
 readln;

end.

[Krasiosoft]

Я почему-то представил, что нужно что-то вроде этого:

uses Math;

const Ai : array [1..5] of double = (-1.1, 2.4, 5.6, -2.4, 0.5);
      Bi : array [1..5] of double = (1.4, 3.6, 1.3, -2.1, -3.3);

function FirstFraction(x,z:double):double;
var sum:double;
    i:integer;
begin
  sum:=0;
  for i:=1 to 5 do
    sum:=sum+Ai[i]-power(Bi[i],3);
  Result:=sum/cos(x*z-1.7);
end;

function SecondFraction(x:double):double;
var sum:double;
    i:integer;
begin
  sum:=0;
  for i:=2 to 4 do
    sum:=sum+power(Bi[i],2)-power(Ai[i],3);
  Result:=cos(3.6-power(x,2))/sum;
end;

function ThirdFraction(x,z:double):double;
var sum:double;
    i:integer;
begin
  sum:=0;
  for i:=2 to 5 do
    sum:=sum+power(Bi[i],3)-power(Ai[i],3);
  Result:=sum/cos(x-0.3*z);
end;

function Q(x,z:double):double;
begin
  Result:= FirstFraction(x,z)-SecondFraction(x)+ThirdFraction(x,z);
end;

begin
  writeln( 'Q = ',Q(6.4,-0.9) );
  Readln;
end.

К этому еще можно добавить функции Cosa и sum, которые описал Stilet.

[ExZzoTiC]

Очень благодарен, а как это проверить в ЕКСЕЛЕ???

[Stilet]

Ну взять, вбить цифры, и посмотреть какие получились.

[Krasiosoft]

В Экселе, если использовать только формулы, то возможно будет сложность сделать сумму ряда с квадратом или кубом каждого элемента. Я пока не знаю как это сделать.

[ShAM66]

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

В Экселе, если использовать только формулы, то возможно будет сложность сделать сумму ряда с квадратом или кубом каждого элемента. Я пока не знаю как это сделать.

Ну, можно так попробовать.

[Krasiosoft]

Только такой вариант я и знал, но это же дополнительные столбцы. Хотя в них все наглядно видно.

[ShAM66]

У друзей-соседей естьрешение 1 формулой от GoGa:

=(СУММ({-1,1:2,4:5,6:-2,4:0,5}-{1,4:3,6:1,3:-2,1:-3,3}^3)/COS(6,4*-0,9-1,7))-(COS(3,6-6,4^2)/СУММ({3,6:1,3:-2,1}^2-{2,4:5,6:-2,4}^3))+(СУММ({3,6:1,3:-2,1:-3,3}^3-{2,4:5,6:-2,4:0,5}^3)/COS(6,4-0,3*-0,9))

http://www.planetaexcel.ru/forum/ind...t-summu-ryadov