Đề 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 đề

Vận dụng Nhận biết Thông hiểu

Cấp độ thấp Cấp độ cao

Cấp độ Tên Chủ đề

(nội dung, chương…) TH TNKQ TH TNKQ TH TNKQ TH

Cộng

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;

ThuVienDeThi.com

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.

ThuVienDeThi.com