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

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

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
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#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
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"

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@IrineK 2023 / 1641 / 425 Регистрация: 23.02.2011 Сообщений: 6,002 Записей в блоге: 25
	06.06.2015, 21:56
	А сделать-то что надо? Задачу сформулируйте. 0

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