Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II Họ và tên: Môn: Tin học 8 Lớp: (Thời gian làm bài 45 phút) §iÓm Lêi nhËn xÐt cña thÇy gi¸o Đề 1 I. TRẮC NGHIỆM Chọn câu trả lời em cho là đúng nhất: Câu 1:(0,5đ) Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); Sẽ in ra màn hình? a. Không thực hiện được vì giá trị cuối không phải là số nguyên. b. Giá trị biến đếm. c. Viết số 1 rồi viết số 3.5 d. Chỉ viết số 3.5 mà thôi Câu 2:(0,5đ) Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?) a. Không lần nào b. 1 lần c. 2 lần d. 12 lần B. TỰ LUẬN: Câu 1:(2đ) Viết chương trình nhập vào một mảng các số nguyên. In ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng. Câu 2:(2đ) Viết chương trình tính tổng: S = 1+2+3+…+n Trong đó n là số nguyên nhập từ bàn phím. Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II Họ và tên: Môn: Tin học 8 Lớp: (Thời gian làm bài 45 phút) §iÓm Lêi nhËn xÐt cña thÇy gi¸o Đề 2 I. TRẮC NGHIỆM Chọn câu trả lời em cho là đúng nhất: Câu 1:(0,5đ) Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu gì? a. Interger; b. real; c. string d. Tất cả các kiểu trên đều được Câu 2:(0,5đ) Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng: a. If a=5 then a:=a+1; else a:=a+2; b. If a=5 then a:=a+1else a:=a+2 c. If a=5 then a:=a+1else a:=a+2; d. If a=5 then a:=a+1; else a=a+2; B. TỰ LUẬN: Câu 1:(2đ) Viết chương trình tính tổng: 1 1 1 1 1 2 3 4 S n = + + + + + Trong đó n là số nguyên nhập từ bàn phím. Câu 2:(2đ) Viết chương trình nhập vào một mảng các số nguyên. In ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng. Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II Họ và tên: Môn: Tin học 8 Lớp: (Thời gian làm bài 45 phút) §iÓm Lêi nhËn xÐt cña thÇy gi¸o Đề 3 I. TRẮC NGHIỆM Chọn câu trả lời em cho là đúng nhất: Câu 1:(0,5đ) 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. 51 Câu 2:(0,5đ) Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn lệnh: a. for i:=1 to n do if ( i mod 2) < > 0 then S:=S + i; b. for i:=1 to n do if ( i mod 2)=0 then S:=S + 1/i; c. for i:=1 to n do if ( i mod 2)=0 then S:=S – 1/i else S:= S + 1/i; d. for i:=1 to n do if ( i mod 2)=0 then S:=S +1/ i else S:=S-1/i; B. TỰ LUẬN: Câu 2:(2đ) Viết chương trình tính tổng: S = 1+2+3+…+n Trong đó n là số nguyên nhập từ bàn phím. Câu 2:(2đ) Viết chương trình nhập vào một mảng các số nguyên. In ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng. Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II Họ và tên: Môn: Tin học 8 Lớp: (Thời gian làm bài 45 phút) §iÓm Lêi nhËn xÐt cña thÇy gi¸o Đề 4 I. TRẮC NGHIỆM Chọn câu trả lời em cho là đúng nhất: Câu 1:(0,5đ) Trong câu lệnh lặp for i:=1 to 10 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?) A. Không lần nào B. 1 lần C. 2 lần D. 10 lần Câu 2:(0,5đ) Hãy tìm hiểu đoạn chương trình sau đây. i:=1; j:=2; k:=3; While i<=6 do Begin i:=i+1; j:=j+1; k:=k+j; end; Space:=’ ’; Write(I,space,j,space,k); Sau khi thực hiện đoLn chương trình trên, lệnh Writeln in ra màn hình giá trị của i, j, k lần lượt là bao nhiêu? A. 7,8,36 B. 7,2,35 C. 7,3,6 D. 16,3,7 B. TỰ LUẬN: Câu 1:(2đ) Viết chương trình tính tổng: 1 1 1 1 1 2 3 4 S n = + + + + + Trong đó n là số nguyên nhập từ bàn phím. Câu 2:(2đ ) Tính tổng các số tự nhiên từ 100 đến 1000 (Vòng lặp với số lần lặp chưa biết). Đáp án I. Trắc nghiệm: Đề 1 Đề 2 Đề 3 Đề 4 1. a 2. d 1. a 2. c 1. c 2. b 1. d 2. a II. Tự luận: Đề 1 Câu 1: (2đ) Chương trình được viết như sau: Program tbc; Var a: array[1 100] of integer; i, n, tong: integer; tbc: real; Begin Write(‘Nhap vao so phan tu cua mang n= (<=100) :’); readln(n); Write(‘Nhap so nguyen:’); For i:=1 to n do Begin write(‘a[‘,i,’]:’); readln(a[i]); end; Tong:=0; For i:=1 to n do tong:=tong+a[i]; tbc:=tong/n; Writeln(‘Trung binh cong cua mang la:’, tbc:10:2); Writeln(‘ cac phan tu nho hon tbc la:’); For i:=1 to n do If a[i]<tbc then write(a[i]:5); Readln; End. Câu 2:(2đ) Program Tong; Uses crt; Var S: real; n, i: integer; Begin Clrscr; Write(‘Nhap so n = ‘); Readln(n); S:= 0; For i:= 1 to n do S: = S + i; Writeln(‘Tong can tim la: ‘, S:6:2); Readln End. Đề 2 Câu 1 (2đ) Program Tong_Nghich_Dao; Uses crt; Var S: real; n, i: integer; Begin Clrscr; Write(‘Nhap so n = ‘); Readln(n); S:= 0; For i:= 1 to n do S: = S + 1/i; Writeln(‘Tong can tim la: ‘, S:6:2); Readln End. Câu 2 (2đ) Program tbc; Var a: array[1 100] of integer; i, n, tong: integer; tbc: real; Begin Write(‘Nhap vao so phan tu cua mang n= (<=100) :’); readln(n); Write(‘Nhap so nguyen:’); For i:=1 to n do Begin write(‘a[‘,i,’]:’); readln(a[i]); end; Tong:=0; For i:=1 to n do tong:=tong+a[i]; tbc:=tong/n; Writeln(‘Trung binh cong cua mang la:’, tbc:10:2); Writeln(‘ cac phan tu nho hon tbc la:’); For i:=1 to n do If a[i]<tbc then write(a[i]:5); Readln; End. Đề 3 (Phần tự luận tương tự đề 1 và 2) Đề 4 Câu 2: Program tinh_tong; Var i, S: Integer; Begin i:= 100; S: = 0; While i <=1000 do S:= S + i; i:= i + 1; Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End. . Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II Họ và tên: Môn: Tin học 8 Lớp: (Thời gian làm bài 45 phút) §iÓm Lêi nhËn xÐt cña thÇy gi¸o Đề 1 I. TRẮC NGHIỆM Chọn. nguyên nhập từ bàn phím. Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II Họ và tên: Môn: Tin học 8 Lớp: (Thời gian làm bài 45 phút) §iÓm Lêi nhËn xÐt cña thÇy gi¸o Đề 2 I. TRẮC NGHIỆM Chọn. trung bình cộng của mảng. Trêng PTDT néi tró lÖ thñy Bµi kiÓm tra häc kú II Họ và tên: Môn: Tin học 8 Lớp: (Thời gian làm bài 45 phút) §iÓm Lêi nhËn xÐt cña thÇy gi¸o Đề 3 I. TRẮC NGHIỆM Chọn