View Full Version : 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
01-11-2003, 09:58
giúp tớ code thôi cũng được, của pascal ấy. cám ơn nhiều nhá.
Latina_Matrix
02-11-2003, 09:21
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
02-11-2003, 09:27
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
18-01-2004, 20:16
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
13-03-2009, 20:55
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
03-03-2010, 23:03
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
20-10-2010, 09:58
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
17-02-2011, 20:02
ngu vãi ngu vãi ngu vãi ngu vãi ngu vãi
handsome_2589
16-07-2011, 08:22
sua cach ghi file di ban,chon che do ghi tiep vao cuoi file xem
milankim
22-07-2011, 10:52
Thanksssssssssssssssssssss bác nức cả đầu
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.