Đề 1: Câu 1: Khoanh tròn vào chữ cái của câu trả lời đúng nhất (2 điểm) 1. Dữ liệu kiểu mảng chỉ số đầu và chỉ số cuối là: A. Kiểu số nguyên. B. Kiểu số thực C. Kiểu kí tự. D. Tất cả đều sai 2. Đoạn lệnh sau đây sẽ cho kết quả gì? s:=0; for i:=1 to 10 do ff (i mod 2) <>0 then s:=s+i; writeln (s); A. 16 B. 25 C. 30 D. 55 3. Các lệnh nào sau đây lặp với số lần biết trước: A. Ăn cho đến lúc no thì thôi B. Lúc nào khát nước thì uống nước C. Gà trống gáy mỗi buổi sang D. May đồ cho đến lúc hết giờ làm việc thì nghỉ 4. Lợi ích khi sử dụng biến mảng là: A. Đơn giản nhưng dễ nhầm lẫn. B. Thuận tiện. C. Đơn giản, tránh nhầm lẫn. D. Cả B và C đều đúng Câu 2: Kiểm tra lỗi chương trình sau và sửa lỗi: (2 điểm) program tinh_trung_binh ues crt; var i, N: integer; a:array[1 100] of real begin clrscr; write (‘Nhap do dai cua day so N = ); readln(N); writeln ( Nhap tung phan tu cua day so:’); for i:=1 to do begin write (‘a[‘,i,‘]=’); readln(a[i]); end; writeln(‘Mang vua nhap la:’); for i :=1 to n write(i :6) ; writeln; writeln(‘Cac phan tu chia het cho 3 la:’); for i:= to n do if a(i) mod 3 = 0 then writeln(a[i]); readln end. Câu 3: Các câu lệnh Pascal sau đúng hay sai? Hãy chỉ ra chỗ sai nếu có. (3 điểm) 1. S:=0; N:=0; while S<=5 do N:=N+1; S:=S+N; 2. X:=5; while X = 5 do X=X+2; Họ và tên:……………………… Lớp: 8A Trường THCS Hàm Minh Kiểm Tra Học Kì II (2010 – 2011) Môn: Tin học 8 Thời gian: 45 phút Lời phê: Điểm: 3. Var B: array[1…100] of real; Câu 4: Viết chương trình nhập vào một mảng gồm N phần tử là các số nguyên được nhập từ bàn phím. Hãy tính tổng các phần tử có trong mảng? (3 điểm) ĐÁP ÁN KIỂM TRA TIN HỌC HỌC 8 HỌC KÌ II - ĐỀ 1 MS: 09 Câu 1: (2 điểm - mỗi ý đúng được 0.5 điểm) 1 2 3 4 A B C D Câu 2: Kiểm tra lỗi chương trình sau và sửa lỗi: (2 điểm - mỗi ý đúng được 0,5 điểm) program tinh_trung_binh ues crt; var i, N: integer; a:array[1 100] of real begin clrscr; write (‘Nhap do dai cua day so N = ); readln(N); writeln ( Nhap tung phan tu cua day so:’); for i:=1 to do begin write (‘a[‘,i,‘]=’); readln(a[i]); end; writeln(‘Mang vua nhap la:’); for i :=1 to n write(i :6) ; writeln; writeln(‘Cac phan tu chia het cho 3 la:’); for i:= to n do if a(i) mod 3 = 0 then writeln(a[i]); readln end. Câu 3: (3 điểm - mỗi câu 1 điểm) 1. S:=0; N:=0; while S<=5 do N:=N+1; S:=S+N; Sai. Lỗi lặp vô hạn lần 2. X:=5; while X = 5 do X=X+2; Sai. Sau do phải là câu lệnh không phải điều kiện (X:=5; while X = 5 do X:=X+2;) 3. Var B: array[1…100] of real; Sai. Giữa chỉ số đầu và chỉ số cuối phải là dấu “ ” (Var B: array[1 100] of real;) Câu 4: program tinh_tong; 0.25 điểm ues crt; var i, N: integer; S: longint; 0.5 điểm a:array[1 100] of real; 0.25 điểm begin clrscr; write (‘Nhap do dai cua day so N =’ ); readln(N); 0.25 điểm writeln ( ‘Nhap tung phan tu cua day so:’); for i:=1 to N do 0.25 điểm begin write (‘a[‘,i,‘]=’); readln(a[i]); 0.5 điểm end; S:=0; 0.25 điểm for i :=1 to N do S:=S+a[i]; 0.5 điểm writeln(‘Tong la:’,S); 0.25 điểm readln program tinh_trung_binh; a:array[1 100] of real; write (‘Nhap do dai cua day so N =’ ); writeln ( ‘Nhap tung phan tu cua day so:’); for i:=1 to N do for i :=1 to n do for i:= 1 to n do if a[i] mod 3 = 0 then writeln(a[i]); end. MA TRẬN ĐỂ KIỂM TRA HỌC KÌ II TIN HỌC 8 - ĐỀ 1 MS: 09 Bài Nhận biết Thông hiểu Vận dụng Tổng TN TL TN TL TN TL Câu lệnh lặp Câu lệnh lặp với số lần chưa biết trước Làm việc với dãy số Tổng