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

ĐỀ KIỂM TRA THỰC HÀNH 1 tiếtA.. 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

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

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 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

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

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