Đề 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. . PHỊNG GD&ĐT BÙ ĐỐP ĐỀ THI CHỌN HSG CẤP HUYỆN NĂM HỌC 2008 - 20 09 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. 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 – 20 09 MÔN: TIN Câu 1: Nhập vào ba số a, b, c bất kì,