UBND HUYỆN THANH OAI
PHÒNG GD&ĐT



( Đề thi có 01 trang )
ĐỀ THI CHỌN HỌC SINH GIỎI LỚP 9 - THCS CẤP HUYỆN
NĂM HỌC 2015 - 2016
Môn: Tin học
(Thời gian làm bài 150 phút không kể thời gian giao đề )


Yêu cầu chung khi làm bài:
Mỗi thí sinh tạo một thư mục tại thư mục gốc ổ đĩa D: để lưu bài thi. Tên thư mục có dạng SBDxyz. Trong đó xyz là số báo danh của thí sinh.
Bài làm các câu hỏi của mỗi bài thi được lưu trong một file và được đặt tên là BAI1.PAS, BAI2.PAS, BAI3.PAS, BAI4.PAS.
Kết quả được xuất ra màn hình theo như dạng được cho ở ví dụ gồm tên câu hỏi và kết quả.
Đối với câu hỏi có nhiều kết quả thì ghi ra tất cả các kết quả tìm được. Trường hợp không có kết quả thì xuất KHONG.

Câu 1: (4,0 điểm):
Viết chương trình tính chu vi, diện tích hình vuông có cạnh a (được nhập từ bàn phím).
Câu 2: (5,0 điểm):
Viết chương trình tìm ước chung lớn nhất (UCLN) của hai số với yêu cầu sử dụng thuật toán Euclid.
Thuật toán Euclid: Nếu a chia hết cho b (a chia b dư 0) thì UCLN(a,b) bằng b
Nếu a chia b dư r thì UCLN(a,b) = UCLN(b,r)
Câu 3: (3,0 điểm):
Viết chương trình tính diện tích của tam giác có ba cạnh là a,b,c (được nhập từ bàn phím)

Câu 4 (4,0 điểm):
Viết chương trình giải phương trình ax + b = 0 (Các hệ số a, b được nhập từ bàn phím).
Câu 5 (4,0 điểm): Viết chương trình nhập số tự nhiên n sao cho 5 < n ≤100, nếu nhập sai yêu cầu nhập lại khi nào nhập đúng thì tính tổng sn:



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Hết~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Người duyệt đề Người ra đề



Đặng Thị Quỳnh

HƯỚNG DẪN CHẤM THI CHỌN HSG LỚP 9 - THCS CẤP HUYỆN
NĂM HỌC 2015 – 2016
Môn: Tin học
Bài 1: Mẫu chương trình:
Program HINH_VUONG;
uses crt;
Var canh: real;
Begin
clrscr;
Write(`Nhap do dai canh:`);readln(canh);
Writeln(`Chu vi hinh vuong la:`,4*canh:10:2);
Writeln(`Dien tich hinh vuong la:`,canh*canh:10:2);
readln
end.


0,5đ


0,5đ
1đ
1đ

1(đ)

Bài 2: Mẫu chương trình:
Program UCLN;
uses crt;
var a,b,r:byte;
begin
clrscr;
writeln(`CHUONG TRINH TIM UCLN CUA HAI SO`);
write(`Nhap a: `);readln(a);
write(`Nhap b: `);readln(b);
r:=a mod b;
while r<> 0 do
begin
b:=r;
a:=b;
r:=a mod b;
end;
write(`UCLN cua hai so la: `,b);
readln
end.


0,5đ


0,5đ

0,5đ
0,5đ
0,5đ

0,5đ
0,5đ

0,5đ


1đ

Bài 3: Mẫu chương trình
Program TAM_GIAC;
uses crt;
Var a,b,c,p,S: real;
Begin
clrscr;
Write(`Nhap canh a:`);readln(a);
Write(`Nhap canh b:`);readln(b);
Write(`Nhap canh c:`);readln(c);
p:=(a+b+c)/2;
S:= sqrt(p*(p-a)*(p-b)*(p-c));
Write(`Dien tich tam giac la:`,s:10:2);
readln
end.


0,5đ



0,5đ

0,5đ
0,5đ


1đ

Bài 4: Mẫu chương trình:
Program Phuong_trinh_bac_nhat;
uses crt;
var a,b:real;
begin
clrscr;
Writeln(` CHUONG TRINH GIAI PT ax + b = 0`);
Write(`Nhap he so a = `);readln(a