Câu 4: Pascal sử dụng câu lệnh nào sau đây để thực hiện lệnh lặp với số lần chưa biết trước.. A.[r]
(1)Họ tên:……… KIỂM TRA HỌC KỲ II (2019-2020) Môn: TIN HỌC 8
Thời gian làm bài: 45 phút
Điểm Lớp: 8/… STT:……
MA TRẬN ĐỀ
Cấp độ Chủ đề
Nhận biết Thông hiểu Vận dụng
Cộng Cấp độ thấp Cấp độ cao
TNKQ TL TNKQ TL TNKQ TL TNKQ TL
Bài 7: Câu lệnh lặp
- Biết cấu trúc câu lệnh lặp -Nhận biết lỗi chương trình
- Xác định số lần lặp giá
trị biến
Số câu
Số điểm Tỉ lệ %
1(9) 0,5 5% 1(1) 10% 2(2,3) 10% 4 2,5 25%
Bài 8: Lặp với số lần chưa biết
trước
-Biết câu lệnh lặp với số lần chưa biết trước - Biết hoạt động lặp chưa biết trước số lần lặp
- Hiểu cách thực câu
lệnh lặp
- Áp dụng câu lệnh lặp, tính số vịng lặp giá trị biến
Số câu
Số điểm Tỉ lệ %
2(1,4) 10% 1(2) 20% 1(5) 0,5 5% 5 4 40% Bài 9: Làm việc
với dãy số
-Biết cách khai báo biến mảng kiểu liệu
-Tính giá trị với biến mảng
-Viết chương trình đơn giản
Số câu
Số điểm Tỉ lệ %
3(5,6,7) 1,5 15% 1(8) 0,5 5% 1(3) 20% 4 3,5 35% Tổng số câu
(2)Tỉ lệ % 30% 10% 15% 20% 5% 20% 100%
Tỷ lệ chính 40% 35% 25%
ĐỀ BÀI:
A/ TRẮC NGHIỆM: (5đ)
Chọn khoanh tròn đáp án đúng:
Câu 1: Câu lệnh lặp while…do có dạng là: A While <điều kiện> do; <câu lệnh>; B While < điều kiện > <câu lệnh> do; C While <câu lệnh> < điều kiện >; D While < điều kiện >do <câu lệnh>;
Câu 2: Lệnh lặp sau: for i:=0 to begin…end; thực lần?
A B C D 10
Câu 3: Cho S i biến nguyên Khi chạy đoạn chương trình : s:=0;
for i:=1 to s := s+i; Kết cuối s :
A 11 B 55 C 10 D 15
Câu 4: Pascal sử dụng câu lệnh sau để thực lệnh lặp với số lần chưa biết trước?
A For… B While… C If … then D If …then…else Câu 5: Sau câu lệnh lặp sau biến s có giá trị bao nhiêu?
S:=0; i:=1;
While i <4 begin s:= s+i; i:=i+1; end;
A B 10 C.6 D.4 Câu 6 : Cho khai báo: Var a: array[1 100] of real;
Nếu cần dùng biến n để nhập số lượng phần tử mảng a, nên khai báo biến n thuộc kiểu liệu nào?
(3)Câu 7: Chọn khai báo hơp lệ
A Const n=5; B Var n: real;
Var a,b: array[1 n] of real; Var a,b: array[1:n] of real; C Var a,b: array[100 1] of real; D Var a:array[1.5.10] of real;
Câu 8: Thực đoạn lệnh sau, giá trị biến t ? a[1]:=5; a[2]:=2; t:=a[1]+a[2]+1;
A B.6 C D
Câu 9: Câu lệnh pascal sau hợp lệ?
A For i:=10 to write(‘A’); B For i:=1.5 to 10 write(‘A’); C For i= to 10 write(‘A’); D For i:= to 10 write(‘A’);
Câu 10: Khi khai báo biến mảng, số đầu, số cuối cho biết:
A.Giá trị biến thành phần B Số lượng phần tử
C Kiểu liệu D Kiểu liệu phần tử
B/ TỰ LUẬN: (5đ)
Câu 1: Sửa lỗi cho chương trình sau: (1đ) Program TinhTong;
Uses crt; Var s,i: integer Begin
Clrscr;
For i = to 10 s = s+i; Write( s= , s);
Readln End
Câu 2: Kẻ bảng thể vòng lặp For… sau: (2đ) s:=0;
For i:= to 10
(4)Câu 3:Viết chương trình tìm số lớn dãy n số nguyên nhập từ bàn phím? (2đ)
ĐÁP ÁN A/ TRẮC NGHIỆM: Chọn đáp án đúng:
Câu hỏi 10
Đáp án D B D B C A A D D B
B/ TỰ LUẬN: (5đ) Câu 1: Sửa lỗi:(1đ)
Program TinhTong; Uses crt;
Var s,i: integer ; Begin
Clrscr;
For i : = to 10 s : = s+i; Write( ‘ s= ’ , s);
Readln End
Câu 2: Kẻ bảng: (2đ)
Biến đếm i Điều kiện:i mod 3=0 Câu lệnh: s:=s+i;
i=1 Sai
i=2 Sai
i=3 Đúng S:=0+3=3
i=4 Sai
i=5 Sai
i=6 Đúng S:=3+6=9
(5)i=8 Sai
i=9 Đúng S:=9+9=18
i=10 Sai
Câu 3: Chương trình (2đ) Program TimMax;
Uses crt;
Var a:Array[1 100] of integer;
i, n, max: Integer; Begin
Clrscr;
Write(‘Nhap so phan tu cua mang: ‘);readln(n); Write(‘Nhap cac phan tu ‘);
For i:= to n
Begin write(‘a[‘,i, ‘] =’); Readln(a[i]) end; max:=a[1];
For i:= to n
If a[i]>max then max:=a[i]; Write(‘So lon nhat mang la: ‘,max);