Đề kiểm tra môn Tin học Lớp 8 - Học kì II - Năm học 2017-2018 - Trường THCS Vân Hà

Nội dung text: Đề kiểm tra môn Tin học Lớp 8 - Học kì II - Năm học 2017-2018 - Trường THCS Vân Hà

1. Trường THCS Vân Hà KIỂM TRA HỌC KÌ II Lớp: 8 NĂM HỌC 2017-2018 Họ và tên: MÔN: TIN HỌC 8 Thời gian: 45 phút A. TRẮC NGHIỆM: (3đ) Hãy khoanh tròn vào chữ cái đứng trước câu trả lời đúng trong các câu sau: Câu 1: Khai báo biến mảng nào đúng: A. Var Y: Array[6 20] of Integer; C. Var Y: Array[10,50] of Integer; B. Var Y: Array[10.5 25.5] of Real; D. Var Y: Array[30 15] of Real; Câu 2: Khai báo mảng a có 11 phần tử từ 5 đến 15 là các số nguyên thì ta khai báo như sau A. a:Array [1 11] of integer; B. a:Array [5 15] of integer; C. a:Array [5 15] of integer; D. a:Array [11] of integer; Câu 3: Để nhập một giá trị vào phần tử a[3] của mảng a thì ta viết là: A. Readln(a) B. Readln(a[3]) C. Readln(a[i]) D. Readln(a(3)) Câu 4:Các câu lệnh Pascal sau, câu nào viết đúng : A. For i:=10 to 1 do x:=x+1 B. For i:=1 do 10 do x:=x+1 C. For i:=10 do 1 to x:=x+1 D. For i:=1 to 10 to x:=x+1 Câu 5: Khi nào thì câu lệnh For to do kết thúc ? A. Khi biến đếm nhỏ hơn giá trị cuối B. Khi biến đếm bằng giá trị cuối C.Khi biến đếm lớn hơn giá trị đầu D. Khi biến đếm lớn hơn giá trị cuối Câu 6: Trong đoạn lệnh sau : x:=10 ; y:=1 ;While x <= 5 do y:=y+1 câu đúng trong các câu sau là: A. Sau chương trình, biến y có giá trị 6 B. Câu lệnh sau do không thực hiện C. Lệnh y:=y+1 lặp 5 lần D. số lần lặp là vô tận B. TỰ LUẬN (7đ) Câu 1:(1đ) Hãy xác định các câu lệnh sau đây đúng hay sai? a) For i:=200 to 1 do writeln(‘A’); b) S:=0;n:=0; While S<=20 do begin n:=n+1;S:=S+n end; c) var X: array[10 1] of integer; d) var X: array[1,5 15,5] of integer; Câu 2:(3đ) Viết chương trình nhập n số nguyên từ bàn phím. In ra màn hình số nhỏ nhất và số lớn nhất. N được nhập từ bàn phím? Câu 3:(3đ) Sửa lỗi chương trình nhập vào một mảng các số nguyên. Ghi 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. 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(a); Write(‘Nhap so nguyen:’) For i:=1 to s do Begin write(‘a[‘,i,’]=’); readln(a[h]); Tong=0; For i:=n to 1 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 to If a[i]<tbc then write(a[i]:5); End.
2. KIỂM TRA HỌC KÌ II NĂM HỌC 2017-2018 MÔN: TIN HỌC 8 Thời gian: 45 phút ĐÁP ÁN VÀ THANG ĐIỂM Câu Đáp án Điểm A. TRẮC NGHIỆM: (3đ) 1 2 3 4 5 6 A C B D B B B.TỰ LUẬN: (7đ) 1 a) Sai b) Đúng c) Sai d) Sai 1.0 Program MaxMin; Uses Crt; Var i, n, Max, Min: integer; A: array[1 100] of integer; Begin Clrscr; Write('Hay nhap do dai cua day so, N = '); readln(n); Writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do 2 Begin 3.0 Write('a[',i,']='); readln(a[i]); End; Max:=a[1]; Min:=a[1]; For i:=2 to n do Begin if Max a[i] then Min:=a[i] End; Write('So lon nhat la Max = ',Max); Write('; So nho nhat la Min = ',Min); Readln; End. 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:’); 3 For i:=1 to n do 3.0 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
3. If a[i]<tbc then write(a[i]:5); Readln; End.