ĐỀ 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 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 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.