ĐỀ THI TIN HỌC KHỐI TRUNG HỌC CƠ SỞThời gian: 120 phút Đề số 1: Bài 1 30 điểm Thí sinh đặt tên chương trình là ungho.pas Có 100 người tham gia buổi phát động ủng hộ nạn nhân chất độc màu
Trang 1ĐỀ THI TIN HỌC KHỐI TRUNG HỌC CƠ SỞ
Thời gian: 120 phút
Đề số 1:
Bài 1 (30 điểm) (Thí sinh đặt tên chương trình là ungho.pas)
Có 100 người tham gia buổi phát động ủng hộ nạn nhân chất độc màu da cam, tiền quyên góp từ thiện được thực hiện theo cách như sau:
Viết 100 lá phiếu bỏ vào một thùng kín, mỗi phiếu ghi một số từ 1 đến 100 sao cho không có hai phiếu nào ghi trùng một số Sau đó, từng người một sẽ bốc một lá phiếu và đóng góp một khoản tiền có giá trị là T = (số_trên_phiếu)2 mod (số_trên_phiếu *2) (VNĐ) Phiếu rút ra sẽ không được dùng lại Trong đó a mod b là phép chia lấy phần dư trong Pascal
Hãy tính tổng số tiền quyên góp được sau khi tất cả các lá phiếu đã được bốc hết, kết quả được ghi vào tệp ungho.out
Bài 2 (30 điểm) Thí sinh đặt tên chương trình là chohang.pas)
Một nhân viên giao hàng có một cái túi có thể tích V = 500 (m3), anh ta cần vận chuyển hai loại hàng hóa có thể tích lần lượt là 7m3 và 13 m3 có số lượng tương ứng là 50 (loại 7m3 và 70 (loại 13m3) Hãy lập trình để xếp hai loại hàng trên vào túi sao cho khoảng trống của túi là ít nhất Yêu cầu thí sinh ghi kết quả ra tệp chohang.out theo định dạng:
- Số thứ nhất: là số các phương án xếp hàng vào túi mà làm cho thể tích trống của túi
là ít nhất
- Số thứ hai: thể tích trống nhỏ nhất của túi
- Giữa hai số có dấu phẩy (,) để phân cách
Bài 3 (40điểm) (Thí sinh đặt tên chương trình là thoc.pas)
Một người thợ mỹ nghệ đã chế tạo ra bàn cờ vua (kích thước 8x8=64 ô vuông) và được nhà vua thưởng một số thóc là S = (21 + 22 + + 264) hạt Một hôm có một người
ăn xin đến xin người thợ mỹ nghệ ít gạo, người thợ mỹ nghệ liền bảo: nếu anh tính được phần dư của S cho 1000 thì tôi sẽ biếu anh một nửa số thóc của tôi
Hãy lập trình giúp người ăn xin có được số thóc trên Yêu cầu thí sinh ghi kết quả
(phần dư của S cho 1000) ra tệp thoc.out Thí sinh được phép sử dụng hàm chia dư (mod) trong Pascal.