вывести на экран все возможные варианты

[Oxanita]

Дана строка с 12 ячейками. в каждой ячейке может быть одна из цифр: 0,1,2. нужно вывести на экран все возможные варианты, при условии что в строке не может быть больше 4 одинаковых цифр подряд.

[pompiduskus]

На китайском пойдет ? :D

[Oxanita]

Сообщение от pompiduskus

На китайском пойдет ? :D

pascal, желательно:-)

[Stilet]

нужно вывести на экран все возможные варианты

В качестве предложения:

var s:string;i,j:integer;c:char;
begin
 readln(s);
 for i:=1 to Length(s) do  for j:=1 to Length(s) do begin
  c:=s[i];s[i]:=s[j];s[j]=c; writeln(s);
 end;
 readln;
end.

Не проверял.

[Oxanita]

Сообщение от Stilet

В качестве предложения:

var s:string;i,j:integer;c:char;
begin
 readln(s);
 for i:=1 to Length(s) do  for j:=1 to Length(s) do begin
  c:=s[i];s[i]:=s[j];s[j]=c; writeln(s);
 end;
 readln;
end.

Не проверял.

спасибо. сейчас попробуем:-)

[Poma][a]

Дык генерьте все перестановки попутно проверяя условие на 4 символа..

[Oxanita]

Сообщение от Poma][a

Дык генерьте все перестановки попутно проверяя условие на 4 символа..

прошу прощение, но к сожалению, я далеко не проффесионал в этой сфере. если вам не трудно, можно немного доступней обьяснить...

[Poma][a]

Перестановки можно получать так :

procedure GetPerms (k : Integer);
var
    i : Integer;
 
begin
    if n = k then begin
       // получили перестановку
    end;

    for i := k to n do begin
        Swap (a[k], a[i]);
        GetPerms(k+1);
        Swap (a[k], a[i])
    end
end;
 
GetPerms(1)

Теперь осталось решить проблему с 4-мя символами.. Когда получили перестановку проверяем условие.. и если удовлетворяет условию, то выводим..
Вот и всё..