Программирование матричных операций

[marsel31]

Программирование матричных операций

1)aji=(2ij+4i)/i!
2)Xi=скалярное произведение второй строки на i-тый столбец
3)Элементы главной диагонали по убыванию
4)y=sqrt(X1...Xn)

 

[marsel31]

Хотя бы 2ую помогите решить,я только учусь еще.

 

[Vladimir_S]

я только учусь еще.

Сразу скажу - плохой Вы способ выбрали для учения: получив задание, скакать по форумам. Уверяю Вас - так Вы ровно ничему никогда не научитесь. Оттого, что Вы тупо скатаете и сдадите готовое решение, Вы ничуть не продвинетесь в освоении программирования, а разбирать чужую программу это, уж поверьте, куда сложней, чем написать и отладить свою. Впрочем, попробуйте: вот программа, решающая "в одном флаконе" первые три задания. Смысла записи под номером 4 я, увы, просто не понял.

Const
 N=5;

Var
 M:Array[1..N,1..N] of real;
 i,j,k:Byte;
 SP,Den:Real;
 D:Array[1..N] of Real;

Begin
 Den:=1;
 For i:=1 to N do
  begin
   Den:=Den*i;
   For j:=1 to N do
    begin
     M[i,j]:=(2*i*j+4*i)/Den;
     Write(M[i,j]:8:4);
    end;
   Writeln;
  end;
 Writeln;
 For i:=1 to N do
  begin
   SP:=0;
   For j:=1 to N do
    SP:=SP+M[2,j]*M[j,i];
   Writeln('X',i,'= ',SP:0:4);
  end;
 Writeln;
 For i:=1 to N do
  D[i]:=M[i,i];
 Writeln('Ordered diagonal:');
 For i:=1 to N-1 do
  For j:=1 to N-i do
   If D[j]<D[j+1] then
    begin
     Den:=D[j];
     D[j]:=D[j+1];
     D[j+1]:=Den;
    end;
 For i:=1 to N do Write(D[i]:8:4);
 Readln
End.

 

[marsel31]

спасибо)

не подскажите где можно именно про матрицы почитать,в книге у меня нет(
в интернете ничего толкового не смог найти

 

[Vladimir_S]

не подскажите где можно именно про матрицы почитать,в книге у меня нет(
в интернете ничего толкового не смог найти

Советую еще раз попробовать поискать в Интернете - там информации море. И про матрицы вообще, и про программирование многомерных массивов, и руководства по языкам программирования с соответствующими разделами - всё есть.