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. . 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. 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ó. ',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);