Đề kiểm tra thực hành (1 tiết)

ĐỀ KIỂM TRA THỰC HÀNH (1 tiết)
A. Mục đích của đề kiểm tra
Kiến thức
Biết được cách khai báo và sử dụng các biến.
Viết được chương trình tính tổng có điều kiện có trong dãy số.
Kĩ năng
Khai báo đúng biến.
Sử dụng được câu lệnh vào ra, câu lệnh điều kiện, câu lệnh lặp với số lần biết trước.
B. Hình thức
Thực hành
C. Ma trận đề
 Cấp độ
Tên 
Chủ đề 
(nội dung, chương)
Nhận biết
Thông hiểu
Vận dụng
Cộng
Cấp độ thấp
Cấp độ cao
TH
TNKQ
TH
TNKQ
TH
TNKQ
TH
Nội dung 1
Khai báo biến
Hiểu được ý nghĩa của việc khai báo và sử dụng biến.
ND1.TH.TH.1
Số câu 
Số điểm Tỉ lệ %
Số câu 01
Số điểm 3.0
Số câu
Số điểm
Số câu 01
3.0 điểm
30.% 
Nội dung 2
Xử lí dãy số trong chương trình
Viết được chương trình tính tổng có điều kiện có trong dãy số
ND2.TH.VDT.1 
Số câu 
Số điểm Tỉ lệ %
Số câu 01
Số điểm 7.0
Số câu 01
7.0 điểm
70% 
Tổng số câu 
Tổng số điểm
Tỉ lệ %
Số câu 01
Số điểm3.0
30%
Số câu 01
Số điểm 7.0
70%
Số câu 02
Số điểm 10.0
D. Câu hỏi
Câu 1 (3 điểm) ND1.TH.TH.1: Tìm và sửa lỗi sai trong chương trình tìm số lớn nhất của dãy số gồm 20 phần tử
Var x:aray[1..10] of real;
 max:integer;
Begin
	For i:=1 to 20 do readln(a[i]);
	max:=a[1];
For i:=2 to 20 do 
If max<a[i] then max:=a[i];
	Writeln(max);
End.
Câu 2 (7.0 điểm) ND2.TH.VDT.1 
Viết chương trình :
a. Nhập vào một mảng các số nguyên bất kì.
B. In ra màn hình mảng vừa nhập.
c. In ra màn hình tổng các số dương trong mảng.
E. Hướng dẫn chấm (đáp án) và thang điểm
Câu 1 (3 điểm): Tìm và sửa lỗi sai trong chương trình tìm số lớn nhất của dãy số gồm 20 phần tử
Var a:aray[1..10] of real;max:real;
 i:integer;
Begin
	For i:=1 to 20 do readln(a[i]);
	max:=a[1];
For i:=2 to 20 do 
If max<a[i] then max:=a[i];
	Writeln(‘so lon nhat la:’, max);
End.
Câu 2 (7 điểm):
{Khai báo biến: 1.5đ}
var a:array[1..100] of integer;
 s,i,n :integer;
BEGIN
{nhập số phần tử: 1đ}
write(‘Nhap so phan tu cua mang:’);readln(n);
{Nhập giá trị cho từng phần tử: 2đ}
for i:=1 to n do
 begin
Write(‘nhap phan tu thu ‘,i);
readln(a[i]);
	End;
{In giá trị của từng phần tử vừa nhập: 1đ}
	 write(‘mang vua nhap la:’);
 For i:=1 to n do
write(a[i],’ ‘);
{Tính tổng các số dương: 1đ}
 s:=0;
 For i:=1 to n do
 if a[i] >0 then
 s:=s+a[i];
{In ra màn hình tổng các số dương: 0.5đ}
 write(‘tong cac so duong la:’,s);
	 readln;
END.