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: Tỉ 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: Tỉ 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…
Đ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 writeln(‘A’);
b) Cho đoạn chương trình: J:= 10;
For i:= to J:= j -5;
- 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:= 9; a:= 1; b: = 15; While T >
Begin T:= T- 2; a:= a+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…
Đ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 hyaxvieets lại cho đúng for i := to 10 to writeln(‘A’);
b) Cho đoạn chương trình: J:= 13;
For i:= to J:= j -6;
- 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:= 10; a:= 1; b: = 15; While T >
Begin T:= T- 6; 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ổ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…
Đ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 hyaxvieets lại cho đúng for i := to 10 while writeln(‘A’);
b) Cho đoạn chương trình: J:= 10;
For i:= to J:= j -6;
- 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:= 10; a:= 1; b: = 15; While T >
Begin T:= T- 4; 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ổ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
……… ……… ……… ……… ……… ……… ……… ………