Kt thực hành tin8-hong-dh

Soạn : 17 /4 /2012
Giảng: 20 /4 /2012
Tiết 66 - BÀI KIỂM TRA 1 TIẾT THỰC HÀNH

A. MỤC TIÊU
1. Kiến thức
- Đánh giá kiến thức của HS qua bài kiểm tra
- Vận dụng những kiến thức đã học để làm bài kiểm tra
2. Kỹ năng: Bổ sung những kiến thức cơ bản về lập trình pascal
3. Thái độ: Nghiêm túc làm bài
B. CHUẨN BỊ
1. Giáo viên: Bài kiểm tra….
2. Học sinh: Kiến thức đó học, đồ dùng học tập
C. MA TRẬN ĐỀ:
Mức độ

Kiến thức
Nhận biết
Thông Hiểu
Vận dụng
Tổng


TN
TL
TN
TL
TN
TL


Nhập dữ liệu cho mảng
Số ý



2


2


Điểm



4


4

In giá trị của các ptử trong mảng
Số ý



1


1


Điểm



2


2

Thực hiện tính toán với các giá trị của mảng
Số ý





3
3


Điểm





4
4

Tổng
ý



3

3
6


Điểm



6

4
10


D. CÁC BƯỚC LÊN LỚP
I. Ổn định lớp
Lớp
8A
8B
8C

Vắng






II. Phát đề kiểm tra

ĐỀ BÀI
Bài 1: Viết chương trình nhập vào một mảng các số nguyên. In ra màn hình dãy số vừa nhập và in giá trị trung bình cộng của mảng đó.
Bài 2: Viết chương trình nhập vào một dãy số và in ra giá trị lớn nhất và nhỏ nhất của dãy số đó.

III.. Hướng dẫn về nhà
Làm lại bài kiểm tra
Xem lại các bài học để tiết sau ôn tập cuối năm

ĐÁP ÁN VÀ THANG ĐIỂM
Bài 1: (6 điểm)
Program TinhTBC;
Uses crt;
Var
A: array[1..100] of integer
N,I:integer;
TB: real;
Begin
Clrscr;
Write(‘Nhap so phan tu cua mang N ’);
Readln(n); 1 đ
Write(‘Nhap gia tri cho cac phan tu cua mang ’);
For i:=1 to n do
Begin
Write(‘A[’,i,‘]=’);
Readln(A[i]); 1 đ
End.
Write(‘Mang vua nhap la: ’);
For i:=1 to n do Write(A[i], ‘; ’); 2 đ
Write(‘Tinh TB cong cua mang: ’);
TB:=0; 0.5 đ
For i:=1 to n do TB:=TB+A[i]; 1 đ
Writeln(‘TB cua mang la:’ , TB); 0.5 đ
readln
End.
Bài 2: (4 điểm)
program Max_Min;
uses crt;
var
a:array[1..100] of integer;
i,n,max,min:integer;
begin
Clrscr;
Write(‘Nhap so phan tu cua mang N ’);
Readln(n); 1 đ
Write(‘Nhap gia tri cho cac phan tu cua mang ’);
For i:=1 to n do
Begin
Write(‘A[’,i,‘]=’);
Readln(A[i]); 1 đ
End.
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i]; 0.5 đ
if a[i]end;
writeln(`gia tri nho nhat la`, min:4); 0.5 đ
writeln(`gia tri lon nhat la`, max:4); 0.5 đ
readln;
end.
tiết 66
IV.Rút kinh nghiệm giờ kiểm tra
.....................................................................................................................................
.....................................................................................................................................
.....................................................................................................................................