Hướng dẫn chấm thi học sinh giỏi tin 9 chuyên

Sở gd- đt Quảng Bình
Đề chính thức

Kỳ thi chọn học Sinh Giỏi lớp 9
Năm học 2007-2008
hớng dẫn chấm môn tin học lớp 9

I/ Phơng pháp chung
- Giám khảo tạo các bộ dữ liệu vào, tính toán kết quả. Thực
hiện chơng trình của học sinh và so sánh kết quả.
- Giám khảo có thể sử dụng chơng trình mẫu để tính kết quả
của dữ liệu vào: TAMGIAC.PAS; TIMSO.PAS; DEMTU.PAS .
- Chơng trình học sinh chạy đúng mỗi bộ test, giám khảo cho
0.5 điểm. Nh vậy, nếu câu hỏi có 3 điểm thì giám khảo phải
tạo đợc 6 bộ test.
- Nếu chơng trình chạy sai test nào thì giám khảo cho 0
điểm đối với test đó.
- Riêng câu 3: Giám khảo cho 0.5 điểm cho mỗi bộ test nhng
chia đều cho 2 ý:
+ Nếu in ra đúng số từ giám khảo cho 0.25 điểm;
+ In ra đợc các từ, mỗi từ trên một dòng giám khảo cho 0.25
điểm.
II/ Chơng trình mẫu
Câu 1: (3 điểm): Nhận dạng tam giác vuông
TAMGIAC.PAS
Program Tam_Giac_Vuong;
Var a,b,c:Integer;
Begin
Write('Nhap vao bo 3 so a, b, c: ');
Readln(a,b,c);
If (a>0) and (b>0) and (c>0) then

Begin
If (a*a + b*b = c*c ) or (b*b + c*c = a*a) or (c*c + a*a = b*b) then
Writeln('BO 3 SO DA CHO THOA MAN')
Else
Writeln('BO 3 SO DA CHO KHONG THOA MAN')
End
Else
Writeln('BO 3 SO DA CHO KHONG THOA MAN');
Readln;
End.

Câu 2: (3.5 điểm): Tìm số
TIMSO.PAS
Program Tim_so;
Var a,b,c: Byte;
So:Word;
Begin


For a:= 1 to 9 do
For b:= 1 to 9 do
For c:= 1 to 9 do
If (89*a - 10*c - b = 0) then
Begin
So := 100*a + 10*b + c;
Writeln(So);
End;
Readln;
End.

C©u 3: (3.5 ®iÓm)
DEMTU.PAS

§Õm tõ

Program Dem_tu;
Var i,Count:Byte; St:String;
Begin
Writeln('Nhap vao mot xau');
Readln(st);
While (st[1]= #32) and (st <> '') do
Delete(st,1,1);
While (st[Length(st)]= #32) do
Delete(st,Length(st),1);
While (Pos(#32#32,st) <> 0) do
Delete(st,Pos(#32#32,st),1);
Count:=0;
For i:= 1 to Length(st) do
If (st[i]=#32) then
inc(Count);
If st <> '' then
inc(Count);
Writeln(Count);
st:= st+#32;
While st <> '' do
Begin
Writeln(Copy(st,1,Pos(#32,st)-1));
Delete(st,1,Pos(#32,st));
End;
Readln;

End.