код в Delphi

[Irusya]

не получается переделать в Delphi...помогите пожалуйста!!!


//перестановка строк
//максимальный элемент
for i:=1 to n do
begin
maxEl := 0;
for j:=i to n do begin
if abs(maxEl) < abs(mainMatrix[j,i]) then
begin
maxEl := mainMatrix[j,i];
max := j;
end;
end;
for k:=1 to n do begin
tmp := mainMatrix[i, k];
mainMatrix[i, k] := mainMatrix[max, k];
mainMatrix[max, k] := tmp;
end;
end;



//вывод матрицы после перестановки
for i:=1 to n do
begin
for j:=1 to n do begin
write(mainMatrix[i,j]);
write(' ');
write(' ');
end;
writeln('');
end;

Readln(a);

[BDA]

Хм, что вы подразумеваете под "переделать в дельфи"?
Этот кусок кода должен работать и в дельфи.

[Irusya]

нужно,чтобы матрица и ответ выдавались в форме(StringGrid1 и StringGrid2)

[BDA]

Покажите свои наработки и напишите условие задачи.

Вот примерчик. Приткнул ваш код, но что он делает, не знаю.

[Irusya]

Переставить строки матрицы NxN так, чтобы по главной диагонали матрицы были расположены элементы наибольшие по абсолютной величине.

program matrix;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
   n = 4;
var
  a :string;
  mainMatrix :array[1..n, 1..n] of integer;
  i, j, k, max, maxEl, tmp :integer;
begin
  write('Matrix ');
  write(n);
  write('x');
  write(n);
  writeln('');
  writeln('');

  mainMatrix[1,1] := 1;
  mainMatrix[1,2] := 2;
  mainMatrix[1,3] := 1;
  mainMatrix[1,4] := 1;


  mainMatrix[2,1] := 1;
  mainMatrix[2,2] := 1;
  mainMatrix[2,3] := 1;
  mainMatrix[2,4] := -4;

  mainMatrix[3,1] := 3;
  mainMatrix[3,2] := 1;
  mainMatrix[3,3] := 1;
  mainMatrix[3,4] := 1;

  mainMatrix[4,1] := 1;
  mainMatrix[4,2] := 1;
  mainMatrix[4,3] := -6;
  mainMatrix[4,4] := 1;


  writeln('Do');

  for i:=1 to n do
  begin
    for j:=1 to n do begin
      write(mainMatrix[i,j]);
      write(' ');
      write(' ');
    end;
    writeln('');
  end;

  writeln('');
  writeln('Posle');


  for i:=1 to n do
  begin
    maxEl := 0;
    for j:=i to n do begin
      if abs(maxEl) < abs(mainMatrix[j,i]) then
      begin
         maxEl := mainMatrix[j,i];
         max := j;
      end;
    end;
    for k:=1 to n do begin
      tmp := mainMatrix[i, k];
      mainMatrix[i, k] := mainMatrix[max, k];
      mainMatrix[max, k] := tmp;
    end;
  end;

  for i:=1 to n do
  begin
    for j:=1 to n do begin
      write(mainMatrix[i,j]);
      write(' ');
      write(' ');
    end;
    writeln('');
  end;

  Readln(a);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BDA]

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

program matrix;
{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 4;

var
  mainMatrix: array [1 .. n, 1 .. n] of integer;
  i, j, k, max, maxEl, tmp: integer;

begin
  writeln('Matrix ',n,'x',n);
  writeln;

  mainMatrix[1, 1] := 1;
  mainMatrix[1, 2] := 2;
  mainMatrix[1, 3] := 1;
  mainMatrix[1, 4] := 1;

  mainMatrix[2, 1] := 1;
  mainMatrix[2, 2] := 1;
  mainMatrix[2, 3] := 1;
  mainMatrix[2, 4] := -4;

  mainMatrix[3, 1] := 3;
  mainMatrix[3, 2] := 1;
  mainMatrix[3, 3] := 1;
  mainMatrix[3, 4] := 1;

  mainMatrix[4, 1] := 1;
  mainMatrix[4, 2] := 1;
  mainMatrix[4, 3] := -6;
  mainMatrix[4, 4] := 1;

  writeln('Do');

  for i := 1 to n do
  begin
    for j := 1 to n do
      write(mainMatrix[i, j],' ');
    writeln;
  end;

  writeln;
  writeln('Posle');

  for i := 1 to n do
  begin
    maxEl := 0;
    for j := i to n do
    begin
      if abs(maxEl) < abs(mainMatrix[j, i]) then
      begin
        maxEl := mainMatrix[j, i];
        max := j;
      end;
    end;
    for k := 1 to n do
    begin
      tmp := mainMatrix[i, k];
      mainMatrix[i, k] := mainMatrix[max, k];
      mainMatrix[max, k] := tmp;
    end;
  end;

  for i := 1 to n do
  begin
    for j := 1 to n do
      write(mainMatrix[i, j],' ');
    writeln;
  end;

  Readln;
end.

Во-вторых, вот чуть исправленный вариант ваших наработок. Исправил некоторые вещи, чтобы в будущем вы писали код красивее.
(переменная а не нужна, вывод можно делать одной командой write, writeln работает и без параметров)
В-третьих, пример постом выше, по идее, работает (ваш код в графической обертке), но остаются некоторые вопросы, первый из которых: "элементы, наибольшие по абсолютной величине" - наибольшие где? в строке, в столбце?

[Irusya]

Спасибо большое)разобралась...