HỘI THI TIN HỌC TRẺ QUẢNG TRỊ LẦN THỨ XII - NĂM 2010
Đề thi lập trình Bảng B: Trung học cơ sở
Thời gian 120 phút (Không kể thời gian giao đề)
Ngày thi: 08-07-2010.
Tổng quan về đề thi
Tổng quan Bài 1 Bài 2 Bài 3
Tên bài làm QGOP.PAS DXAU.PAS RUNG.PAS
Dữ liệu vào Nhập từ bàn phím DXAU.INP RUNG.INP
Dữ liệu ra Thông báo ra màn hình DXAU.OUT RUNG.OUT
Em hãy lập trình thực hiện các công việc sau đây:
Bài 1. (20 điểm) Quyên góp từ thiện Tên File chương trình là QGOP.PAS
Trong buổi lễ phát động quyên góp ủng hộ các nạn nhân chất độc màu da cam có 100
người tham gia, để quản lý được số tiền quyên góp ban tổ chức đưa ra phương án thực hiện
quyên góp như sau:
Ban tổ chức viết 100 lá phiếu bỏ vào một thùng kín, mỗi lá phiếu ghi một số từ 1 đến
100 sao cho không có hai phiếu nào có số trùng nhau. Sau đó, từng người một sẽ bốc một lá
phiếu và căn cứ vào số ghi trên phiếu để đóng góp một khoản tiền có giá trị là:
T = (số_ghi_trên_phiếu)
2
mod (số_ghi_trên_phiếu *2) (VNĐ).
Cho biết: Phiếu đã rút ra sẽ không được sử dụng lại.
Yêu cầu: 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ả: Thông báo ra màn hình
Bài 2. (20điểm) Đếm ký tự Tên File chương trình là DXAU.PAS
Bạn Tý viết lên bảng một xâu ký tự st và một ký tự x bất kỳ rồi đố bạn Tèo: trong xâu
st có bao nhiêu ký tự x và ký tự x xuất hiện ở những vị trí nào trong xâu st.
Yêu cầu: Em hãy giúp bạn Tèo trả lời câu hỏi trên.
Dữ liệu vào: cho trong file DXAU.INP:
gồm 1 dòng là xâu st do bạn Tý viết (xâu dài không quá 255)
Kết quả: ghi ra tệp DXAU.OUT
- Dòng đầu là lần xuất hiện ký tự x trong xâu st

2 2
1 0 1 1
1 0 1 1
1 0 0 0
1 1 1 1
1
2
2 2
1 2
4
2 2
1 1 1 1
1 0 1 1
1 0 0 1
1 1 1 1
0
Chú ý:
- Cán bộ coi thi không giải thích gì thêm.
- Thí sinh lập trình bằng ngôn ngữ lập trình Pascal hoặc Free Pascal, Tên file phải được
đặt đúng theo yêu cầu của đề bài (không được đặt đường dẫn cho các file kết quả).
--------------------------------------------------------------------------------------------------------------
Trang 2/2