Здраствуйте, уважемые форумчане.
Помогите, пожалуйста, решить задачку например, задана строка 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) На этот раз я исправил..

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

можешь взять массив, например 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.

Lapp, спасибо огромное.

Еще если можно один вопрос как сделать эту же задачу если входящие числа задаються в виде масива
например:
7 6 4 3 1 0...
0 5 0 2 0 0...
0 0 0 0 0 0
. . . . . . . . . .

Я не понял, что ты имеешь в виду. Что значит "эту же задачу", если ты убрал из входных данных главное: скобки и or? Это тогда совсем не эта же задача уже. Объясни подробнее новое условие.

nopsrer, можно уточнить кое-что? Это задача на цифры или на числа?

То есть, вот так может быть: 17 (16 or 15) 4 (3 or 2) 1 ? Или все числа в скобках только однозначные? У тебя вроде в первоначальном условии - числа, но в первом же ответе уже съехали на цифры почему-то...

Извиняюсь, это два разных задачи.
В первой там где строки, то там может быть только цифры (0..9). Эта задача уже решена Lapp-ом.


Во второй могут быть числа (>9), но цифры в числе менять не нужно, не знаю даже как правильно объяснить попробую навести пример ввода-ввывода, может так будет понятнее.
(Это задача мне нужна для написания процедуры вывода всех кратчайших путей в графе от Vi до Vj алгоритмом BFS)

пример:
input:

output:
(вывод на екран)

так же если так будет возможно(а возможно в рекурсивном варианте такой вывод будет сделать даже проще), то вывод нужно будет организовать задом наперед, то есть так:

Не стало((. По крайней мере, мне. Попробуй сформулировать понормальнее.

nopsrer, а у тебя есть веская причина давать вторую задачу в одной теме? У меня складывается вречатление, что ты снова пренебрегаешь Правилами..

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

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-ом посте)