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

[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

[sheka]

задана строка

в файле или просто?

можешь взять массив, например m[1..100] of integer;- каждый елемент которого указывает на положение (какая цифра по порядку в данных скобках выводится). думаю 100 значтого числа тебе зватит
а потом считывать строку посимвольно: если символ "(" то выводить m[какие по счету скобки] елемент скобок и увеличивать его на 1.
если")", то inc(какие по счету скобки);

переименуй пожалуйста тему (я ведь тоже в таком случае правила нарушил!)

Сообщение отредактировано: sheka - 7.06.2009 1:49

[Lapp]

взять массив, например m[1..100] of integer;- каждый елемент которого указывает на положение (какая цифра по порядку в данных скобках выводится). думаю 100 значтого числа тебе зватит
а потом считывать строку посимвольно: если символ "(" то выводить m[какие по счету скобки] елемент скобок и увеличивать его на 1.
если")", то inc(какие по счету скобки);

sheka, любопытно было бы взглянуть на такое решение..

nopsrer, вот решение с использованием рекурсии.

procedure Parse(s: string);
var
  i,b,e: integer;
begin
  b:= Pos('(',s);
  if b>0 then begin
    e:= Pos(')',s);
    for i:=b+1 to e-1 do Parse(Copy(s,1,b-1)+s[i]+Copy(s,e+1,Length(s)))
  end
  else WriteLn(s)
end;

var
  i: integer;
const
  s: string= '7 (6 or 5) 4 (3 or 2) 1';

begin
  for i:=Length(s) downto 1 do if not (s[i] in ['0'..'9']+['(',')']) then Delete(s,i,1);
  Parse(s);
  ReadLn
end.