đảo chữ cái

[lequanghung98]

Viết chương trình đưa tra tất cả các từ có thể có phát sinh từ một tập các chữ cái.
Ví dụ: cho từ 'abc'=> ta phải đưa ra các từ 'abc','acb','bac','bca','cab' và 'cba' (bằng cách khảo sát tất cả các trường hợp khác nhau của tổ hợp 3 chữ cái đã cho)
Input
Dữ liệu vào được cho trong tệp input.txt chưa một số từ. Dòng đầu tiên là một số tự nhiên cho biết số tự được cho ở dưới. Mỗi dòng tiếp theo chưa một từ. Trong đó, một từ có thể chứa cả các chữ cái thường hoặc hoa. Các chữ thường và hoa được coi như khác nhau. Một chữ cái nào đó có thể xuất hiện nhiều hơn một lần.
Output
Với mỗi từ đã cho trong file input.txt, ghi kết quả nhận được ra file outpout.txt phải chứa tất cả các từ khác nhau được sinh từ các chữ cái của từ đó. Các từ được sinh ra từ một từ đã cho phải được đưa ra theo thứ tự tăng dần của bảng chữ cái.
Sample
input.txt:
2 abc
acba
Sample
output.txt
abc
acb
bac
bca
cab
cba
aabc
aacb
abac
abca
acab
acba
baac
baca
bcaa
caab
caba
cbaa

Ở chương trình này, mình bị mắc ở chỗ: 'Mỗi chữ cái có thể xuất hiện nhiều hơn một lần'=> chỉ đúng cho trường hợp 1. Ai có phương pháp giúp chương trình cho kết quả đúng với cả 2 trường hợp.

[hcvtpt]

Up chờ cách giải hay và đơn giản

[haplinhavxt]

Thì bạn cứ sinh bình thường đi! Trong lúc in kết quả thì cần lưu ý để loại các hoán vị trùng nhau là OK thôi!

[lequanghung98]

Cảm ơn, mình đã nghĩ ra rồi!!!

[huhubenho96]

Bài này nên dùng phương pháp sinh

[lequanghung98]

Cảm ơn mọi người, mình đã hoàn thành xong bài này rồi!!!

[quangtq]

Quay lui cho đơn giản, đếm số lần xuất hiện thôi

[hcvtpt]

hic, có cách giải hay thì post nên đi các bạn

[takang]

uhm đấy, có lời giải up cho mọi người thêm kiến thức.

[lequanghung98]

uhm đấy, có lời giải up cho mọi người thêm kiến thức.

 
program dao_day;
uses crt;
const
     inp='inp2.txt';
     out='out2.txt';
type
    str=array[0..100] of char;
var
   s: str;
   f, g: text;
   n: longint;
   time: longint;
procedure nhap;
begin
     assign(f,inp);
     assign(g,out);
     reset(f);
     rewrite(g);
     readln(f,n);
end;
procedure doc(var s: str);
var
   i: integer;
begin
     fillchar(s,sizeof(s),chr(0));
     while not eoln(f) do
           begin
                s[0]:=chr(ord(s[0])+1);
                read(f,s[ord(s[0])]);
           end;
end;
procedure vietday(s: str);
var
   i: word;
begin
     for i:=1 to ord(s[0]) do write(s[i]);
end;
procedure quicksort(l, r: word);
var
   i, j: word;
   tg, tam: char;
begin
     i:=l;
     j:=r;
     tg:=s[(l+r) div 2];
     repeat
           while ord(s[i])<ord(tg) do inc(i);
           while ord(s[j])>ord(tg) do dec(j);
           if i<=j then
              begin
                   tam:=s[i];
                   s[i]:=s[j];
                   s[j]:=tam;
                   inc(i);
                   dec(j);
              end;
     until i>j;
     if j>l then quicksort(l,j);
     if i<r then quicksort(i,r);
end;
procedure sinh_hv(s: str);
var
   vti, vtj, i, j: word;
   stop: boolean;
   tam: char;
begin
     writeln(g);
     vietday(s);
     repeat
           stop:=true;
           for i:=ord(s[0]) downto 2 do
               if s[i]>s[i-1] then
                  begin
                       vti:=i-1;
                       stop:=false;
                       for j:=ord(s[0]) downto vti+1 do
                           begin
                                if (ord(s[j])>ord(s[vti])) then
                                   begin
                                        vtj:=j;
                                        break;
                                   end;
                           end;
                       tam:=s[vtj];
                       s[vtj]:=s[vti];
                       s[vti]:=tam;
                       for j:=1 to ((ord(s[0])-(vti+1))+1) div 2 do
                           begin
                                tam:=s[vti+j];
                                s[vti+j]:=s[ord(s[0])-j+1];
                                s[ord(s[0])-j+1]:=tam;
                           end;
                       writeln;
                       vietday(s);
                       break;
                  end;
     until stop;
end;
procedure xuly;
var
   i: longint;
begin
     for i:=1 to n do
         begin
              doc(s);
              readln(f);
              quicksort(1,ord(s[0]));
              sinh_hv(s);
              writeln(g);
         end;
     close(f);
     close(g);
end;
begin
     clrscr;
            nhap;
            xuly;
     readln;
end.