Đá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.