Đề thi HSG cấp huyện môn Tin học THCS - Năm học 2009-2010

PHÒNG GD&ĐT CAM LỘ 	 ĐỀ THI HSG CẤP HUYỆN 
	 MÔN : TIN HỌC THCS NĂM HỌC 2009 - 2010 
 Thời gian 120 phút (Không kể thời gian giao đề)
Yêu cầu:
- Các File bài làm được lưu theo tên bài. Ví dụ: BAI1.PAS.
- Tất cả các tệp đều được lưu trong thư mục theo đường dẫn: D:\SBD*. (* là số báo danh của thí sinh). Ví dụ: D:\SBD020.
- Em hãy dùng ngôn ngữ lập trình Pascal để lập trình giải các bài toán sau:
Bài 1 (2 điểm): Tìm số: 
Viết chương trình tìm các số có ba chữ số sao cho số đó bằng n lần tổng các chữ số của nó. (n được nhập từ bàn phím).
Bài 2: (3 điểm).Viết chương trình nhập số tự nhiên n (n≤100) và tính giá trị biểu thức Sn:
Bài 3(3 điểm): Viết chương trình nhập vào từ bàn phím dãy số thực a. 
Tính tổng a1 - a2 + a3 -.... . Kết quả được ghi vào tệp văn bản có tên là ketqua.txt. 
Bài 4(2 điểm): Viết chương trình tính điểm trung bình 3 môn Toán _ Lý _ Hóa theo hệ số 2,1,1sau đó xếp loại như sau: sau:
Loại Giỏi: ĐTB >= 8.0 và không có môn nào dưới 6.5
Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nàio dưới 5
Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn dưới 3.5
Loại yếu: còn lại
-----------------------------------
Phßng GD - §T Cam Lé
H­íng dÉn ChÊm Thi Hsg M«n TIN HỌC
N¨m häc 2009 - 20109
Yêu cầu chung:
Yêu cầu chương trình chạy thông suốt.	( 2-3 điểm)
	+ Hoàn thành đúng phần khai báo các biến:	(0,25 điểm)
+ Viết đúng chương trình nhập mảng:	(0,25 điểm)
+ Viết đúng thuật toán (cách giải) tính tổng:	(1-2 điểm)
+ Viết đúng thủ tục tạo và ghi kết quả vào tệp:	(0,5 điểm)	
- Chương trình chạy cho kết quả đúng: khai báo đầy đủ, trình bày có cấu trúc rõ ràng cho điểm tối đa. Không khai báo mỗi biến trừ 0.25 điểm.
- Chương trình cho kết quả sai: Chỉ chấm phần các ý chính của thuật toán, mỗi ý đúng cho điểm không vượt quá 40% số điểm của câu.
Bài 1: (2 điểm)
Chương trình tham khảo:
Tìm số 
Program Tim_so_co_ba_chu_so;
Uses crt;
Var a,b,c:0..9;	
 n,dem:byte;
Begin
 clrscr;
 write('nhap so n lan: ');readln(n);
 dem:=0;
 For a:=1 to 9 do
 For b:= 0 to 9 do	
 For c:=0 to 9 do
 If 100*a+10*b+c = n*(a+b+c) then
 Begin
 writeln(a,b,c);
 dem:=dem+1;
 End;
 If dem = 0 then write('Khong tim thay so nay!');
Readln;
End.
Bài 2: (3 điểm)
Uses Crt;
Var 
	N,i:Integer;	
	s:Real;
BEGIN
ClrScr; 
Write(‘Nhap so tu nhien n=');Readln(n);
s:=0;
For i:=1 to n do s:=s+i/(i+1);
Write(‘s=’,s:4);
Readln
END.
Mỗi test sau đây đúng được 1,0 điểm.
n nhập vào
Kết quả S trên màn hình
1
0.500
100
95.803
1000
993.514
Bài 3: (2 điểm)
Chương trình tham khảo:	
{BAI 3}
Program bai3;
uses crt;
{Phần khai báo các biến}
var a: array[1..100] of real;
 i,n,d: integer;
 s: real;
 f: text;
{Chương trình chính}
BEGIN
 clrscr;
{Chương trình nhập mảng}
 write('Hay nhap vao n= ' ); readln(n);
 for i:=1 to n do
 begin
 write('So thu ' , i , ' la:'); readln(a[i]);
 end;
{Chương trình tính toán}
 s:=0;
 d:=+1;
 for i:=1 to n do
 begin
 s:=s+a[i]*d;
 d:=-d;
 end;
{Thủ tục tạo và ghi kết quả vào tệp}
 assign(f,'ketqua.txt');
 rewrite(f);
 write(f, 'Tong la S= ',s:2:2);
 close(f);
END.
Bài 4: (2 điểm)
 Xếp loại học sinh
program xep_loai_hoc_sinh;
uses crt;
var t,l,h,tbc, min:real;
	xl:string;
begin
write('moi nhap diem toan,ly,hoa: ');
readln(t,l,h);
min:=l;
if min>t then min:=t;
if min>h then min:=h;
tbc:=(t*2+l+h)/4;
if (tbc>=8) and (min>=6.5) then xl:='Gioi';
 else if (tbc>=6.5) and (min>=5)
 then xl:=’Kha’;
 else if (tbc>=5) and (min>=3.5)
 then xl:='Trung binh'
 else xl:='yeu';
writeln(‘Diem trung binh:’,tbc:0:1,’ Xep loai:’,xl);
readln;
end.
	Lưu ý: 
 Phương án chấm trên đây có thể điều chỉnh cho phù hợp theo tình hình bài thi của thí sinh. Giám khảo thống nhất biểu điểm chi tiết chấm cho hợp lý.
Trên cơ sở yêu cầu chung giám khảo vận dụng chấm cụ thể cho từng bài. (Loại bài 3 điểm: Viết đúng thuật toán (cách giải), tính là 2 điểm	
Loại bài 2 điểm: Viết đúng thuật toán (cách giải), tính là 1 điểm )