đề thi tin học 8 HK II

ĐỀ KIỂM TRA CHẤT LƯỢNG HKIIThời gian: 45 phút k0 kể phát đề I.. Biểu tượng phần mềm Quan sát hình không gian là: 6.. Biểu tượng của phần mềm học vẽ hình là: 7.. Khi soạn thảo xong một ch

ĐỀ KIỂM TRA CHẤT LƯỢNG HKII

Thời gian: 45 phút (k0 kể phát đề)

I TRẮC NGHIỆM: (7 điểm) Mỗi câu 0,5 điểm

Khoanh tròn đáp án đúng:

1 While do là:

2 Để xuất dữ liệu từ mảng a có 5 phần tử các số nguyên từ 1 đến 5 thì ta viết lệnh như sau:

3 Để nhập dữ liệu vào mảng a có 11 phần tử là các số nguyên từ 5 đến 15 thì ta viết lệnh như sau:

4 For To Do là:

5 Biểu tượng phần mềm Quan sát hình không gian là:

6 Biểu tượng của phần mềm học vẽ hình là:

7 Khi soạn thảo xong một chương trình Pascal, khi muốn kiểm tra xem có lỗi gì không thì ta nhấn phím:

8 Để chạy một chương trình Pascal không còn lỗi, thì ta nhấn hợp phím:

9 For i:= 1 to 5 do writeln(i); có nghĩa là:

a Lệnh gán i bằng 1

b Lặp lại công việc xuất biến i từ 1 đến 5

c Câu lệnh sai

d Lặp lại công việc xuất biến i từ 5 đến 1

10.Để nhập giá trị vào phần tử a[3] của mảng a thì ta viết là:

Họ và tên:

Lớp:

Phòng GD&ĐT Tam Nông

Trường THCS Phú Thành A

11.Khai báo mảng a có 11 phần tử là các số nguyên từ 5 đến 15 thì ta khai báo như sau:

12.Viết biểu thức a[3]*b[6] trong Pascal có ý nghĩa là:

a Cho ta kết quả 3*6=18

b Cho ta kết quả giá trị a[3] nhân với giá trị b[6]

c Cho ta kết quả biến a nhân với biến b

d Cho ta kết quả mảng a nhân với mảng b

13 If then là:

14 Để tìm giá trị nhỏ nhất của 2 số a, b thì ta viết:

a Min := a; if b < Min then Min := b;

b If (a >b) then Min := a; if (b < a) then Min := b;

c Min := b; if a > Min then Min := a;

II TỰ LUẬN: (3 điểm)

1 Lập trình tính tích các số nguyên dương chẵn trong dãy a gồm 15 phần tử? (1điểm)

2 Viết chương trình tìm và in ra màn hình các số nguyên âm chẵn của n số nguyên? (1điểm)

a var a:array[1 10] of real;

b if i mod 2 = 0 then writeln(‘i la so chan’);

BÀI LÀM

MA TRẬN ĐỀ

Bài

3,11,12

ĐÁP ÁN

II TỰ LUẬN:

1 var i, s : integer;

a: Array[1 15] of integer;

Begin

s: = 0;

for i := 1 to 15 do s := s + a[i];

writeln(‘tong gia tri cac phan tu trong day a la:’, s);

readln;

End

2 var i, n: integer;

Begin

for i := 1 to n do

if (i mod 2 = 0 and i < 0) then writeln(‘so nguyen am le la:’, i);

readln;

End

kiểu số thực