GV: Phaïm Taán Phaùt Ngày soạn: Ngaøy daïy:.. Kiểm tra 1 tiết thực hành.[r]
Trang 1Trường THCS Đoàn Giỏi-Năm học: 2009-2010 GV: Phạm Tấn Phát
Trang 1
Kiểm tra 1 tiết (thực hành)
I./ Mục đích yêu cầ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 tốn đơn giản.
II./ Ma trận kề:
Về kiến thức Về kỹ
năng Câu
* 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
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
1 điểm
2 điểm
1 điểm
2 điểm
2 điểm
Lop8.net
Trang 2Trường THCS Đoàn Giỏi-Năm học: 2009-2010 GV: Phạm Tấn Phát
Trang 2
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 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 2<>0 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
Lop8.net