Перевод с паскаля на си шарп

@procTonis · Регистрация: 23.04.2019

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

Мне нужно перевести следующий код с паскаля на си шарп.

Pascal

Const n=5;
      m=4;
var
a:array[1..n,1..m] of integer;
i,j,y:integer;
begin
     y:=1;
     for i:=1 to n do
     for j:=1 to m do
     begin
     a[i,j]:=y;
     y:=y+1;
     end;
for i:=1 to n do
    begin
    writeln();
    if i mod 2=1 then
    for j:=1 to m do
    write(a[i,j],' ')
    else
    for j:=m downto 1 do
    write(a[i,j],' ')
    end;
end.

@ewgenTGM · 24.04.2019, 09:10

Ещё бы описать что это за код. Что он делает? А то так можно голову сломать.

Добавлено через 2 минуты
Вроде четные строки выводит в обратном порядке?

Добавлено через 8 минут

C#

using System;
 
namespace Snake
{
    internal class Program
    {
        private static void Main(string[] args)
        {
            int m = 5;
            int n = 4;
            int[,] a = new int[m, n];
            int y = 1;
            for (int i = 0; i < m; i++)
            {
                for (int j = 0; j < n; j++)
                {
                    a[i, j] = y;
                    y++;
                }
            }
            for (int i = 0; i < m; i++)
            {
                if (i % 2 == 0)
                {
                    for (int j = 0; j < n; j++)
                    {
                        Console.Write(a[i, j] + " ");
                    }
                }
                else
                {
                    for (int j = n - 1; j >= 0; j--)
                    {
                        Console.Write(a[i, j] + " ");
                    }
                }
 
                Console.WriteLine();
            }
            Console.ReadKey();
        }
    }
}

	24.04.2019, 09:10