Đề thi lập trình pascal

Sở giáo dục và đào tạo Đề thi tuyển sinh lớp 10 thpt chuyên năm học 2008-2009
Tỉnh ninh bình Môn: Tin học
Thời gian làm bài: 150 phút (không kể thời gian giao đề)
(Đề thi gồm 03 bài trong 02 trang)
Chú ý: Thí sinh phải đặt tên các files bài làm chính xác nh sau:
Bài 1: (6 điểm) Cho số nguyên dơng N 10 000.
- Kiểm tra xem N có phải là số nguyên tố hay không?
- Nếu N không phải là số nguyên tố hãy chỉ ra xem có thể xoá đi đúng 1 chữ số của N để kết
quả thu đợc là số nguyên tố hay không?
Dữ liệu vào: In ra màn hình thông báo: N = và nhập N từ bàn phím.
Dữ liệu ra: In kết quả ra màn hình, mỗi thông báo trên một dòng.
- Nếu N là nguyên tố in ra thông báo: La so nguyen to. Nếu không, in ra: Khong la so
nguyen to.
- Trong trờng hợp cần phải xoá, nếu xoá đợc in ra: Xoa duoc: và in ra số thu đợc sau khi
xoá, nếu không xoá đợc, in ra: Khong xoa duoc (nếu có nhiều cách xoá chỉ cần chỉ ra 1
cách).
Ví dụ:
Dữ liệu vào Dữ liệu ra
N = 121 Khong la nguyen to
Xoa duoc 11
Bài 2: (6 điểm) Một số nguyên dơng gọi là đối xứng thập phân nếu viết các chữ số của nó theo
thứ tự ngợc lại thu đợc chính số đó, chẳng hạn 121 là số đối xứng thập phân. Một số nguyên dơng
đợc gọi là đối xứng nhị phân nếu biểu diễn số đó trong hệ nhị phân và viết các chữ số trong hệ nhị
phân của nó theo thứ tự ngợc lại thu đợc chính số đó (trong hệ nhị phân), chẳng hạn 21 = 10101
2
là số đối xứng nhị phân. Hãy liệt kê tất cả các số vừa đối xứng nhị phân vừa đối xứng thập phân
trong đoạn [1; N], biết rằng 1 < N

10 000.
Dữ liệu vào: In ra màn hình thông báo nhập: N = và nhập n từ bàn phím.
Dữ liệu ra: In kết quả ra màn hình, thông báo: Tim duoc: và in ra danh sách các số tìm đợc,

giữa 2 số ngăn cách nhau bằng một dấu cách (space).
Ví dụ:
Dữ liệu vào Dữ liệu ra
N = 5 Tim duoc: 1 3 5
Bài Tên file
1 bai1.pas
2 bai2.pas
3 bai3.pas
Trang 1
đề thi chính thức
Bài 3: (8 điểm) Cho 2 dãy n số, 0<n1000: Dãy A: a
1
, a
2
,, a
n
và dãy B: b
1
, b
2
,, b
n
, trong đó
0a
i
, b
i
255 (1in).
- Kiểm tra các số trong cả hai dãy A và B có đôi một khác nhau hay không (tức là a
i

a
j
, b
i

b
j
và a
i
b
j
, i,j, 1i, jn).
- Với một dãy số X: x
1
, x
2
,, x
n
, ngời ta gọi dãy con liên tục của nó: x
i
, x
i+1
,, x
i+k
(1ii+kn) là một đoạn con độ dài k. Hãy tìm một đoạn con chung có độ dài lớn nhất của 2
dãy A và B.
Dữ liệu vào: Nhập từ bàn phím.
- In ra màn hình thông báo: n = và nhập n.
- In ra màn hình thông báo yêu cầu nhập vào dãy số và nhập vào 2n số a
1

, a
2
,, a
n
, b
1
, b
2
,,
b
n
, trong đó với mỗi số a
i
, cần in ra thông báo nhập: A[i] = , với mỗi số b
i
in ra thông báo
nhập B[i] = .
Dữ liệu ra: In kết quả ra màn hình, mỗi thông báo trên 1 dòng.
- Nếu các số trong dãy cả hai dãy đôi một khác nhau in ra Phan biet. Nếu không, in ra
Khong phan biet.
- Nếu A và B có đoạn con chung in ra Doan con chung dai nhat: và in ra lần lợt các số
trong đoạn con chung dài nhất, giữa 2 số ngăn cách nhau bởi một dấu cách (space). Nếu A và
B không có đoạn con chung in ra Hai day khong co doan con chung
Ví dụ:
Dữ liệu vào Dữ liệu ra
n = 5
Nhap day A:
A[1] = 1
A[2] = 2
A[3] = 3

A[4] = 4
A[5] = 5
Nhap day B:
B[1] = 1
B[2] = 3
B[3] = 4
B[4] = 5
B[5] = 5
Khong phan biet
Doan con chung dai nhat: 3 4 5
---------------Hết---------------
Họ và tên thí sinh: SBD: Số CMND:...
Chữ ký giám thị 1: Chữ ký giám thị 2:.
Trang 2
Sở giáo dục và đào tạo Đáp án đề thi t/s lớp 10 thpt chuyên năm học 2008-2009
Tỉnh ninh bình Môn: Tin học
Thời gian làm bài: 150 phút (không kể thời gian giao đề)
(Đáp án gồm 04 trang)
Phần 1: Hớng dẫn chấm
Chấm lần lợt từ bài 1 đến bài 3, mỗi bài cho điểm 1 trong 2 trờng hợp sau:
Nếu chơng trình không chạy, không đa ra đợc output:
Chấm mã nguồn:
- Phần nhập đúng: 0.5 điểm
- Chơng trình đủ dài (hơn 10 dòng), trình bày đẹp: thể hiện đúng cấu trúc lồng nhau của các
khối lệnh, xuống dòng hợp lý: 0.5 điểm.
Nếu chơng trình chạy, thực hiện đợc input và output (không nhất thiết phải đúng): 1 điểm
Chấm test:
- Chấm lần lợt các test, mỗi test cần thử ít nhất 2 lần.
- Phần nào mà thí sinh luôn luôn in ra 1 kết quả hoặc kết quả không đơn định thì phần đó
không cho điểm.

Chú ý:
- Thí sinh in ra các thông báo khác với đề bài nhng không có dấu hiệu đặc biệt (đánh dấu
bài) vẫn cho điểm.
- Kết quả của thí sinh có thể khác với đáp án nhng nếu đúng vẫn cho điểm.
Bài 1: (6 điểm) file mã nguồn: bai1.pas
Test:
Test Input (N) Output Điểm
01 1 Khong la so nguyen to
Khong xoa duoc
0.25
0.25
02 4 Khong la so nguyen to
Khong xoa duoc
0.25
0.25
03 13 La so nguyen to 0.5
04 21 Khong la so nguyen to
Khong xoa duoc
0.25
0.25
05 94 Khong la so nguyen to
Khong xoa duoc
0.25
0.25
06 123 Khong la so nguyen to
Xoa duoc 13
0.25
0.25
07 231 Khong la so nguyen to
Xoa duoc 23

0.25
0.25
08 312 Khong la so nguyen to
Xoa duoc 31
0.25
0.25
09 1997 La so nguyen to 0.5
10 1341 Khong la so nguyen to
Xoa duoc 131
0.25
0.25
Bài 2: (6 điểm) file mã nguồn: bai2.pas
Test:
Test Input (N) Output Điểm
01 1 Tim duoc: 1 0.5
02 5
Tim duoc: 1 3 5
0.5
03 10
Tim duoc: 1 3 5 7 9
1
04 100
Tim duoc: 1 3 5 7 9 33 99
1
Trang 3
đề thi chính thức
05 1000
Tim duoc: 1 3 5 7 9 33 99 313 585 717
1
06 10000

Tim duoc: 1 3 5 7 9 33 99 313 585 717 7447 9009
1
Trang 4
Bµi 3: (8 ®iÓm) file m· nguån: bai3.pas
Test:
Test Input (N, d·y A, d·y B) Output §iÓm
01 1
5
5
Khong phan biet
Doan con chung dai nhat: 5
0.25
0.25
02 2
1 2
3 4
Phan biet
Hai day khong co doan con chung
0.25
0.25
03 2
1 2
2 1
Khong phan biet
Doan con chung dai nhat: 1
0.25
0.25
04 3
1 2 3
4 5 6

Phan biet
Hai day khong co doan con chung
0.25
0.25
05 3
1 2 3
4 5 4
Khong phan biet
Hai day khong co doan con chung
0.25
0.25
06 3
1 2 3
4 2 5
Khong phan biet
Doan con chung dai nhat: 2
0.25
0.25
07 5
1 2 3 4 5
1 3 4 5 5
Khong phan biet
Doan con chung dai nhat: 3 4 5
0.5
0.5
08 5
1 2 3 4 5
5 2 3 4 1
Khong phan biet
Doan con chung dai nhat: 2 3 4

0.5
0.5
09 5
1 2 3 4 5
3 4 5 1 2
Khong phan biet
Doan con chung dai nhat: 3 4 5
0.5
0.5
10 6
1 2 1 2 1 2
1 2 2 2 1 2
Khong phan biet
Doan con chung dai nhat: 2 1 2
0.5
0.5
PhÇn 2: Ch¬ng tr×nh mÉu
Bµi 1: (6 ®iÓm)
(************************************************
De thi tuyen sinh tin hoc 10
21/6/2008
Mon Tin hoc
Bai 1
************************************************)
var
N, q, tN, i: LongInt;
Check: Boolean;
BEGIN
Write('N = '); ReadLn(N);
tN := N;

i := 0;
repeat
if i = 0 then
begin
tN := N; i := 1;
end
else
begin
tN := (N div (i*10)) * i + (N mod i);
i := i*10;
Trang 5