матрицы (delphi)

[mxra1n]

помогите пожалуйста,оочень надо

Найти минимальный положительный элемент в главной диагонали матрицы. Сформировать вектор из элементов столбца, содержащего этот элемент, упорядочить вектор по возрастанию. Поменять места-ми элементы 2-й и 4-й строк.

[ByAlex]

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

помогите пожалуйста,оочень надо

Найти минимальный положительный элемент в главной диагонали матрицы. Сформировать вектор из элементов столбца, содержащего этот элемент, упорядочить вектор по возрастанию. Поменять места-ми элементы 2-й и 4-й строк.

И чего здесь сложного? Сами что-нибудь пытались делать?

[mxra1n]

я даже с чего начать не знаю
это знающему человеку легко,а я тут вообще сообразить ничего не могу
это,конечно,наглость,но я надеялся на вас,тк сказать чтобы с нуля мне помогали
если несложно конечно

[ByAlex]

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

я даже с чего начать не знаю
это знающему человеку легко,а я тут вообще сообразить ничего не могу
это,конечно,наглость,но я надеялся на вас,тк сказать чтобы с нуля мне помогали
если несложно конечно

Держи, здесь все подробно - каждый цикл выполняет отдельную задачу. Можно было и компактнее сделать, но будет сложнее для понимания!

program Project1;
uses
  SysUtils;
const
  n=6;
  m=6;
var
  A:array[1..n,1..m] of Real;
  B:array[1..n] of Real;
  i, j, posMin:Integer;
  t, min:Real;
begin
  writeln('Massive is - ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if (i+j)>6 then
        A[i,j]:=2.56*(i+j)-21.75/sqrt(j+sqr(i))
      else A[i,j]:=3.9*sqr(j)-7.2*ln(14.9*i+sqr(j));
      write(A[i,j]:4:2,'   ');
    end;
    writeln;
  end;

  min:=A[1,1];
  posMin:=1;
  for i:=2 to n do
    if min>A[i,i] then
    begin
      min:=A[i,i];
      posMin:=i;
    end;
  Writeln(#13#10'Min = ', min:4:2);

  for i:=1 to n do
    B[i]:=A[i,posMin];

  for i:=1 to n do
    for j:=1 to m-1 do
      if B[j]>B[j+1] then
      begin
        t:=B[j];
        B[j]:=B[j+1];
        B[j+1]:=t;
      end;
  Writeln(#13#10'Sorted vector B = ');
  for i:=1 to n do
    writeln(B[i]:4:2, ' ');

  for i:=1 to n do
  begin
    t:=A[i,2];
    A[i,2]:=A[i,4];
    A[i,4]:=t;
  end;

  Writeln(#13#10'Result matrix - ');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(A[i,j]:4:2,'   ');
    Writeln;
  end;
  readln;
end.

[Stilet]

даже с чего начать не знаю

Заполнение массива и поиск минимума

var a:array[1..6,1..6] of double;i,j:byte;min:double;
begin min:=-MaxInt;
 for i:=1 to 6 do
  for j:=1 to 6 do begin
    if (i+j)>6 then a[i,j]:=2.56*(i+j)-(21.75/sqrt(j+i*i))
    else a[i,j]:=3.9*j*j-7.2*log(14.9*j+i*i);
    if (i=j) and (min>a[i,j]) then min:=a[i,j];
  end;
end.

Теперь ты знаешь с чего начинать.

[ByAlex]

Stilet, здесь ошибка будет, Delphi такого не знает! Надо Ln.

if (i+j)>6 then a[i,j]:=2.56*(i+j)-(21.75/sqrt(j+i*i))
    else a[i,j]:=3.9*j*j-7.2*log(14.9*j+i*i);

[mxra1n]

спасибо огромное)))

[Stilet]

здесь ошибка будет

Перепутал. Бывает.