0

私はこのこと (Shannon-Fano アルゴリズム) をパスカルから c# に変換しようとしています:

program ShennonFano;
uses crt;
const
  a :array[1..6] of char = ('a','b','c','d','e','f');
  af:array[1..6] of integer = (10, 8, 6, 5, 4, 3);


procedure SearchTree(branch:char; full_branch:string; start_pos:integer; end_pos:integer);
var
  dS:real; 
  i, m, S:integer; 
  c_branch:string;
begin

  if (a<>' ') then c_branch := full_branch + branch
  else c_branch := '';


  if (start_pos = end_pos) then
  begin
    WriteLn(a[start_pos], ' = ', c_branch);
    exit;
  end;


  dS := 0;
  for i:=start_pos to end_pos do dS:= dS + af[i];
  dS := dS/2;


  S := 0;
  i := start_pos;
  m := i;
  while ((S+af[i]<dS) and (i<end_pos)) do
  begin
    S := S + af[i];
    inc(i); inc(m);
  end;


  SearchTree('1', c_branch, start_pos, m);

  SearchTree('0', c_branch, m+1, end_pos);

end;

begin
  WriteLn('Press <enter> to show');
  ReadLn;
  ClrScr;

  SearchTree(' ',' ', 1, 6);
  ReadLn;
end;

そして、ここに私のC#のコードがあります:

namespace Shannon_Fano_Alg
{
    class Program
    {
        static char[] a = { 'a', 'b', 'c', 'd', 'e', 'f' };
        static int[] af = { 10, 8, 6, 5, 4, 3 };
        static bool first = true;

        static void Search(char branch, string full_branch, int startPos, int endPos)
        {
            double dS;
            int m, i, S;
            string c_branch;
            if (first)
            {
                c_branch = "";
                first = false;
            }
            else
            {
                c_branch = full_branch + branch;
            }

            if (startPos == endPos)
            {
                Console.WriteLine(a[startPos] + " = " + c_branch);
            }

            dS = 0;
            for (i = startPos; i<endPos; i++)
            {
                dS += af[i];
            }

            dS /= 2;


            S = 0;
            i = startPos;
            m = i;
            while (S + af[i] < dS && i<endPos)
            {
                S += af[i];
                i++;
            }

            Search('1', c_branch, startPos, m);
            Search('0', c_branch, m + 1, endPos);

        }

        static void Main(string[] args)
        {
            Program.Search(' ', " ", 0, 5);
            Console.ReadKey();
        }

    }
}

しかし、残念なことに、私のコードは際限なくループし、次のようになり ここに画像の説明を入力 ます。私の間違いがどこにあるかを理解するのを手伝ってください。前もって感謝します。

4

2 に答える 2