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.. Readlna3 Câu 4:Các câu lệnh Pascal sau, câu nào viết đú[r]
Trang 1KIỂM TRA HỌC KÌ II NĂM HỌC 2017-2018 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.
Trường THCS Vân Hà
Lớp: 8
Họ và tên: ………
Trang 2KIỂ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
A TRẮC NGHIỆM : (3đ)
B TỰ LUẬN : (7đ)
2
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 Begin
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 Max:=a[i];
if Min>a[i] then Min:=a[i]
End;
Write('So lon nhat la Max = ',Max);
Write('; So nho nhat la Min = ',Min);
Readln;
End.
3.0
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
3.0
Trang 3If a[i]<tbc then write(a[i]:5); Readln;
End.