Trường THCS Thành Cổ BÀI KIỂM TRA HỌC KÌ II năm học 2010-2011 Môn: Tin 8 Ngày thi Họ và tên:………………………………………… Lớp 8 Điểm Lời phê của giáo viên ( Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước phương án em cho là đúng: Câu 1: Chọn khai báo hợp lệ: A. Var a,b: array[1 6.5] of real; C. Var a,b: array[1 : 10] of Integer; B. Var a,b: array[1 100] of real; D. Var a;b: array[1 100] of real; Câu 2: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu: s:=0; for i:=1 to 5 do s := s+i; A. 11 B. 55 C. 15 D. Một kết quả khác Câu 3: Để viết giá trị của các phần tử trong mảng a ra màn hình câu lệnh nào sau đây đúng A) writeln(a[i]); B) writeln(a); C) write[a[i]]; B) write[a(i)]; Câu 4: Hãy tìm hiểu đoạn chương trình sau đây. j:=3; k:=2; While i<=6 do Begin j:=j+1; k:=k+j; end; Write(k); Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của k là: A. 23 B. 30 C. 27 D. Một kết quả khác Câu 5: (2 điểm) Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n đoạn lệnh nào Đ (đúng), S (sai) : A) i:=1 while i<n do Begin if ( i mod 2)<> 0 then S:=S + 1/i; i:= i +1; end; B) i:=0 while i<n do Begin S:=S + 1/i; i:= i +2; end; C) For i:=1 to n do if ( i mod 2)=1 then S:=S + i; D) i:=2 while i<n do Begin if S:=S + 1/i; i:= i +2; end; Câu 6: (2 điểm)Điền Đ (đúng) S (sai) các ô KQ, nếu câu nào sai thì giải thích vì sao? Câu 7: (2 điểm) Viết chương trình tính tổng của các số chia hết cho 2 và tích các số không chia hết cho 5 trong các số từ 1 đến n. Trong đó n là số nguyên nhập từ bàn phím. Câu 8: (2 điểm) Gạch chân dưới những câu lệnh em cho là sai rồi sửa lại chương trình đó cho đúng: Program Tinhtich; Uses crt Var N. i: real; Câu Kết quả Giải thích a) if a>b then max:=a; else max:=b; b) var X: Array[5 10] :Real; c) x:=10; while x=10 do x := x*1; d) for i:=1.5 to 10 do m:=m + 1.5; S: integer; BEGIN Clrscr; Write(‘Nhap vao so N =’ ); Readln(N); S:=1; For i:=1 to N do S=S*1/i; Writeln(‘Tich cua’,N,’so dau tien s = ‘ s) Readln END. Trường THCS Thành Cổ BÀI KIỂM TRA HỌC KÌ II năm học 2010-2011 Môn: Tin 8 Ngày thi Họ và tên:………………………………………… Lớp 8 Điểm Lời phê của giáo viên ( Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước phương án em cho là đúng: Câu 1: Chọn khai báo hợp lệ: A. Var a,b: array[1.5 6.5] of real; C. Var a,b: array[1 : 10] of Integer; B. Var a,b: array[100] of real; D. Var a,b: array[324 745] of real; Câu 2: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu: s:=70; for i:=1 to 5 do s := s-i; A. 11 B. 55 C. 15 D. Một kết quả khác Câu 3: Để đọc giá trị các phần tử vào trong mảng a câu lệnh nào sau đây đúng A) readln(a[i]); B) readln(a); C) read [a[i]]; B) read [a(i)]; Câu 4: Hãy tìm hiểu đoạn chương trình sau đây. j:=2; k:=3; While i<=6 do Begin j:=j+1; k:=k+j; end; Write(k); Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của k là: A. 23 B. 30 C. 27 D. Một kết quả khác Câu 5: (2 điểm) Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n đoạn lệnh nào Đ (đúng), S (sai) : A) i:=1 while i<n do Begin if ( i mod 2)= 0 then S:=S + 1/i; i:= i +1; end; B) i:=1 while i<n do Begin S:=S + 1/i; i:= i +2; end; C) For i:=1 to n do if ( i mod 2)=0 then S:=S + 1/i; D) i:=0 while i<n do Begin if i:= i +2; S:=S + 1/i; end; Câu 6: (2 điểm)Điền Đ (đúng) S (sai) các ô KQ, nếu câu nào sai thì giải thích vì sao? Câu 7: (2 điểm) Viết chương trình tính tổng của các số không chia hết cho 5 và tích các số chia hết cho 7 trong các số từ 1 đến n. Trong đó n là số nguyên nhập từ bàn phím. Câu 8: (2 điểm) Gạch chân dưới những câu lệnh em cho là sai rồi sửa lại chương trình đó cho đúng: Program Tinhtong; Uses crt Câu Kết quả Giải thích a) if a>b then max:=a; else max:=b; b) var X: Array[50 10] of Real; c) x:=20; while x=10 do x := x div2; d) for i:=5 to 10 do write(i:6:3); Var N. i: real; S: integer; BEGIN Clrscr; Write(‘Nhap vao so N =’ ); Readln(‘N’); S:=1; For i:=1 to N do S=S*1/i; Writeln(‘Tong cua’,N,’so dau tien s = ‘, s) Readln END. . Thành Cổ BÀI KIỂM TRA HỌC KÌ II năm học 20 10 -20 11 Môn: Tin 8 Ngày thi Họ và tên:………………………………………… Lớp 8 Điểm Lời phê của giáo viên ( Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước. Thành Cổ BÀI KIỂM TRA HỌC KÌ II năm học 20 10 -20 11 Môn: Tin 8 Ngày thi Họ và tên:………………………………………… Lớp 8 Điểm Lời phê của giáo viên ( Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước. i<n do Begin S:=S + 1/i; i:= i +2; end; C) For i:=1 to n do if ( i mod 2) =1 then S:=S + i; D) i: =2 while i<n do Begin if S:=S + 1/i; i:= i +2; end; Câu 6: (2 điểm)Điền Đ (đúng) S (sai) các