Перевести код с Pascal на C# и C++

@KoSYaK · Регистрация: 06.06.2015

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

Помогите переписать прогу с одного языка на другой.
Вот Pascal

Pascal

const
  maxn = 150;
var
  w: array[1..maxn, 1..maxn] of byte;
  link, lx, ly: array[1..maxn] of byte;{link[i]=j means xj matches yi}
  x, y: array[1..maxn] of boolean;{True if the vertex is in the interlaced tree}
  n, i, j: byte;
  total: longint;
 
function find(v: byte): boolean;
var
  i: byte;
begin
  x[v] := true;
  for i := 1 to n do
    if not y[i] and (lx[v] + ly[i] = w[v, i]) then begin
      y[i] := true;
      if (link[i] = 0) or find(link[i]) then begin
        find := true;link[i] := v;exit;
      end;
    end;
  find := false;
end;
 
 
procedure KM;
var
  i, j, k, d: byte;
begin
  //fillchar(lx, sizeof(lx), 0);
  for var ii:=1 to maxn do lx[ii]:=0;
  //fillchar(ly, sizeof(ly), 0);
  for var ii:=1 to maxn do ly[ii]:=0;
  for i := 1 to n do
    for j := 1 to n do
      if w[i, j] > lx[i] then lx[i] := w[i, j];
  for k := 1 to n do
    repeat
      //fillchar(x, sizeof(x), 0);
      for var ii:=1 to maxn do x[ii]:=false;
      //fillchar(y, sizeof(y), 0);
      for var ii:=1 to maxn do y[ii]:=false;
      
      if find(k) then break;
      d := 255;
      for i := 1 to n do
        if x[i] then
          for j := 1 to n do
            if not y[j] then
              if lx[i] + ly[j] - w[i, j] < d then
                d := lx[i] + ly[j] - w[i, j];
      for i := 1 to n do
        if x[i] then dec(lx[i], d);
      for i := 1 to n do
        if y[i] then inc(ly[i], d);
    until false;
end;
 
begin
  readln(n);
  total := 0;
  for i := 1 to n do
    for j := 1 to n do 
    begin
      read(w[i, j]);
      inc(total, w[i, j]);
    end;
  
  KM;
  
  for i := 1 to n do
    dec(total, w[link[i], i]);
  writeln(total);
end.

а вот C#

C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace _1076
{
    class Program
    {
        static int maxn = 150 + 1;
        static byte[,] w = new byte[maxn, maxn];
        static byte[] link = new byte[maxn];
        static byte[] lx = new byte[maxn];
        static byte[] ly = new byte[maxn];
        static bool[] x = new bool[maxn];
        static bool[] y = new bool[maxn];
        static byte n, k, d;
        static int total;
 
        static void Main(string[] args)
        {
           
            n = byte.Parse(Console.ReadLine());
            total = 0;
            for(int i = 0; i < n; i++)
            {
                string s = Console.ReadLine();
              string[] ss= s.Split(' ');
               for (int j = 0; j < ss.Length; j++ )
               {
                   w[i, j] = byte.Parse(ss[j]);
                   total+= w[i, j];
               }
        }
 
            for (int i = 0; i < n; i++)
                for (int j = 0; j < n; j++)
                    if (w[i, j] > lx[i]) lx[i] = w[i, j];
            for (k = 0; k < n; k++)
                do
                {
                      for (int ii=0; ii< maxn; ii++) x[ii]=false;
                      for (int ii = 0; ii < maxn; ii++) y[ii] = false;
 
                    if (find(k)) break;
                    d = 255;
                    for (int i = 0; i < n; i++)
                        if (x[i])
                            for (int j = 0; j < n; j++)
                                if (!y[j])
                                    if (lx[i] + ly[j] - w[i, j] < d) d = (byte)(lx[i] + ly[j] - w[i, j]);
                    for (int i = 0; i < n; i++)
                        if (x[i]) { lx[i]--; d--; }
                    for (int i = 0; i < n; i++)
                        if (y[i]) { ly[i]--; d--; }
                } while (false);
          
            for (int i = 0; i < n; i++)
            {
                total -= w[link[i], i];
            }
 
            Console.WriteLine(total);
            Console.ReadKey();
        }
 
        static bool find(byte v)
        {
            byte i;
            x[v] = true;
            for(i = 0; i < n; i++)
                if ((!y[i]) && (lx[v] + ly[i] == w[v, i]))
                {
                    y[i] = true;
                    if ((link[i] == 0) || (find(link[i])))
                    {
                        link[i] = v;
                        return true;                        
                       // Environment.Exit(0);
                    }
                }
            return false;
        }
    }
}

Проблем в том, что на C# не правильно выводит результат
Пример:
Вход
4
62 41 86 94
73 58 11 12
69 93 89 88
81 40 69 13

Выход
650

@~~IrineK~~ · 06.06.2015, 21:56

А сделать-то что надо?
Задачу сформулируйте.

Памирыч · 08.06.2015, 06:40

KoSYaK, Если Вам нужен код на C# и C++, то Вы выбрали неподходящую ветку, так как здесь обсуждается Си.
Второе - если нужно решение на обоих языках, нужно создать две темы в соответствующих разделах форума - в С++ и C#. При оформлении темы сформулировать задание, а не только "перевести с Pascal"

@~~IrineK~~ Заблокирован
	06.06.2015, 21:56	2
	А сделать-то что надо? Задачу сформулируйте. 0

Памирыч Почетный модератор 21388 / 9122 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	08.06.2015, 06:40	3
	KoSYaK, Если Вам нужен код на C# и C++, то Вы выбрали неподходящую ветку, так как здесь обсуждается Си. Второе - если нужно решение на обоих языках, нужно создать две темы в соответствующих разделах форума - в С++ и C#. При оформлении темы сформулировать задание, а не только "перевести с Pascal" 0

Опции темы