HSG huyện Tin 0809

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).


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ố nguyên bất kì. Viêt chương trình tìm số lớn nhất trong 3 số nguyên đó.
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 FilesTP 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):


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 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 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;