CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM PHÒNG GD&ĐT CHÂU THÀNH Trường THCS BIÊN GIỚI Độc lập – Tự – Hạnh phúc ĐỀ THI KHẢO SÁT CHẤT LƯỢNG GIỮA HKII Môn thi: TIN ; LỚP: Thời gian: 45 phút (khơng kể thời gian phát đề) MA TRẬN ĐỀ Nhận biết TN TL Các cấp độ tư Nội dung Thông hiểu TN TL Vận dụng TN TL Tổng Câu lệnh điều kiện 0.5đ 1đ 0.5ñ 3 0.75ñ 3.5ñ 0.75ñ 1 Câu lệnh lặp 5đ Lặp với số lần chưa biết trước Tổng 0.25đ 0.25đ 1.5đ 5đ 3đ 2đ 16 2đ 10đ NỘI DUNG ĐỀ I / Trắc nghiệm(3 đ) Khoanh tròn chữ đầu câu trả lời mà em cho Câu 1: Sau thực chương trình sau, giá trị biến j bao nhiêu? j := 0; For i := to j := j + 2; A B C D 10 Caâu 2: Câu lệnh hợp lệ câu lệnh pascal sau? A for i := 10 to writeln(‘A’); B for i := 1.5 to 10.5 writeln(‘A’); C for i = to 10 writeln(‘A’); D for i:= to 10 writeln(‘A’); Caâu 3: Trong đoạn chương trình sau, có câu lệnh lặp laïi? S := 0; dem := 0; n := 10; While dem > n Begin dem := dem +1; Write(‘ Nhap so X’,dem,’=’);Readln(X); ThuVienDeThi.com 4ñ S := S + X ; end; A B C D Câu 4: Câu lệnh hợp lệ câu lệnh pascal sau? A X:= 10; While X := 10 X:= X + 5; B X:= 10; While X = 10 X = X + 5; C X:= 10; While X = 10 X:= X + 5; D X:= 10 While X = 10 X:= X + 5; Câu 5: Trong ngơn ngữ lập trình Pascal câu lệnh sau đúng: A If then else B If then ; else ; C If then else ; D If ; then else ; Câu 6: Trong ngơn ngữ lập trình Pascal, phát biểu sau với câu lệnh rẽ nhánh If…then…? A Nếu sau then muốn thực nhiều câu lệnh lệnh phải đặt hai dấu ngoặc đơn B Nếu sau then muốn thực nhiều câu lệnh lệnh phải đặt Begin End C Nếu sau then muốn thực nhiều câu lệnh lệnh phải đặt Begin End; D Nếu sau then muốn thực nhiều câu lệnh lệnh phải đặt Begin End Câu 7: Trong ngôn ngữ lập trình Pascal câu lệnh sau đúng: A If a=5 then a:=d+1; else a:=d+2; B If a=5 then a:=d+1else a:=d+2; C If a=5 then a=d+1; else a=d+2; D If a=5 then a:=d+1else a:=d+2 Câu 8: Trong ngôn ngữ Pascal, muốn kiểm tra đồng thời ba giá trị A, B, C có lớn hay không ta viết câu lệnh If cho nhất? A If A, B, C > then… B IF (A>0) and (B>0) and (C>0) then… C IF A>0 and B>0 and c>0 then… D IF (A>0) or (B>0) or (c>0) then… Câu 9: Trong ngôn ngữ Pascal, mặt cú pháp câu lệnh sau với cấu trúc lặp For có lệnh con? A For i:=1 to 100 a:=a-1; B For i:=1 to 100 do; a:=a-1; C For i:=1 to 100 a:=a-1 D For i:=1; to 100 a:=a-1; Câu 10: Trong lệnh lặp For…to…do Pascal, vòng lặp biến đếm thay đổi nào? A +1; B -1; C Một giá trị bất kì; D Một giá trị khác 0; Câu 11: Trong câu lệnh lặp for i:=1 to 10 begin…end; câu lệnh ghép thực lần (nói cách khác, vịng lặp thực hiện?) A Không lần B lần C lần D lần Câu 12: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa hình kết gì? For i:=10 to write (i,’ ‘); ThuVienDeThi.com A 10 B 10 C Đưa 10 dấu cách D Khơng đưa kết II/ Tự luận (7 điểm) Câu 13: (2đ) Hãy nêu tác dụng câu lệnh lặp lập trình? Cho ví dụ hoạt động lặp sống mà em biết Câu 14: (2đ) Hãy tìm hiểu thuật toán sau, máy tính thực vòng lặp? Khi kết thúc giá trị S bao nhiêu? Bước 1: S 10, X 0.5 Bước 2: Nếu S ≤ 5.5, chuyển sang bước Bước 3: S S – X quay lại bước Bước 4: Thông báo S kết thúc thuật toán Câu 15:Em viết chương trình tính tổng số tự nhiên từ 100 đến 1000 ( Sử dụng vòng lặp xác định vịng lặp khơng xác định)(3đ) HƯỚNG DẪN CHẤM A/ Trắc nghiệm(3 đ) Câu Đáp D D A án Điểm 0,2 0,2 0,2 5 II/Tự luận (7 điểm) Caâu 13 14 15 C C C B B A 10 A 11 0,2 0,2 0,2 0,2 0, 0,2 0,2 0,25 12 coù D Không đáp án Nội dung 0,25 Điểm Tác dụng câu lệnh lặp lập trình làm đơn giản giảm 1đ nhẹ công sức người viết chương trình Cho ví dụ hoạt động lặp sống 1đ vòng lặp , 1đ S= 5.5 1đ Viết chương trình tính tổng số tự nhiên từ 100 đến 1000 * Vòng lặp xác định: Program tinh_tong; Var i, S: Integer; Begin For i:= 100 to 1000 S:= S + i; Wirteln(‘ tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End * Vịng lặp khơng xác định: Program tinh_tong; ThuVienDeThi.com 0.25đ 0.25ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ Var i, S: Integer; Begin i:= 100; S:= 0; While i > 1000 S:= S + i; i:= i + 1; Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); 0.25ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ Readln; End 0.25ñ ThuVienDeThi.com ... tinh_tong; Var i, S: Integer; Begin For i: = 100 to 1000 S:= S + i; Wirteln(‘ tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End * Vịng lặp khơng xác định: Program tinh_tong; ThuVienDeThi.com... tinh_tong; ThuVienDeThi.com 0.25ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ Var i, S: Integer; Begin i: = 100; S:= 0; While i > 1000 S:= S + i; i: = i + 1; Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S);... đúng: A If