Перевод с Делфи на С#

[Vovchik123]

кому не трудно вывести такое на си шарпе? очень нужно, а голова не работает в этом направлении

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Число строк и столбцов в массиве.
  N = 5;
var
  //Массив.
  Arr : array[1..N, 1..N] of Integer;
  //Индексы массива.
  i, j, i1, j1  : Integer;
  //Индексы, соответствующие максимальному элементу на главной и побочной диагоналях.
  IMax, JMax    : Integer;
  //Переменная для обмена значений в элементах массива.
  NumTmp        : Integer;
  //Строка для распечатки результатов.
  StrTmp        : String;
begin
 
  //Если N - чётное, то прерываем выполнение.
  if not Odd(N) then begin
    Raise Exception.Create('Число строк и столбцов массива чётное! Выполнение прервано.');
  end;
 
  //Очищаем Мемо.
  Memo1.Clear;
 
  //Инициализируем массив.
  //Заполняем массив возрастающими неповторяющимися значениями.
  NumTmp := -(N * N) div 2;
  for i := 1 to N do begin
    for j := 1 to N do begin
      Inc(NumTmp);
      Arr[i, j] := NumTmp;
    end;
  end;
 
  //Инициализируем генератор случайных чисел.
  Randomize;
  //Перемешиваем элементы в массиве.
  for i := 1 to N * N do begin
    i1 := 1 + Random(N); //Случайный индекс из диапазона 1..(0..N-1) = 1..N.
    j1 := 1 + Random(N);
    NumTmp := Arr[1, 1];
    Arr[1, 1] := Arr[i1, j1];
    Arr[i1, j1] := NumTmp;
  end;
 
  //Распечатка исходного массива.
  Memo1.Lines.Add('Исходный массив:');
  for i := 1 to N do begin
    StrTmp := '';
    for j := 1 to N do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + Char(9);
      end;
      StrTmp := StrTmp + IntToStr( Arr[i, j] );
    end;
    Memo1.Lines.Add(StrTmp);
  end;
 
  //Решение задачи. Начало.
 
  //Поиск максимума на главной и побочной диагоналях.
  IMax := 1;
  JMax := 1;
  for i := 1 to N do begin
    //Главная диагональ.
    j := i;
    if Arr[i, j] > Arr[IMax, JMax] then begin
      IMax := i;
      JMax := j;
    end;
    //Вторая (побочная) диагональ.
    j := N + 1 - i;
    if Arr[i, j] > Arr[IMax, JMax] then begin
      IMax := i;
      JMax := j;
    end;
  end;
 
  //Меняем местами найденный масимальный элемент с элементом, расположенным
  //на пересечении диагоналей.
  //[i, i] - это координаты элемента, расположенного на пересечении диагоналей
  i := N div 2 + 1;
  NumTmp := Arr[IMax, JMax];
  Arr[IMax, JMax] := Arr[i, i];
  Arr[i, i] := NumTmp;
 
  //Решение задачи. Конец.
 
  //Распечатка результирующего массива.
  Memo1.Lines.Add('Результирующий массив:');
  for i := 1 to N do begin
    StrTmp := '';
    for j := 1 to N do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + Char(9);
      end;
      StrTmp := StrTmp + IntToStr( Arr[i, j] );
    end;
    Memo1.Lines.Add(StrTmp);
  end;
 
end;
 
end.

[Utkin]

За перевод плати.
Еще не понял прикол со строками:

if not Odd(N) then begin
    Raise Exception.Create('Число строк и столбцов массива чётное! Выполнение прервано.');
  end;

Нафига это, если N заранее известно? И к тому же не является четным . В таком виде программа никогда не будет выполнять это условие, а значит оно там не нужно.

[Serge_Bliznykov]

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

Нафига это, если N заранее известно? И к тому же не является четным . В таком виде программа никогда не будет выполнять это условие, а значит оно там не нужно.

позволю себе не согласиться.

Безусловно, в данном случае N=5, оно является нечётным и Exception не возникнет. Т.е. условия никогда не выполнится. Тут Вы правы.
Но этой строчкой происходит защита не от сбоев программы/ОС - это защита ОТ ВНЕСЕНИЯ МОДИФИКАЦИЙ ПРОГРАММИСТОМ!
Представьте, Вы сопровождаете чужой код. Там стоит N=5 и никаких проверок на чётность/нечётность нет. Вы хотите сделать так, чтобы N откуда-то брался/вводился. Вы переделываете программу. Будете Вы учитывать, что N обязательно должно быть нечётным? Скорее всего- нет, не будете. (кстати, лучше расскажите мне, кто понял, а почему в данном коде нельзя, чтобы матрица была чётного порядка?!). Другое дело, я бы, скорее всего, ограничился тем, чтобы возле задания константы, где задаётся N, написал бы большой комментарий, о том, что N должно быть ОБЯЗАТЕЛЬНО чётным и ПОЧЕМУ это так...
Но это уже дело программиста - каким образом защищать код от некорректных модификаций...


Vovchik123, а в чём проблема с переводом? Если Вы хоть чуть-чуть знаете C# и сами писали код на Дельфи, то перевод не должен вызывать не малейших затруднений!

[Utkin]

это защита ОТ ВНЕСЕНИЯ МОДИФИКАЦИЙ ПРОГРАММИСТОМ!

Виртуальная наверно? Одного взгляда на программу мне хватило заметить, что это лишнее (ну для данного N, а не вообще). Естественно, первым дело я бы удалил это условие (ну или закомментировал бы). Это самообман какой-то.