Giáo án Tin học 8 - Tiết 34: Kiểm tra 1 tiết (Thực hành) - Năm học 2009-2010 - Phạm Tấn Phát

Tuaàn 67
Ngaøy soaïn:
Tieát: 34
Ngaøy daïy:
Kieåm tra 1 tieát (thöïc haønh)
I./ Muïc ñích yeâu caàu:
- Đánh giá quá trình vận dụng kiến thức các bài 6,7,8 ,9 vào giải các bài toán đơn giản.
II./ Ma trận kề:
Câu
Về kiến thức
Về kỹ năng
1
2
3
4
5
6
Biết
x
x
x
Hiểu
x
x
Vận dụng
x
* Ma trận kề trên đánh giá qua các mức độ:
-Mức độ biết: 5 điểm
-Mức độ hiểu: 3 điểm
-Mức độ vận dụng: 2 điểm
IV./ Nội dung đề kiểm tra:
ĐỀ KIỂM TRA THỰC HÀNH MÔN TIN HỌC 8
Viết chương trình giải quyết các vấn đề sau:
a./ Lưu chương trình đúng tên và nơi qui định (1 điểm): D:\LOP81\KT1T_Maso.pas
b./ Khai báo mảng tên A có 5 phần tử có kiểu số nguyên (2 điểm)
c./ Khai báo biến i, Max, Min, S có kiểu số nguyên (1 điểm)
d./ Viết chương trình nhập mảng A có 5 phần tử có kiểu nguyên (2 điểm)
e./ Viết chương trình xử lý giá trị lớn nhất, nhỏ nhất và in giá trị lớn nhất, nhỏ nhất cùa mảng A (2 điểm)
f./ Viết chương trình (2 điểm)
+ Đề 1: in lên màn hình mảng A 
+ Đề 2: tính tổng các phần tử của mảng A
+ Đề 3: tính tổng các phần tử chẳn của mảng A
+ Đề 4: tính tổng các phần tử lẻ của mảng A
V./ Đáp án và thang điểm từng phần
-Hs lưu đúng cho 1điểm: (D:\LOP81\KT1T_Maso.pas)
-Hs viết chương trình đúng chấm theo đáp án chi tiết dưới đây
Đề
Nội dung đáp áp
Điểm
chung
a./ Lưu đúng đường dẫn qui định:
D:\LOP81\KT1T_Maso.pas
b./ Khai báo mảng A có 5 phần tử có kiểu nguyên:
Var A:array[1..5] of integer;
c./ Khai báo biến i, Max, Min, S có kiểu số nguyên 
Var i, Max, Min, S:integer;
d./ Viết chương trình nhập mảng A có 5 phần tử nguyên
Write(‘Nhap cac phan tu nguyen:’);
For i:=1 to 5 do begin write(‘A[‘,i,’]=’); readln(A[i]); end;
e./ Viết chương trình xử lý giá trị lớn nhất, nhỏ nhất và in giá trị lớn nhất , nhỏ nhất
Max:=A[1]; Min:=A[1];
For i:=1 to 5 do
Begin
 if max<A[i] then Max:=A[i];
 if Min>A[i] then Min:=A[i]; 
end;
Writeln(‘Gia tri lon nhat la:’, Max);
Writeln(‘Gia tri nho nhat la:’, Min);
f./ Viết chương trình
1 điểm
2 điểm
1 điểm
2 điểm
2 điểm
1
Writeln(‘Cac phan tu cua mang A la:’);
For i:=1 to 5 do write(A[i],’; ‘);
2 điểm
2
S:=0;
For i:=1 to 5 do S:=A+A[i];
Writeln(‘Tong cac phan tu cua mang A la:’, S);
2 điểm
3
S:=0;
For i:=1 to 5 do 
if A[i] mod 2=0 then S:=A+A[i];
Writeln(‘Tong cac phan tu chan cua mang A la:’, S);
2 điểm
4
S:=0;
For i:=1 to 5 do 
if A[i] mod 20 then S:=A+A[i];
Writeln(‘Tong cac phan tu le cua mang A la:’, S);
2 điểm
VI./ Rút kinh nghiệm tiết kiểm tra
Lớp
Dưới TB
Tỉ lệ
Trên TB
Tỉ lệ
Những tồn tại cần khắc phục
81
82
83
84
85