[r]
(1)SỞ GIÁO DỤC & ĐÀO TẠO
QUẢNG TRỊ KỲ THI TUYỂN SINH VÀO LỚP 10 THPT CHUNKhóa ngày 21 tháng 06 năm 2012 Mơn thi: Tin học
Thời gian: 150 phút (Không kể thời gian giao đề)
Hãy dùng ngơn ngữ lập trình Pascal Free Pascal để lập trình giải toán sau:
Bài 1: (1.5 điểm) Mua hàng Tên chương trình:
MUAHANG.PAS
Một cửa hàng bách hóa niêm yết giá bán thông thường có giá X đồng (với 1000 ≤ X ≤ 5000) Để phục vụ học sinh đầu năm mới, cửa hàng có chương trình khuyến đặc biệt dành cho em học sinh sau: giá giảm 10% so với giá ban đầu, tổng số tiền mua từ 30000 đến 50000 đồng giảm 2%, 50000 giảm 3% tổng số tiền mua Biết thông tin này, bạn Tý nhanh chân đến cửa hàng mua số lượng N đủ phục vụ cho năm học (với ≤ N ≤ 150)
Yêu cầu: Hãy lập trình tính số tiền bạn Tý dùng để mua
Dữ liệu vào: X N nhập từ bàn phím
Kết quả: Đưa hình số tiền bạn Tý mua.
Bài 2: (2.5 điểm) Số chính
phương Tên chương trình: SOCP.PAS
Các số nguyên dương 4, 9, 16, 25 gọi số phương Bài tốn đặt là: Cho số nguyên dương N (với ≤ N ≤ 50), viết chương trình tìm cặp số nguyên dương A B cho A2 + B2 số phương (với
0<A, B≤N)
Dữ liệu vào: N nhập từ bàn phím
Kết quả: Đưa hình cặp số A, B tìm được, ghi fìle text có tên SOCP.OUT cặp số viết dòng
Ví dụ: Với N=10, ta tìm cặp số A, B sau: (3,4)
2 (6,8)
Bài 3: (3 điểm) Tìm số Tên chương trình: TIMSO.PAS
Cho số nguyên dương M, N bảng số ngun hai chiều A[1 M,1 N] khơng có phần tử Hãy tìm giá trị phần tử A[h,k] A[p,q] tương ứng
Biết với giá trị X cho trước thì:
- A[h,k] phần tử lớn bảng thõa mãn điều kiện ≤ X - A[p,q] phần tử lớn bảng thõa mãn điều kiện ≥ X
Dữ liệu vào: Cho file TIMSO.INP có cấu trúc sau:
- Dòng đầu số nguyên dương M, N, X (với ≤ M, N ≤ 50 ≤ N ≤ 3000)
(2)- Các số cách dấu cách
Kết ra: Ghi vào file TIMSO.OUT - Dòng 1: ghi giá trị A[h,k], h, k - Dòng ghi giá trị A[p,q], p, q - Các số cách dấu cách
Ví dụ
TIMSO.INP TIMSO.OUT
4 13 10 12 14 16 18 15 17 19 21
12 14
Bài 4: (3 điểm) Tìm dãy số Tên chương trình: DAYSO.PAS
Dãy số {Un} định nghĩa sau:
U1=2;
U2=4;
Với ∀ n ≥ thì:
- Un = + Un-1 n chia hết cho 3;
- Un = + Un-3 n chia hết cho dư 1;
- Un = + Un-2 n chia hết cho dư 2;
Yêu cầu: Hãy tính số hạng Uk dãy số {Un}
Dữ liệu vào: cho file DAYSO.INP có cấu trúc sau: File gồm dòng ghi số nguyên dương k với (2 ≤ k ≤ 100)
Kết ra: ghi vào file DAYSO.OUT với cấu trúc sau: - Dòng 1: ghi số hạng Uk dãy số {Un}
- Dòng ghi k giá trị dãy {Un}
Ví dụ:
DAYSO.INP DAYSO.OUT
3
2
-Hết -Lưu ý: Thí sinh tạo ổ đĩa D thư mục có tên số báo danh, làm lưu thư mục vừa tạo Ví dụ thí sinh có SBD 15 tạo thư mục D:\15 lưu làm vào thư mục