Đề thi HSG vòng Huyện Tin học Lớp 9

PHỊNG GD&ĐT BÙ ĐỐP
ĐỀ THI CHỌN HSG CẤP HUYỆN
NĂM HỌC 2008 - 2009
MƠN: TIN 9
Thời gian: 150 phút (khơng kể thời gian phát đề)
Bài 1 (5điểm): Nhập vào ba số a, b, c bất kì, viết chương trình để tính giá trị của biểu thức sau
(kết quả lấy tới 2 chữ số thập phân).
2
3a b c
M
a b
+ −
=
+
Bài 2 (5điểm): Nhập vào số n. Viết chương trình tính tổng bình phương các số lẻ từ 1 đến n.
Bài 3 (5điểm): Nhập vào hai số x và n. Viết chương trình tính x luỹ thừa n.
Bài 4 (5điểm): Nhập vào 3 số ngun bất kì. Viêt chương trình tìm số lớn nhất trong 3 số
ngun đó.
HẾT
Yêu cầu khi làm bài:
-Chương trình được đặt tên như sau: PROGRAM SBDxxx;
Trong đó xxx là 3 chữ số báo danh của thí sinh
-Bài làm được lưu (Save) với tên: tương tự như tên chương trình SBDxxx.PAS (Tập
tin được lưu mặc đònh nằm trong C:\Program Files\TP\ WORK, Thí sinh không được thay
đổi nơi lưu bài làm vào các vò trí khác)
-Cần phải lưu ngay bài làm của mình vào máy, cứ vài phút cần bấm F2 để Save
(tránh trường hợp mất điện giữa chừng làm mất bài thi).
HƯỚNG DẪN CHẤM ĐỀ THI CHỌN HỌC SINH GIỎI
NĂM HỌC 2008 – 2009
MÔN: TIN
Câu 1: Nhập vào ba số a, b, c bất kì, viết chương trình để tính giá trị của biểu thức sau (kết quả lấy tới 2

chữ số thập phân):
2
3a b c
M
a b
+ −
=
+
PROGRAM TINH_GT_BT;
VAR a, b, c: integer;
M: REAL;
BEGIN
WRITE('Nhap so a = '); READLN(a);
WRITE('Nhap so b = '); READLN(b);
WRITE('Nhap so c = '); READLN(c);
M:=(a*a+3*b-c)/(a+b);
WRITELN('GIA TRI CAN TINH LA: M= ',M:2:2);
READLN
END.
Bài 2: Tính tổng bình phương các số lẻ
Program Tong_binh_phuong;
Var
i,n,tong:Integer;
Begin
Writeln('TINH TONG BINH PHUONG CAC SO LE');
Writeln(' Tu 1 den N');
Writeln('-------------------------------');
Write('-Nhap N= ');
Readln(n);
tong:=0;

For i:=1 To N Do
If odd(i) Then
tong:=tong+sqr(i);
Writeln;
Writeln('+Tong binh phuong cac so le tu 1 den ',n,' la= ',tong);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Bài 3: Tính x luỹ thừa n
Program Luy_thua;
Var
x,n,tich,luythua:Integer;
Begin
Writeln('TINH TRI CUA X LUY THUA N');
Writeln('-------------------------');
Write('-Nhap vao so X= ');
Readln(x);
Write('-Nhap vao luy thua N= ');
Readln(n);
tich:=1;
luythua:=1;
While luythua <= n Do
Begin
tich:=tich * x;
luythua:=luythua + 1;
End;
Writeln;
Writeln(x,' luy thua ',n,' = ',tich);
Writeln;

Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Bài 4: Tìm số lớn nhất trong 3 số nguyên
Program So_lon;
Var
so1,so2,so3,solon:Integer;
Begin
Writeln('TIM SO LON NHAT TRONG 3 SO NGUYEN');
Writeln(' Cau truc If thieu');
Writeln('---------------------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
If so1 < so2 Then
solon:=so2;
If so2 < so3 Then
solon:=so3;
If so3 < so1 Then
solon:=so1;
Writeln;
Writeln('+So lon nhat trong 3 so la: ',solon);
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.