TRẮC NGHIỆM KHÁCH QUAN: 4 điểm Khoanh tròn vào đáp án đúng nhất Câu 1: Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây được viết đúng?. Đưa con trỏ về cột a, hàng bA[r]
(1)Ngày soạn: 29/02/2016 Ngày dạy: 07/03/2016 Tuần: 26 Tiết: 52 BÀI KIỂM TRA TIẾT, SỐ I MỤC TIÊU ĐỀ KIỂM TRA: Kiến thức: Tổng hợp các kiến thức đã học từ đầu học kì II tới tiết kiểm tra Kĩ năng: Vận dụng các kiến thức đã học vào làm bài kiểm tra Thái độ: Nghiêm túc quá trình kiểm tra II HÌNH THỨC KIỂM TRA: Kết hợp hai hình thức TNKQ (40%) và TL (60%) III ĐỀ KIỂM TRA: A TRẮC NGHIỆM KHÁCH QUAN: (4 điểm) Khoanh tròn vào đáp án đúng Câu 1: Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây viết đúng? A for i:= to writeln(‘A’); B for i= to 10 writeln(‘A’); C for i:= to 10 writeln(‘A’); D for i to 10 writeln(‘A’); Câu 2: Câu lệnh GotoXY(a, b) có tác dụng gì? A Đưa trỏ cột a, hàng b B Đưa trỏ cột b, hàng a C Đưa trỏ cột a, cột b D Đưa trỏ hàng a, hàng b Câu 3: Cho đoạn chương trình: j:= 0; For i:= to j:= j + i; Sau thực đoạn chương trình trên, giá trị biến j bao nhiêu? A 12; B 15; C 22; D 42 Câu 4: Đâu là cấu trúc rẽ nhánh dạng đầy đủ? A if <điều kiện> else <câu lệnh 2> then <câu lệnh 1>; B if <điều kiện> then <câu lệnh 1>; else <câu lệnh 2>; C if <điều kiện> else <câu lệnh 1> then <câu lệnh 2>; D if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>; Câu 5: Trong câu lệnh lặp: For i := to 10 j:= j + 2; write(j); Khi kết thúc câu lệnh lặp trên, câu lệnh write(j); thực bao nhiêu lần? A 10 lần ; B lần; C lần; D lần Câu 6: Với câu lệnh sau đây: if (45 mod 3) = then X:= X + 1; Giá trị biến X là bao nhiêu, trước đó giá trị X 5? A 5; B 6; C 15; D Câu 7: Câu lệnh điều kiện nào sau đây sau thực không báo lỗi? A if (a mod 2) = then write(‘hop le’); B if (a mod 2) = 0; then write(‘hop le’); C if (a mod 2) = else write(‘hop le’); D if (a mod 2) = 0; else write(‘hop le’); Câu 8: Câu lệnh lặp với số lần biết trước có số vòng lặp tính bằng: A giá trị cuối – giá trị đầu B giá trị đầu – giá trị cuối + C giá trị đầu – giá trị cuối D giá trị cuối – giá trị đầu + B TỰ LUẬN (6 điểm) Câu 1: (1 điểm) Em hãy cho biết cú pháp câu lệnh điều kiện dạng thiếu? Hãy trình bày cách thực câu lệnh điều kiện dạng thiếu? Câu 2: (2 điểm) Các câu lệnh cho sau: a For i:= 100 to writeln(‘A’); b If x > 5; then a:=b; c For i:= 1.5 to 10.5 Writeln(‘A’); d If x = else a:= b; then m:= n; Yêu cầu: Hãy sữa lại các lỗi sai các câu lệnh cho đúng? Câu 3: (3 điểm) Viết chương trình in màn hình tổng n số chẵn đầu tiên Với yêu cầu n nhập từ bàn phím? (2) IV ĐÁP ÁN (hướng dẫn chấm): Phần/câu Phần trắc nghiệm: Câu 1: Câu 2: Câu 3: Câu 4: Câu 5: Câu 6: Câu 7: Câu 8: Phần tự luận: Câu 1: Câu 2: Câu 3: Đáp án chi tiết Biểu điểm C A B D C B A D 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm - Cú pháp: If <điều kiện> then <câu lệnh>; - Khi gặp câu lệnh điều kiện này, chương trình kiểm tra điều kiện Nếu điều kiện thỏa mãn, chương trình thực câu lệnh sau từ khóa then Ngược lại, câu lệnh đó bị bỏ qua a For i:= to 100 writeln(‘A’); b If x > then a:=b; c For i:= <số nguyên> to <số nguyên> Writeln(‘A’); d If x = then a:= b else m:= n; Program tinh_tong; Uses crt; Var n, i, s: integer; Begin Clrscr; Write(‘nhap n = ’); readln(n) For i:=1 to n if (i mod 2) = then s:=s+i; Write(‘tong s = ’,s); readln; End 0.25 điểm 0.75 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.25 điểm 0.25 điểm 0.5 điểm 0.25 điểm 0.25 điểm 0.25 điểm 0.5 điểm 0.5 điểm 0.25 điểm Thống kê chất lượng: Lớp Tổng số học sinh THỐNG KÊ ĐIỂM KIỂM TRA Điểm >=5 Số Tỷ lệ lượng Điểm từ - 10 Số Tỷ lệ lượng Điểm Số Tỷ lệ lượng Điểm từ - Số Tỷ lệ lượng 8A1 8A2 V RÚT KINH NGHIỆM: (3)