Đề thi học sinh giỏi môn Tin học 8 năm học 2013-2014

ĐỀ THI HỌC SINH GIỎI
MÔN TIN HỌC 8
NĂM HỌC 2013-2014
Thời gian: 150 phút
I. NỘI DUNG ĐỀ
Câu 1 (4 điểm): Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím).
Câu 2 (4 điểm): Hãy điền các lệnh còn thiếu vào chỗ trống để hoàn thiện chương trình sau:
Program Chao_hoi;
uses .......; 
var Tieptuc: char;
Ten: .......; 
Begin
Tieptuc:='c';
while = 'c' do 
	Begin
	write('Nhap ten cua ban'); Readln(..); 
	writeln('Chao ban ', Ten);
	............('Tiep tuc ? c/k'); readln(Tieptuc); 
	end;
..; 
End.
Câu 3 (6 điểm): Viết chương trình tính điểm trung bình 3 môn (Toán, Lý, Hóa) theo hệ số (2:1:1) sau đó xếp loại như sau: 
a) Loại Giỏi: ĐTB >= 8.0 và không có môn nào dưới 6.5
b) Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nào dưới 5
c) Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn dưới 3.5
d) Loại yếu: còn lại
Câu 4 (6 điểm): Viết chương trình nhập vào mảng A là dãy số nguyên, sau đó đưa ra màn hình các số dương trong dãy và tổng các số âm.
- - - - - - - - - -Hết- - - - - - - - - -
Giáo viên ra đề
Võ Thị Cẩm Huyền
II. MA TRẬN ĐỀ
Tên Chủ đề
MỨC ĐỘ KIẾN THỨC VÀ THANG ĐIỂM
Tổng điểm
Nhận biết
Thông hiểu
Vận dụng
Vận dụng ở mức cao hơn
Chủ đề 1:
Sử dụng biến trong chương trình
Khai báo được các biến chiều dài, chiều rộng, chu vi, diện tích
Viết được công thức tính chu vi, diện tích
Điểm 
1 điểm
3 điểm
4 điểm
Chủ đề 2:
Lặp với số lần chưa biết trước
Khai báo thư viện crt
Khai báo biến kiểu xâu kí tự
Sử dụng câu lệnh while ....do
Điểm 
0.5 điểm
1 điểm
2.5 điểm
4 điểm
Chủ đề 3:
Câu lệnh điều kiện
- Khai báo được các biến của bài toán
- Nhập điểm cho 3 môn 
- Sử dụng câu lệnh điều kiện viết được các lệnh để giải bài toán
Điểm 
2.25 điểm
3.75 điểm
6 điểm
Chủ đề 4:
Mảng một chiều
Khai báo được các biến của bài toán
Sử dụng câu lệnh để giải bài toán
Điểm 
1.25 điểm
4.75 điểm
6 điểm
Tổng 
0.5 điểm
5.5 điểm
14 điểm
20 điểm
III. ĐÁP ÁN
Câu
Đáp án
Điểm
1
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
1 điểm 
mỗi biến 0.25
Begin
 Write('Nhap chieu dai:'); readln(a);	
 Write('Nhap chieu rong:'); readln(b);
0.5 
0.5
 S := a*b;
 CV := (a+b)*2;
 Writeln('Dien tich hinh chu nhat la:',S:15:3);
 Writeln('Chu vi hinh chu nhat la:',CV:10:3);
 readln
end.
0.5
0.5
0.5
0.5
2
Program Chao_hoi;
uses crt; 	
var Tieptuc: char;
Ten: string;	
Begin
Tieptuc:='c';
while tieptuc = 'c' do 	 Begin
	write('Nhap ten cua ban'); Readln(Ten);	writeln('Chao ban ', Ten);
	write('Tiep tuc ? c/k'); readln(Tieptuc);
	end;
readln;	
End.
0.5
1
1
0.5
0.5
0.5
3
Program xep_loai_hoc_sinh;
uses crt;
var t,l,h,tbc, min:real;
	xl:string;	
1.5
Begin
write('moi nhap diem toan,ly,hoa: ');
readln(t,l,h); 
Min:=l; 
if min>t then min:=t; 
if min>h then min:=h;
 tbc:=(t*2+l+h)/4; 
if (tbc>=8) and (min>=6.5) then xl:='Gioi'
 else if (tbc>=6.5) and (min>=5) then xl:='Kha'
 else if (tbc>=5) and (min>=3.5) then xl:='Trung binh'
 else xl:='yeu'; 
writeln('Diem trung binh:',tbc:0:1,' Xep loai:',xl); 
readln; 
End.
0.75
0.5
0.5
0.5
0.5
0.25
0.25
0.25
0.25
0.5
0.25
4
Program day_so;
	Uses crt;
	Var
	A: array[1..100] of integer;
	n,i,s:integer;
Begin
	Clrscr;
	Write('nhap so phan tu cua mang A:'); readln(n);
	For i:=1 to n do
	Begin
	Write('A[',i,']='); readln(a[i]);
	End;
	S:=0;
	Writeln('cac so duong trong mang la: ');
	For i:=1 to n do
	Begin
	If a[i] >0 then writeln(a[i]);
	If a[i] <0 then s:=s+a[i];
	End;
	Writeln('tong cac so am trong mang la:',s);
	Readln;
End.
0.5
0.75
0.5
0.5
0.5
0.25
1
0.5
0.5
0.5
0.5