Ngày soạn: 09/03/2013
Ngày giảng: Thứ ba 12/03/2013 8A tiết 3 (sáng); 8B tiết 4 (sáng)
PHÒNG GD&ĐT SI MA CAI
TRƯỜNG PTDTBT THCS NÀN SÍN
MA TRẬN ĐỀ KIỂM TRA 1 TIẾT
Năm học: 2012 - 2013
Môn: Tin học - Lớp: 8
Thời gian làm bài: 45 phút
(Đề thực hành-HK 2 bài 1)
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
Làm việc với
dãy số
1 câu
10 điểm
1 câu
10 điểm
Luyện gõ
phím nhanh
với Finger
Break Out
Tìm hiểu thời
gian với phần
mềm Sun
Times
Tổng
1 câu
10 điểm
1 câu
10 điểm
======================= Hết =========================
PHÒNG GD&ĐT SI MA CAI
TRƯỜNG PTDTBT THCS NÀN SÍN
ĐỀ KIỂM TRA 1 TIẾT
Năm học: 2012 - 2013
Môn: Tin học - Lớp: 8
Thời gian làm bài: 45 phút
Em hãy viết chương trình (dùng ngôn ngữ Pascal) nhập vào từ bàn phím một
dãy số tự nhiên gồm N phần tử rồi in ra trên màn hình số lớn nhất trong dãy số
đó.
======================= Hết =========================
PHÒNG GD&ĐT SI MA CAI
TRƯỜNG PTDTBT THCS NÀN SÍN
HD CHẤM VÀ ĐÁP ÁN
Năm học: 2012 - 2013
Môn: Tin học - Lớp: 8
Thời gian làm bài: 45 phút
Đáp án (Chương trình/Câu lệnh) Điểm Ghi chú
Program Tim_max; 0,25 Khai báo tên chương trình
Uses CRT;
Var i,N, Max: Integer;
A: Array[1 100] Of Integer;
0,75
Khai báo biến:
i,N, Max: Integer; (0,25đ)
A: Array[1 100] Of
Integer; (0,5đ)
BEGIN 0,25 Bắt đầu thân chương trình
CLRSCR;
Write('Nhap so luong phan tu cua day so,
N = '); Readln(N);
0,5
Nhập số phần tử có thật
của mảng (N ≤ 100)
Writeln('Nhap cac phan tu cua day so:');
For i:=1 To N Do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;
3
Nhập giá trị cho các phần
tử của mảng từ bàn phím
Max:=A[1];
For i:=2 To n Do
Begin
If Max<A[i] Then max:=A[i];
End;
3 Tìm số lớn nhất
Writeln('So lon nhat la Max = ', Max); 2 In số lớn nhất ra màn hình
Readln;
END.
0,25 kết thúc thân chương trình
Cộng điểm 10
Số liệu nhập thử khi chạy chương trình:
Nhap so luong phan tu cua day so, N = 5
Nhap cac phan tu cua day so:
A[1] = 78
A[2] = 98
A[3] = 45
A[4] = 67
A[5] = 65
So lon nhat la Max = 98
- Ghi chú: Học sinh có cách làm khác mà đúng với yêu cầu bài toán vẫn tính điểm tối
đa. Chỉ tính điểm ở các câu lệnh in đậm.
======================= Hết =========================