Перевести программу с С# на Паскаль

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace Bones
{
class Calc
{
public int maxBones { get; private set; }
public int[,] A = new int[4, 4];

//Структура координат (X,Y)
struct Coord
{
public int X { get; set; }
public int Y { get; set; }

public Coord(int x, int y)
{
X = x;
Y = y;
}
}

//Проверка что клетка находится внутри матрицы
private bool isIncluded(int[,] A, int x, int y)
{
return x > -1 && x < A.GetLength(0)
&& y > -1 && y < A.GetLength(1);
}

//Возвращает кол-во соседей у клетки (x,y)
private int Neighbors(int[,] A, int x, int y)
{
if (A[x, y] == 0)
{
return 0;
}

//Список координат для обхода от клетки (x,y) вверх, вправо, вниз, влево
List<Coord> coords = new List<Coord>();
coords.Add(new Coord(x, y - 1));
coords.Add(new Coord(x + 1, y));
coords.Add(new Coord(x, y + 1));
coords.Add(new Coord(x - 1, y));

int neighborsCount = 0;

for (int i = 0; i < A.GetLength(0); i++)
{
if (isIncluded(A, coords[i].X, coords[i].Y) && A[coords[i].X, coords[i].Y] != 0)
{
neighborsCount++;
}
}

return neighborsCount;
}

//Меняет местами значения в клетках m1(x1,y1) и m2(x2,y2)
private void Swap(int[,] A, Coord m1, Coord m2)
{
int temp = A[m1.X, m1.Y];
A[m1.X, m1.Y] = A[m2.X, m2.Y];
A[m2.X, m2.Y] = temp;
}

//Возвращает кол-во костей которые можно убрать с доски
private int getBonesCount(int[,] A)
{
int count = 0;

//Матрица кол-ва соседей у каждой клетки, т.е каждой клетке (x,y) матрицы A ставится в соответствие ее кол-во соседей
int[,] N = new int[A.GetLength(0), A.GetLength(1)];
//Заполняем матрицу N
for (int i = 0; i < A.GetLength(0); i++)
{
for (int j = 0; j < A.GetLength(1); j++)
{
N[i, j] = Neighbors(A, i, j);
}
}
//Подсчитываем кол-во костей, которые можно снять с доски
for (int i = 0; i < A.GetLength(0); i++)
{
for (int j = 0; j < A.GetLength(1); j++)
{
if (A[i, j] != 0 && A[i, j] == N[i, j])
{
count++;
}
}
}

return count;
}

public void Bones()
{
maxBones = 0;
//два цикла для для прохода по всей матрице A
for (int x = 0; x < A.GetLength(0); x++)
{
for (int y = 0; y < A.GetLength(1); y++)
{
//два цикла для перестановки кости
for (int x1 = 0; x1 < A.GetLength(0); x1++)
{
for (int y1 = 0; y1 < A.GetLength(1); y1++)
{
//Копируем матрицу A в B
int[,] B = A;
//меняем местами эл-ты матрицы
Swap(B, new Coord(x, y), new Coord(x1, y1));
//получаем кол-во костей которые можно снять с доски
int bones = getBonesCount(B);
//ищем максимальное значение
if (maxBones < bones)
{
maxBones = bones;
}
}
}
}
}
}
}
}

0

Используйте кнопки для вставки кода и напишите изначальное задание, по которому писался код.

0

Добавлено через 2 минуты
Проект «Игра на шахматном поле».

1. В некоторых клетках квадратной доски 4x4 находятся четырёхгранные игральные кости. Кость снимается с поля, если количество соседних по стороне непустых клеток совпадает с числом, выпавшим на кости. Все кости, для которых выполняется это свойство, снимаются с поля одновременно. Если после снятия костей появляются новые кости, которые можно снять, то они снимаются по тем же правилам. Нужно переставить одну кость так, чтобы снялось максимальное количество костей.

На вход программе даётся четыре строки по четыре числа в каждом, разделённые одним пробелом. Всё числа – целые неотрицательные, не превышающие 4. Ноль означает отсутствие кости, любое положительное – наличие кости, на которой выпало указанное число. Гарантируется, что на поле есть, по крайней мере, одна кость и одна свободная клетка.

Пример ввода 1:

0 0 1 0

0 0 0 0

0 0 1 0

0 0 0 0

 

Пример ввода 2:

0 0 0 1

0 2 1 0

0 1 2 1

0 0 0 0

 

В виде ответа нужно вывести одно целое число – количество костей, которое можно снять с доски.

Пример вывода 1:

2

Пример вывода 2:

6

 

0

собственно это развитие темы - В некоторых клетках квадратной доски 4x4 находятся четырёхгранные игральные кости. Кость снимается с поля, если ...
(и, на мой взгляд, можно слить эти темы вместе)

0