Đang tải... (xem toàn văn)
- 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.[r]
(1)Së Gd&§t kú thi CHäN häc sinh giái líp 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 liệu vào, tính tốn kết Thực chương trình của học sinh so sánh kết quả.
- Giám khảo sử dụng chương trình gợi ý để tính tốn kết quả của liệu vào.
- Chương trình học sinh test, giám khảo cho 0,5 điểm Như vậy, nếu câu có điểm giám khảo phải tạo test.
- Với câu, giám khảo phải tạo 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
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;