--Trang 1--

SỞ GIÁO DỤC VÀ ĐÀO TẠO
TUYÊN QUANG
ĐỀ THI CHỌN HỌC SINH GIỎI CẤP TỈNH LỚP 12
NĂM HỌC 2009-2010
Môn: Tin học
Thời gian: 180 phút (Không kể thời gian giao đề)
Đề thi có 02 trang

Tổng quan đề thi:
Tên bài Tính điểm Số nguyên tố
cùng nhau
Đếm xâu đối
xứng
Yên ngựa
File bài làm
Bai1.pas Bai2.pas Bai3.pas Bai4.pas
Dữ liệu vào
Bàn phím NTCN.INP PALIN.INP YENNGUA.INP
Dữ liệu ra
Màn hình NTCN.OUT PALIN.OUT YENNGUA.OUT
Điểm
5 5 5 5
Chú ý:
1. Bài thi được làm trên ngôn ngữ lập trình Pascal.
2. Chương trình của Bài 1, Bài 2, Bài 3, Bài 4 phải ghi lên đĩa với tên tương ứng là Bai1.pas,
Bai2. pas, Bai3. pas, Bai4. pas trong thư mục D đặt tên SBD của mình ví dụ: D:\SBD01\Bai1. pas

đọc từ phải sang trái đều giống nhau. Một kí tự cũng được coi là một xâu đối xứng.
Xâu con của S là xâu gồm một số kí tự liên tiếp trong S.
Yêu cầu: Cho trước một xâu kí tự S (kí tự đầu và kí tự cuối khác kí tự dấu cách). Hãy
xác định số xâu đối xứng là xâu con của nó.
Dữ liệu vào: Được lấy từ file văn bản PALIN.INP gồm nhiều dòng (không quá 100
dòng), mỗi dòng là một xâu có chiều dài không quá 80 kí tự.
Dữ liệu ra: Được ghi vào file văn bản PALIN.OUT có số dòng bằng số dòng của
PALIN.INP, mỗi dòng chứa một số nguyên biểu thị số xâu con đối xứng của dòng
tương ứng trong PALIN.INP
Ví dụ:
PALIN.INP PALIN.OUT
J
IOI
MIT TIM
1
4
10

Bài 4.
Cho một ma trận hai chiều A cấp m x n. Phần tử A[i,j] được gọi là yên ngựa nếu nó là
số lớn nhất trong cột j và là số nhỏ nhất trong hàng i.
Yêu cầu: Tìm số phần tử yên ngựa của ma trận A.
Dữ liệu vào: Được lấy từ file YENNGUA.INP có cấu trúc như sau:
- Dòng thứ nhất gồm hai số nguyên dương m, n (m,n ≤100)
- m dòng tiếp theo mỗi dòng gồm n số nguyên, các số nguyên cách nhau bởi một
dấu cách là ma trận A (A[i,j] có giá trị tuyệt đối ≤ 10000)
Dữ liệu ra: Được ghi vào file YENNGUA.OUT gồm một số nguyên duy nhất là số
lượng yên ngựa trong ma trận A
VÝ dô:
YENNGUA.INP YENNGUA.OUT

test sau:

Bài InPut OutPut Điểm
Bài 1:
Chạy trực tiếp chương trình, cho kết quả đúng
5
Bài 2:

5

8 15 1 2

2 2009 1 2

2010 2000 0 1
Bài 3:

5

A 1 2

AYA 4 2
TIK KIT 10 1
Bài 4:

5

3 4
4 3 6 5
9 -2 -9 4

Reset(f);
Readln(f,m,n);
Close(f);
End;
Function Ucln(m,n:Longint):Longint;
Var r:longint;
Begin
r := m mod n;
While r <> 0 do
Begin
m:=n;
n:=r;
r:= m mod n;
end;
Ucln:=n;
End;
Procedure Ghi;
Var f:text;
Begin
Assign(f,fo);
ReWrite(f);
If ucln(m,n) = 1 then
Writeln(f,1)
Else
Writeln(f,0);
Close(f);
End;
BEGIN
Doc;
--Trang 5--

Begin
check_palin:=false;
temp:=copy(s,i,k);
for j:=1 to length(temp) div 2 do
if temp[j]<>temp[length(temp)-j+1] then exit;
check_palin:=true;
End;
Function Count_Palin(s:string):longint;
Var count,i,k:longint;
Begin
count:=0;
for i:=1 to length(s) do
for k:=1 to length(s)-i+1 do
if check_palin(s,i,k) then inc(count);
count_palin:=count;