DE KIEM TRA HOC KY II TIN HOC 8

b) In ra màn hình tất cả các số nguyên dương <=a.. b) In ra màn hình tất cả các số nguyên dương <=a.[r]

(1)

MA TRẬN VÀ ĐỀ KIỂM TRA TIẾT – MÔN TIN HỌC LỚP (TIẾT 51) NĂM HỌC 2016 - 2017

I MA TRẬN ĐỀ KIỂM TRA VÀ BẢNG MÔ TẢ

Chủ đề Mức độ Tổng

điểm Nhận biết Thông hiểu Vận dụng thấp VD cao

TL TL TL TL

Câu lệnh lặp For

Số câu

Số điểm: Tỉ lệ:

Câu:

Biết cấu trúc hoạt động câu lệnh

lặp 1 10%

1a

Tính giá trị biến sau lần lặp

1 20%

1b

Viết chương trình nhập số nguyên, tính giai thừa, Hiện

thị số nguyên thỏa mãn điều kiên

2 40% 3a,b Tìm ước số nguyên 1 10% 3c 80% 1a,b,3a ,b,3c

Câu lệnh lặp while

Số câu

Số điểm: Tỉ lệ:

Câu:

Tính giá trị biến sau lần lặp 20% 2 20% Tổng số câu

(2)

ĐÁP ÁN

Đáp án đề 1 Điểm

Câu 1:

a) -Trong Pascal, câu lệnh sau viết sai - Sửa:

for i: = to 20 writeln(‘A’);

b) Cho đoạn chương trình:

- Vòng lặp thực vòng lặp

- Sau thực đoạn chương trình trên, giá trị biến j =-2

Câu 2: Cho đoạn chương trình sau tìm giá trị biến a, b sau vòng lặp

Vòng lặp 1: a=11; b=19; Vòng lặp 2: a= 13; b=19

Câu 3: Viết chương trình thực cơng việc sau: Program songuyen;

Uses Crt;

Var a,i,d, Tc: Integer; Begin

Clrscr;

Write( ‘ Moi nhap so nguyen a= ‘); Readln(a); Tc:=1; d:=0;

For i:= to a Begin

Tc:=Tc*i;

If i mod = then Write (i:3); If a mod i = then d:=d+1; End;

Writeln (‘ Tich cac so nguyen tu 1-> ‘,a,’ la : ‘, Tc); Writeln (‘ so ‘, a,’ chia het cho ‘, d,’ so nguyen duong’); Readln;

End

0.5 0.5 1 1 1 1

1 1 1

(3)

ĐÁP ÁN

Đáp án đề 2 Điểm

Câu 1:

c) -Trong Pascal, câu lệnh sau viết sai - Sửa:

for i: = to writeln(‘A’);

d) Cho đoạn chương trình:

- Vòng lặp thực vòng lặp

- Sau thực đoạn chương trình trên, giá trị biến j =-5 Câu 2: Cho đoạn chương trình sau tìm giá trị biến a, b sau mỗi vòng lặp

Vòng lặp 1: a=8; b=22; Vòng lặp 2: a= 13; b=22

Câu 3: Viết chương trình thực công việc sau: Program songuyen;

Uses Crt;

Var a,i,d, Tc: Integer; Begin

Clrscr;

Write( ‘ Moi nhap so nguyen a= ‘); Readln(a); Tc:=1; d:=0;

For i:= to a Begin

Tc:=Tc*i;

If i mod = then Write (i:3); If a mod i <> then d:=d+1; End;

Writeln (‘ Tich cac so nguyen tu 1-> ‘,a,’ la : ‘, Tc);

Writeln (‘ so ‘, a,’ khong chia het cho ‘, d,’ so nguyen duong’); Readln;

End

0.5 0.5 1 1 1 1

1 1 1

(4)

ĐỀ KIỂM TRA MÔN TIN HỌC LỚP TIẾT 51 – NĂM HỌC 2016- 2017 Thứ ngày 13 tháng năm 2017

Họ tên:……….……… Lớp: 8…

Điểm Nhận xét

ĐỀ RA: Câu 1: Hãy trả lời câu hỏi sau:

a) Trong Pascal, câu lệnh sau viết hay sai? Nếu sai viết lại cho đúng for i to 20 writeln(‘A’);

b) Cho đoạn chương trình: J:= 10;

For i:= to J:= j - i;

- Tính số vịng lặp vịng vịng lặp

- Sau thực đoạn chương trình trên, giá trị biến j bao nhiêu? Câu 2: Cho đoạn chương trình sau tìm giá trị biến a, b sau vòng lặp

T:= 18; a:= 1; b: = 15; While T >

Begin T:= T- 8; a:= a+T;

If T mod = then b := b +4; End;

Câu 3: Viết chương trình thực công việc sau:

a) Nhập vào số nguyên a (1<a<50) từ bàn phím tính tích số nguyên từ 1->a b) In hình tất số nguyên dương chia hết cho <= a

c) Số a chia hết cho số nguyên dương

BÀI LÀM

………

……… ……… ……… ……… ……… ……… ……… ……… ………

(5)

Họ tên:……….……… Lớp: 8…

a) Trong Pascal, câu lệnh sau viết hay sai? Nếu sai viết lại cho đúng for i:= to writeln(‘A’);

For i:= to J:= j -5;

- Tính số vịng lặp vòng vòng lặp

T:= 9; a:= 1; b: = 15; While T >

If T mod = then b := b +T; End;

Câu 3: Viết chương trình thực cơng việc sau:

a) Nhập vào số nguyên a (1<a<50) từ bàn phím tính tích số nguyên từ 1->a b) In hình tất số nguyên dương chia hết cho <= a

c) Số a không chia hết cho số nguyên dương <a

BÀI LÀM

……… ……… ……… ……… ……… ……… ……… ………

(6)

ĐỀ KIỂM TRA MÔN TIN HỌC LỚP TIẾT 51 – NĂM HỌC 2016- 2017 Thứ ngày 13 tháng năm 2017

Họ tên:……….……… Lớp: 8…

a) Trong Pascal, câu lệnh sau viết hay sai? Nếu sai hyaxvieets lại cho đúng for i := to 10 to writeln(‘A’);

For i:= to J:= j -6;

- Tính số vịng lặp vòng vòng lặp

T:= 10; a:= 1; b: = 15; While T >

If T mod = then b := b +4; End;

Câu 3: Viết chương trình thực cơng việc sau:

a) Nhập vào số nguyên a (1<a<50) từ bàn phím tính tổng số nguyên từ 1->a b) In hình tất số nguyên dương <=a

c) Từ -> a có số nguyên dương chia hết cho

BÀI LÀM

……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ………

(7)

Họ tên:……….……… Lớp: 8…

a) Trong Pascal, câu lệnh sau viết hay sai? Nếu sai hyaxvieets lại cho đúng for i := to 10 while writeln(‘A’);

For i:= to J:= j -6;

- Tính số vịng lặp vịng vịng lặp

T:= 10; a:= 1; b: = 15; While T >

If T mod <> then b := b +4; End;

Câu 3: Viết chương trình thực công việc sau:

a) Nhập vào số nguyên a (1<a<50) từ bàn phím tính tổng số nguyên từ 1->a b) In hình tất số nguyên dương <=a

c) Từ 1-> a có số nguyên dương chia hết cho

BÀI LÀM

……… ……… ……… ……… ……… ……… ……… ………