Все двоичные строки длины n, содержащие ровно k единиц

@Nick012 · Регистрация: 08.12.2013

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

По данным числам N и K выведите все строки из нулей и единиц длины N, содержащие ровно K единиц, в лексикографическом порядке.

@volvo · 19.01.2014, 15:39

Либо "в лоб":

Pascal

var
  n, k: integer;
  t, i, cnt: integer;
  s: string;
 
begin
  n := 5; k := 3;
  for i := 1 to pred(1 shl n) do
  begin
    s := '';
    cnt := 0;
    t := i;
    repeat
      inc(cnt, t mod 2);
      s := Chr(Ord('0') + (t mod 2)) + s;
      t := t div 2;
    until t = 0;
    if cnt = k then 
    begin
      while length(s) <> n do s := '0' + s;
      writeln(s);
    end;
  end;
  
end.

, либо покрасивее:

Pascal

var
  n, k: integer;
 
procedure p(s : string; ones : integer);
begin
  if (length(s) = n) then
  begin
    if ones = k then writeln(s); Exit;
  end;
  if ones > k then Exit;
  p(s + '0', ones);
  p(s + '1', ones + 1);
end;
 
begin
  n := 5; k := 3;
  p('', 0);
end.

(присвоение значений на ввод пользователем переделай сам)

@Nick012 1 / 1 / 0 Регистрация: 08.12.2013 Сообщений: 8
		1
	Все двоичные строки длины n, содержащие ровно k единиц 19.01.2014, 11:44. Показов 10156. Ответов 1 Метки нет (Все метки) По данным числам N и K выведите все строки из нулей и единиц длины N, содержащие ровно K единиц, в лексикографическом порядке. 0

	19.01.2014, 15:39

Все двоичные строки длины n, содержащие ровно k единиц

Решение