Liệt Kê Các Tổ 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 Trường Đạ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ủ Trường Đại học Sư phạm Hà Nội

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

• Quy trình viết biên bản cuộc họp
• Cách chạy Prompt dài trong NotebookLM
• VietCatSpell - Kiểm tra chính tả tiếng Việt
• Cấu hình bộ dịch C++ 14/C++ 11 cho Themis
• Tìm kiếm và thay thế với chức năng Wildcard trong Word
• Ngôi nhà của em Yến Nhi
• Vẽ ảnh nhân vật để tạo ảnh động
• Tạo câu hỏi trắc nghiệm
• Sắp xếp vị trí thi trong Phòng thi
• Công cụ tích hợp Moss chống gian lận (Copy Code) của thí sinh dành cho Giáo viên

Tìm kiếm

Search ...

Liệt kê các Tổ hợp chập k của n phần tử

Published: 14 May 2017 | Hits: 9759

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 tổ hợp chập k của n phần tử.

const fi = 'TOHOPCHAPK.INP'; fo = 'TOHOPCHAPK.OUT'; MAXN = 20; var f: text; n, k: integer; a: array [0..MAXN] of integer; dem: integer; procedure Nhap; begin assign(f, fi); reset(f); readln(f, n, k); close(f); a[0]:= 0; 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:= a[i-1] + 1 to n do begin a[i]:= j; if i = k then InKQ else Try2(i+1); 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
• GEN AI
• 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.