Различные комбинации символов, было: Помогите решить задачку Опции

[nopsrer]

Здраствуйте, уважемые форумчане.
Помогите, пожалуйста, решить задачку например, задана строка 7 (6 or 5) 4 (3 or 2) 1 надо вывести все возможные комбинации, выбирая из скобок по очереди одно число. OR-ов может быть несколько. (1 or 2 or 3)

входные данные
7 (6 or 5) 4 (3 or 2) 1
выходные данные
76431
76421
75431
75421

М

Просьба уважать Правила Форума (п.4) На этот раз я исправил..

Сообщение отредактировано: Lapp - 7.06.2009 6:35

[volvo]

Я правильно понял задачу? Вот это тебе надо?

const
  seq_len = 20;
  maxchange = 10;
type
  numbers = array[1 .. seq_len] of integer;
  seqtype = array[1 .. seq_len] of record
    size: integer;
    values: array[1 .. maxchange] of integer;
  end;

var
  seq: seqtype;


procedure print(level: integer;
          arr: array of integer; n: integer);
var i, T: integer;
begin
  if level = n then begin
    for i := 0 to pred(n) do write(seq[i + 1].values[arr[i]]:3);
    writeln;
  end
  else begin
    T := arr[level];
    for i := 1 to arr[level] do begin
      arr[level] := i;
      print(level + 1, arr, n);
    end;
    arr[level] := T;
  end;

end;


var
  f: text;
  i, X: integer;
  nums: numbers;


begin
  assign(f, 'fin.txt'); reset(f);
  while not eof(f) do begin
    i := 0;
    while not eoln(f) do begin
      inc(i); read(f, X);
      if X <> 0 then begin
        inc(seq[i].size); seq[i].values[seq[i].size] := X;
      end;
    end;
    readln(f);
  end;

  i := 1;
  while seq[i].size > 0 do begin
    nums[i] := seq[i].size; inc(i);
  end;
  print(0, nums, i - 1);

  close(f);
end.

(за исходные данные брал то, что приведено в 7-ом посте)