Матрицы и Ряды

[animous]

Нужна помощь в решении 2х задач, очень буду благодарен, спасибо заранее.

1) Найти среднее арифметическое элементов матрицы, лежащих ниже диагонали.

2) Найти функцию с точностью e , т.е. пока |fn+1-fn| < e . Определить необходимое число членов ряда. Определить абсолютную разность между табличной функцией и суммой ряда. Определить с какой точностью в машине определяется эта функция.

ex = 1 + x +x2/2! + x3/3! + ...

[VilAm]

язык реализации?

лежащих ниже диагонали

какой? главной? побочной?

[animous]

VilAm
С++, Главной.

[VilAm]

ну а самое главное

язык реализации?

вот 1 на паскале

var i,j:Integer;
     n:Integer;
     sp:Real;
     k:integer;
     a:array[1..100,1..100] of Integer;
begin
  Randomize;
  Writeln('input n');
  Readln(n);
  sp:=0;
  k:=0;
  for i:=1 to n do
    for j:=1 to n do
    a[i,j]:=Random(30)-20; (*для ручного ввода заменить на readln(a[i,j]);*)
    Writeln('****MATRIX****');
    for i:=1 to n do begin
    for j:=1 to n do
    write(a[i,j]:6);
    Writeln;
    end;
    Writeln('**********************');
    for i:=1 to n do
    for j:=1 to n do
    if j>i then begin
      sp:=sp+a[i,j];
      k:=k+1;
     end;
     sp:=sp/k;
     Writeln('**average=',sp:6:3);
    Writeln('*Press any key to exit*');
    Readln;
end.

ну а для 2 вот процедура

procedure sumexp(x:real;var e:real;var s:real);
var ch1:real; 
    Ch,mn:real;
    i:Integer;
begin
ch1:=0
  i:=1;
  mn:=x/i;
  ch:=1;
  s:=0;
  while abs(Ch-ch1)>e do begin
    s:=s+ch; 
    ch1:=ch;
    ch:=mn*ch/i; 
    i:=i+1;       
  end;
end;

[Alex Cones]

Почитайте про диагонали, полезно: http://www.programmersforum.ru/showthread.php?t=70310

[animous]

Спасибо, хорошая статья, не подскажите какой формулой задать среднее арифметическое?

[VilAm]

В математике и статистике сре́днее арифмети́ческое (или просто среднее) набора чисел — это сумма всех чисел в этом наборе делённая на их количество.

wikipedia!