Перевести код с Паскаля

@dk42 · Регистрация: 02.12.2018

Author24 — интернет-сервис помощи студентам

Составить программу, которая в каждой строке матрицы D(m,n) находит элемент, для которого модуль разности этого элемента и среднего геометрического модулей всех элементов строки максимален. Предполагается, что матрица нулевых элементов не содержит. Вывести матрицу в виде матрицы, располагая рядом с каждой строкой найденный элемент и модуль искомой разности. срочно! есть код на паскале, нужно переделать на язык c#:

Pascal

var
  a: array[1..m, 1..n] of integer;
  i, j, nr: integer;
  r: array[1..n]of real;
  sx: real;
 
begin
  for i := 1 to m do
    for j := 1 to n do
      a[i, j] := random(1, 2);
  
  for i := 1 to m do
    for j := 1 to m do
      case a[i, j] of
        1: a[i, j] := random(-20, -1);
        2: a[i, j] := random(1, 20);
      end;
  
  for i := 1 to m do
  begin
    sx := 1;
    
    for j := 1 to n do
      sx := sx * power(abs(a[i, j]), 1 / 10);
    
    for j := 1 to n do
      r[j] := abs(a[i, j] - sx);
    
    nr := 1;
    
    for j := 1 to n do
      if r[j] > r[nr] then nr := j;
    
    for j := 1 to n do
      write(a[i, j], ' ');
    write('    Элемент: ', a[i, nr], ', модуль искомой разности:', r[nr]);
    writeln;
  end;
end.

@AndrewLis · 11.12.2018, 20:07

C#

class Program
{
    static void Main(string[] args)
    {
        const int m = 12, n = 8; //В исходной программе на Pascal нет описания этих констант!
        int[,] a = new int[m, n];
        int nr;
        double[] r = new double[n];
        double sx;
        
        Random rand = new Random();
        for (int i = 0; i < m; i++)
            for (int j = 0; j < n; j++)
                a[i, j] = rand.Next(1, 2);
        
        for (int i = 0; i < m; i++)
            for (int j = 0; j < n; j++)
                switch (a[i, j])
                {
                    case 1: a[i, j] = rand.Next(-20, -1); break;
                    case 2: a[i, j] = rand.Next(1, 20); break;
                }
        for (int i = 0; i < m; i++)
        {
            sx = 1;
            
            for (int j = 0; j < n; j++)
                sx *= Math.Pow(Math.Abs(a[i, j]), 1/10);
            
            for (int j = 0; j < n; j++)
                r[j] = Math.Abs(a[i, j] - sx);
            
            nr = 1;
            
            for (int j = 0; j < n; j++)
                if (r[j] > r[nr]) nr = j;
            
            for (int j = 0; j < n; j++)
                Console.Write(a[i, j] + " ");
            Console.WriteLine();
            Console.WriteLine("Элемент: " + a[i, nr] + ", модуль искомой разности: " + r[nr]);
            Console.WriteLine();
        }
    }
}

	11.12.2018, 20:07