làm ơn giúp đỡ tớ thuật toán hoán vị, chỉnh hợp, tổ hợp, gấp lắm mấy cao thủ ơi->

[whatsthat]

giúp tớ code thôi cũng được, của pascal ấy. cám ơn nhiều nhá.

[Latina_Matrix]

CTDL :
type arr = array[1..max] of byte;
var a,b:arr;

procedure print;
var i:byte;
begin
for i:=1 to max do
write(a[i]:3);
writeln;
end;
{----------}
procedure find(i:byte);
var j:byte;
begin
if i>max then print
else begin
for j:=1 to n do
if b[j]=0 then
begin
a[i]:=j;
b[j]:=1;
find(i+1);
b[j]:=0;
end;

begin
find(1);
end.

[Latina_Matrix]

Cái ở trên là hoán vị
Còn chỉnh hợp thì cải tiến thêm :
var ... r:byte;
....
procedure find(i:byte);
....
if i>r then print
.....
begin
for r:=1 to max do
find(1);
end.

Còn tổ hợp thì thêm 1 điều kiện nữa :
procedure find(i:byte);
.....
if (b[j]=0) and (j>a[i-1]) then
.....

Hổng biết mấy cái code có lỗi cú pháp hông
Nếu có thì chịu khó sửa nhe

[unfriendlyboy]

Cái ở trên là hoán vị
Còn chỉnh hợp thì cải tiến thêm :
var ... r:byte;
....
procedure find(i:byte);
....
if i>r then print
.....
begin
for r:=1 to max do
find(1);
end.

Còn tổ hợp thì thêm 1 điều kiện nữa :
procedure find(i:byte);
.....
if (b[j]=0) and (j>a[i-1]) then
.....

Hổng biết mấy cái code có lỗi cú pháp hông
Nếu có thì chịu khó sửa nhe


Nếu mà mảng A không phải là mảng chứa thứ tự thì phải sửa lại thành j>i-1 phải kô ?

[nmq231293]

Cái này khó hiểu quá.Làm ơn giải thích thuật toán cho mình đi.Thanks nhìu.

[=========> Bổ sung bài viết <=========]


giúp tớ code thôi cũng được, của pascal ấy. cám ơn nhiều nhá.

Cái này nè.Mình hok hỉu.giải thích mình sao lại như vậy nha.

[boybanga]

lam ho tuj pai nay voi,
nhap so phan tu n cua 1 mang(array)
nhap gia tri cua cac phan tu
xuat ra hoan vi cua cac so do
VD:n=3
n1=1
n2=4
n3=2
===>124,142,241,214,421,412

[adslchip]

cho phép đào bởi bài cũ 1 chút.
Cái code bạn gì đó viết thì đúng khi write ra màn hình. Nhưng khi write ra file .out thì nó chỉ write 1 dòng đầu hoặc cuối thôi, ai fix lại dùm với, sắp kt phần này rồi.

[seraphpl]

ngu vãi ngu vãi ngu vãi ngu vãi ngu vãi

[handsome_2589]

sua cach ghi file di ban,chon che do ghi tiep vao cuoi file xem

[milankim]

Thanksssssssssssssssssssss bác nức cả đầu