Đáp án đề HSG TIN HỌC lớp 9 tỉnh QBình năm 2011

Së Gd&§t kú thi CHäN häc sinh giái líp 9 THCS
Qu¶ng b×nh n¨m häc 2010 - 2011
m«n: tin häc
híng dÉn chÊm
I- Phương pháp:
- Giám khảo tạo 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 gợi ý dưới đây để tính toán kết quả
của dữ liệu vào.
- Chương trình học sinh đúng một bộ test, giám khảo cho 0,5 điểm. Như vậy,
nếu một câu có 3 điểm thì giám khảo phải tạo 6 bộ test.
- Với mỗi câu, giám khảo phải tạo được ít nhất một bộ test có không gian dữ
liệu lớn.
II- Chương trình gợi ý:
Câu 1: (3,0 điểm) Diện tích hình hộp chữ nhật
Program Dien_tich_hinh_hop_chu_nhat;
Var a,b,h,S:Real;
Begin
Write('a= '); Readln(a);
Write('b= '); Readln(b);
Write('h= '); Readln(h);
S:= 2*a*b + 2*a*h + 2*b*h;
Writeln('S= ',S:0:0);
Readln;
End.
Câu 2: (3,5 điểm) Biến đổi xâu
Program Bien_doi_xau;
Const MaxN = 21;
Var St:String;
K,P,Q,i:Byte;Ch:Char;
Begin

Write('St= '); Readln(St);
Write('K= '); Readln(K);
For i:=1 to K do
Begin
Write('P',i,'= '); Readln(P);
Write('Q',i,'= '); Readln(Q);
Ch:=St[P]; St[P]:=St[Q];St[Q]:=Ch;
End;
Writeln('Ket qua: ',St);
Readln;
End.
Câu 3: (3,5 điểm) Lỗ hổng chữ số
Program Lo_hong_chu_so;
Const A:Array[0 9] of Byte = (1,0,0,0,1,0,1,0,2,1);
Var N:Longint; Dem,T:Byte;
Begin
Write('N= '); Readln(N);
Dem:=0;
While N<>0 Do
Begin
T:=N mod 10;
Dem:=Dem + A[T];
N:=N div 10;
End;
Writeln(Dem);
Readln;
End.