процедуры

[кусака]

40 50 40
Z= (∑sin(Xi)+∑cos(Yi)/∑|Xi|)
I=1 i=1 i=1
Yi Xi- произвольные массивы любого размера
все суммы вычислить в одной процедуре.
как правильно организовать эту процедуру? и как к ней обратится из программы?
помогите! это срочно! завтра зачет!

[Жека-старший]

переменная x типа array[1..100] of real
n- размерность массива
kl- это ключ, по которому мы судим, какую сумму накапливаем:
-сумму синусов;
-сумму косинусов;
3- сумму модулей

procedure pr_sum(kl:byte; a:array[1..100] of real;n:byte; var sum:real);
var i:byte;
begin
  for i:=1 to n do
  case kl of
  1:sum:=sum+sin(a[i]);
  2:sum:=sum+cos(a[i]);
  3:sum:=sum+abs(a[i]);
  end;
end;
begin
  .........//вводишь первый массив
  .........//вводишь второй массив
  .........
  pr_sum(1,x,n,sum1);
  pr_sum(2,y,n,sum2);
  pr_sum(3,x,n,sum3);
  z:=sum1+sum2/sum3;
end;

[Жека-старший]

procedure pr_sum(a:array[1..100] of real;n:byte; var sum1,sum2,sum3:real);
var i:byte;
begin
  for i:=1 to n do
  begin
  sum1:=sum1+sin(a[i]);
  sum2:=sum2+cos(a[i]);
  sum3:=sum3+abs(a[i]);
  end;
end;
begin
  .........
  .........
  .........
  pr_sum(x,n,sum1,sum2,sum3);
  z:=(sum1+sum2)/sum3;

или так. Даже будет лучше

[кусака]

так у меня число сумм разное. синуса 50 косинуса 40. как с этим быть?

[Жека-старший]

размерности разные?
Если да то:

procedure pr_sum(kl:byte; a:array[1..100] of real;n:byte; var sum:real);
var i:byte;
begin
  for i:=1 to n do
  case kl of
  1:sum:=sum+sin(a[i]);
  2:sum:=sum+cos(a[i]);
  3:sum:=sum+abs(a[i]);
  end;
end;
begin
  .........//вводишь первый массив
  .........//вводишь второй массив
  .........
  pr_sum(1,x,40,sum1);//количество суёшь вместо n
  pr_sum(2,y,50,sum2);
  pr_sum(3,x,40,sum3);
  z:=sum1+sum2/sum3;
end;

[mifomen]

лучше функцию использовать, т.к. есть зависимость от i

[Жека-старший]

mifomen, на все сто согласен!
Но у него написано процедуру.

[mifomen]

Да, я видел. Просто с функцией будет рациональней решение.