Двумерный массив

[Monry]

1)Вычислить элементы матрицы А по формуле:

2)Используя известную матрицу А вычислить вектор Х, если хi (i=1,2,…,n) вычисляется по формуле:

3)Вычислить значение функции:


Помогите пожалуйста (найдите ошибки и т.д.) я не уверен что сделал правильно)


текст программы

program Work_5;
var A:array[1..100,1..100] of real;
    X:array[1..100] of real;
    i,j,m,n,k,b,c:Integer;
    s,y,p,sum:real;
begin
writeln('------------- PART 1 ---------------');
Writeln('Исходная матрица: ');
Write('Введите n=');
Readln(n);
Write('Введите m=');
Readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=(-1)*exp(ln(abs(-1))*(i+j))*(2.2*i-j);
Write(A[i,j]:8:2);
end;
Writeln;
end;
writeln('------------- PART 2 ---------------');
for j:=1 to n-1 do 
s:=0;
k:=0;
for b:=j+1 to n do
begin
for i:=1 to n do begin
s:=sqrt(s+sqr(a[n,j])+sqr(a[n,b]));
k:=k+1;
x[i]:=s/k;
write(x[i]:10:3);
end;
Writeln;
end;
writeln('------------- PART 3 ---------------');
p:=1;
sum:=0;
for i:=1 to n do begin
for c:=i to n do
sum:=sum+cos(x[c]);
end;
for i:=1 to n do begin
p:=p*x[i]*sum;
y:=p;
end;
writeln(y);
end.

[whatever]

Во-первых: научись пользоваться кнопкой "#" на форуме. Если код оформляется нормально, то вероятность того, что тебе помогут, многократно возрастает.

Во-вторых: когда ищем вектора, каким-то волшебным образом у индекса матрицы (одного, вторго вообще нет) появился подиндекс. Ладно, будем считать, что это два индекса матрицы.

В-третих:

var
  A:array[1..100,1..100] of real;
  X:array[1..100] of real;
  i,j,m,n,k,b,c:Integer;
  s,y,p,sum:real;
begin
  writeln('------------- PART 1 ---------------');
  Writeln('Исходная матрица: ');
  Write('Введите n=');
  Readln(n);
  Write('Введите m=');
  Readln(m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          //A[i,j]:=(-1)*exp(ln(abs(-1))*(i+j))*(2.2*i-j);
          if odd(i+j) then
            A[i,j]:=-1*(2.2*i-j)
          else
            A[i,j]:=(2.2*i-j);
          Write(A[i,j]:8:2);
        end;
      Writeln;
    end;

  writeln('------------- PART 2 ---------------');
  for i:=1 to n do
    begin
      x[i]:=0;
      for j:=1 to i do
        x[i]:=x[i]+sqr(A[n,j]);
      x[i]:=sqrt(x[i])/n;
      writeln('x[',i,']= ',x[i]);
    end;

  writeln('------------- PART 3 ---------------');
  p:=1;
//  sum:=0;
  for j:=1 to n do
    begin
      sum:=0;
      for k:=j to n do
        sum:=sum+cos(x[k]);
      p:=p*sum*x[j]
    end;
  writeln(p);
  readln
end.