Hi, Phòng khách!
Trang chủ
Đăng nhập
Công Cụ Tìm Kiếm

Lần hoạt động

| |
Tìm kiếm

  Bài tập tìm tổ hợp số

Bài viết được duyệt bởi PuaruVN
Đăng ngày :13.04.2018 / 12:10[TOP]
KT1K99
KT1K99
Active Member
[]
Thấy chưa ai đăng gì trong box nên mình xin phép góp 1 bài.
Tìm thuật toán :
Lấy tổ hợp 5 số trong dãy số {1,2,3,4,5,....40} sao cho chúng không trùng nhau
ví dụ {1,2,3,4,5} giống {1,2,3,5,4} ( miễn sao số không bị trùng là tính)
Thì có bao nhiêu cách sắp xếp, in ra màn hình tổ hợp đó cách nhau bằng dấu xuống dòng.
ví dụ :
1,2,3,4,5
1,2,3,4,6
....
Đăng ngày :13.04.2018 / 13:37 #1
tienkie
tienkie
Active Member
Không cụ thể cho lắm
Đăng ngày :13.04.2018 / 16:14 #2
Star
Star
Active Member
♥♥♥
Bày này đệ quy được
Đăng ngày :13.04.2018 / 17:18 #3
KT1K99
KT1K99
Active Member
[]
Trích dẫn: Star (1 giờ trước)
Bày này đệ quy được
Đúng r bạn
Đăng ngày :13.04.2018 / 18:28 #4
llvllrx4nh
llvllrx4nh
Active Member
[.!.!.!.!.!.!.!.!.-.-._.-..-._.-.-.!.!.!.!.!.!.!.!.]
Chà chà Mình cũng học giải thuật bây h nếu muốn bước vào nghề này
Đăng ngày :13.04.2018 / 22:05 #5
Star
Star
Active Member
♥♥♥
Mã Code Vina4u
var
dau : array[1..40] of boolean;
a : array[1..5] of longint;

procedure xuat;
var i : longint;
begin
for i := 1 to 5 do write(a[i],' ');
writeln;
end;

procedure try(i:longint);
var j : longint;
begin
for j := 1 to 40 do
if not dau[j] then
begin
dau[j] := true;
a[i] := j;
if i = 5 then xuat
else try(i+1);
dau[j] := false;
end;
end;

begin
try(1);
readln;
end.

Đã chỉnh sửa. Star (13.04.2018 / 22:06) [1]
Bình luận bài viết
Đăng Nhập để Bình luận và sử dụng đầy đủ tính năng Diễn Đàn
  Tổng số: 6 Bình luận

Chia sẻ bài viết
Đám Mây Từ Khóa
Bài Viết Cùng chuyên mục
Lọc theo tác giả
Xem chủ để ngoại tuyến (Offline)

Trong diễn đàn

Sắp xếp theo thứ tự từ trên xuống
BigTruyen.info - Kho Truyện Tranh Online Khổng lồ
Trang chủ