Liệt Kê Các Chỉnh Hợp Chập K Của N Phần Tử - Học Tin Cùng Thủ Khoa

Đăng ký học

• ĐĂNG KÝ HỌC LẬP TRÌNH với thầy Nguyễn Tô Sơn - Thủ khoa Đại học Sư phạm Hà Nội (tương tác trực tiếp)
• THÔNG TIN về Giảng viên tại Trang chủ Đại học Sư phạm Hà Nội

Bài viết MỚI nhất

• Themis Test Maker - Tiện ích tạo bộ test, quản lý Input cho phần mềm Themis
• Scratch Judge - Chấm điểm tự động ngôn ngữ Scratch tự động
• Make Test Pro sinh test tự động cho các ngôn ngữ Scratch, Python, C++, Pascal
• Giải đề thi Tin học trẻ Tiểu học các địa phương (Private)
• Video hướng dẫn sử dụng Rover của Yolo:bit
• PyGame: Bạn Trẩu thoát khỏi sự truy đuổi của lũ rô bốt
• CS 102 - PyGame nâng cao - STEAM for Vietnam
• CS 101 - Python và PyGame cơ bản - STEAM for Vietnam
• CS 001 - Train the Trainer - STEAM for Vietnam
• Quy hoạch động cơ bản

Tìm kiếm

Search ...

Liệt kê các Chỉnh hợp chập k của n phần tử

Published: 14 May 2017 | Hits: 10722

Mời các bạn Download code tại: Click here

Đề bài: Nhập vào hai số nguyên dương n và k. Hãy liệt kê các chỉnh hợp chập k của n phần tử.

const fi = 'CHINHHOPCHAPK.INP'; fo = 'CHINHHOPCHAPK.OUT'; MAXN = 20; var f: text; n, k: integer; a: array [1..MAXN] of integer; b: array [1..MAXN] of boolean; dem: integer; procedure Nhap; begin assign(f, fi); reset(f); readln(f, n, k); close(f); fillchar(b, sizeof(b), true); dem:= 0; end; procedure InKQ; var i: integer; begin inc(dem); write(f, dem:3, ': '); for i:= 1 to k do write(f, a[i]); writeln(f); end; procedure Try2(i: integer); // dien gia tri cho vi tri thu i var j: integer; begin for j:= 1 to n do if b[j]=true then begin a[i]:= j; b[j]:= false; if i = k then InKQ else Try2(i+1); b[j]:= true; end; end; BEGIN Nhap; assign(f, fo); rewrite(f); Try2(1); close(f); END.

Category: Mã nguồn các thuật toán điển hình

Danh mục bài viết

• Lập trình Pascal
• Lập trình C / C++
• Lập trình Java
• Lập trình Python
• Lập trình Scratch
• Robotics
• Thiết kế Web
• Mã nguồn các thuật toán điển hình
• SGK theo CTr GDPT mới
• Tin học thường thức

Đọc NHIỀU nhất

• Các kiểu dữ liệu số nguyên, số thực thường dùng trong Free Pascal
• Tiện ích sinh test tự động cho phần mềm chấm điểm tự động Themis của TS. Lê Minh Hoàng
• Hướng dẫn cài đặt Phần mềm chấm điểm tự động môn Tin học trên mạng LAN nội bộ hoặc Internet (Themis Web)
• Mảng 2 chiều trong Python
• Chuyển đổi ngôn ngữ sang tiếng Anh trên Winrar

Phần mềm

• Phần mềm tự viết
• Phần mềm thương mại

Thiết kế bởi Thủ khoa Nguyễn Tô Sơn.