Đề KT 1 Tiết TH Tin Học 8 (HK2)

Tuần: 35 Tiết 31 Ngày soạn: 07/03

KIỂM TRA 1 TIẾT THỰC HÀNH

I- MỤC TIÊU
1. Kiến thức
- Giúp HS biết cách vận dụng kiến thức đã học để làm bài kiểm tra.
- Giúp GV đánh giá được kiến thức của HS, phát huy mặt tích cực và khắc phục mặt hạn chế để HS biết được năng lực của bản thân.
2. Kỹ năng
- Làm quen với môn học.
- Vận dụng được kiến thức đã học để làm tốt bài tập kiểm tra.
- Nhận biết được mặt tích cực và mặt hạn chế của bản thân.
3. Thái độ
- Giáo dục HS yêu thích môn học.
- Nghiêm túc trong quá trình làm bài kiểm tra.
II- PHƯƠNG PHÁP VÀ PHƯƠNG TIỆN DẠY HỌC
1. Phương pháp
2. Phương tiện
- GV: Đề kiểm tra.
- HS: Giấy, đồ dùng học tập, máy vi tính.
III- NỘI DUNG DẠY HỌC
1. Ổn định lớp + kiểm tra sỉ số (1 phút)
2. Kiểm tra bài cũ//bỏ qua
IV- MA TRẬN ĐỀ

Mức độ
Nội dung
Nhận biết
Thông hiểu
Vận dụng
Tổng


TN
TL
TN
TL
TN
TL


Bài TH 5. Sử dụng lệnh lặp for…do






C1 (5đ)
1 Câu
(5 đ)

Bài TH 7. Xử lí dãy số trong chương trình





C2 (5đ)

1 Câu
(5 đ)

Tổng


 2 Câu
(10 đ)
2 Câu
(10 đ)


V- ĐỀ BÀI
Câu 1: Em hãy viết chương trình Pascal in ra màn hình bảng nhân của một số từ 1 đến 9, số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả? (5 điểm)
Câu 2: Em hãy viết chương trình Pascal sử dụng biến mảng để nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất. N cũng được nhập từ bàn phím? (5 điểm)

_________________________________

ĐÁP ÁN

Câu 1:
- Đầy đủ cấu trúc của một chương trình (1 đ)
- Đúng theo yêu cầu đề bài (2 đ)
- Chương trình không có lỗi (2 đ)

Program Bang_Nhan;
Uses crt;
Var N, i : integer;
Begin
Clrscr;
Writeln (‘ Nhap so N = ’); readln (N);
Writeln;
Writeln (‘Bang nhan ’, N);
Writeln;
For i : = 1 to 10 do
Writeln (N, ‘ x ’, i : 2, ‘ = ’, N*i:3);
Readln;
End.

Câu 2:
- Đầy đủ cấu trúc của một chương trình (1 đ)
- Đúng theo yêu cầu đề bài (2 đ)
- Chương trình không có lỗi (2 đ)

Program MaxMin;
Uses crt;
Var i, n, Max, Min : integer;
A : array[1 . . 100] of integer ;
Begin
Clrscr;
Write (‘ Nhap do dai cua day so, N = ’); readln (n);
Writeln (‘ Nhap cac phan tu cua day so : ’);
For i : = 1 to n do
Begin
Write (‘ a[ ’, i, ‘ ] = ’); readln (a[i]);
End;
Max : = a[1]; Min : = a[1];
For i : = 2 to n do
Begin
If Max < a[i] then Max : = a[i];
If Min > a[i] then Min : = a[i];
End;
Writeln (‘So lon nhat la Max = ’, Max);
Writeln (‘So nho nhat la Min = ’, Min);
Readln;
End.