Description

從三個元素的集合[A，B，C]中選取元素生成一個N個字符組成的序列,使得沒有兩個相鄰字的子序列相同。例：N = 5時ABCBA是合格的，而序列ABCBC與ABABC是不合格的，因為其中子序列BC，AB是相同的。

Input

對于由鍵盤輸入的N(1<=n<=10)

Output

求出滿足條件的N個字符的所有序列和其總數？

Sample Input

3

Sample Output

ABA ABC ACA ACB BAB BAC BCA BCB CAB CAC CBA CBC 12

這題我是用搜索的方法來做的

在搜的時候，如果這個字母填下去不會有兩個相鄰的子序列的話，就記錄下來，填完了就輸出并統計。

var a:array[0..100]of longint; n,tj,i,j,k,s,bz:longint;function check(x,l:longint):longint; var i,j:longint; begina[l]:=x;check:=1;for i:=1 to l div 2 dobeginfor j:=1 to i doif a[l-j+1]<>a[l-i-j+1] then inc(bz);if bz=0 then check:=0;bz:=0;end;a[l]:=0; end; procedure print; var i:longint; begininc(tj);for i:=1 to n doif a[i]=1 then write('A') else if a[i]=2 then write('B') else write('C');writeln; end; procedure search(dep:longint); var i,j:longint; beginif dep>n thenbeginprint;exit;end;for i:=1 to 3 doif check(i,dep)=1 thenbegina[dep]:=i;search(dep+1);a[dep]:=0;end; end; beginread(n);tj:=0;fillchar(a,sizeof(a),0);search(1);write(tj); end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500243.html

與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的字符序列pascal程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。