Developing.ru

Код: Выделить всё

Исходный алфавит   Коды знаков   Единицы / нули
1                      00                0/2
2                      01                1/3
3                      10                2/4
4                      11                4/4

Код: Выделить всё

var
  n:byte; m:string;
  c0,c1:longint;
  sb,sd:string;
  function nextbin(var s:string; i:byte):string;
  begin
    if s='' then begin
      s[0]:=char(i);
      fillchar(s[1],i,'0');
    end else begin
      if s[i]='0' then s[i]:='1' else begin
        s[i]:='0';
        if i>1 then s:=nextbin(s,i-1) else runerror(108);
      end;
    end;
    nextbin:=s;
  end;

  function nextdec(var s:string; i:byte):string;
  begin
    if length(s)=0 then s:='0' else begin
      if s[i]<'9' then inc(s[i]) else begin
        s[i]:='0';
        if i>1 then s:=nextdec(s,i-1) else s:='1'+s;
      end;
    end;
    nextdec:=s;
  end;
  procedure count01(var n0,n1:longint; s:string);
  var
    i:byte;
  begin
    for i:=1 to length(s) do case s[i] of
      '0': inc(n0);
      '1': inc(n1);
    end
  end;

begin
  sb:=''; sd:='';
  write('Input n:'); readln(n);

  write('Input N:'); readln(m);
  c0:=0; c1:=0;
  repeat
    nextbin(sb,n); count01(c0,c1,sb);
    writeln(nextdec(sd,length(sd)),'  ',sb,'  ',c0,'/',c1);
  until sd=m;


  readln;

end.