5đ Khoang tròn vào đáp án đúng nhất Câu 1: Cách khai báo mảng nào sau đây chương trình không báo lỗi?. Câu 3: Cho đoạn chương trình sau: While a.A[r]
Trang 1TRƯỜNG THCS ĐẠ LONG
Tên:
Lớp:
ĐỀ THI HỌC KÌ II
Năm học: 2013 – 2014 Môn: Tin học 8
Thời gian: 45 phút
………
………
………
A TRẮC NGHIỆM KHÁCH QUAN (5đ)
Khoang tròn vào đáp án đúng nhất
Câu 1: Cách khai báo mảng nào sau đây chương trình không báo lỗi?
A var X : Array [10, 13] of real;
B var X : Array [1 100] of integer;
C var X : Array [3.4 4.8] of integer;
D var X : Array [1…100] of real;
Câu 2: Sau khi thực hiện đoạn chương trình sau: s:=0; for i:= 1 to 5 do s:= s*i;
Giá trị của biến s bằng bao nhiêu?
Câu 3: Cho đoạn chương trình sau: While a<b do a:=a+2;
Khi a = 1, b = 7 thì kết quả cuối cùng a bằng bao nhiêu?
Câu 4: Lệnh lặp for to do của Pascal trong mỗi vòng lặp, biến đếm thay đổi như thế nào?
Câu 5: Trong phần mềm GeoGebra công cụ nào dùng để tạo ra trung điểm của (đoạn thẳng nối) hai điểm cho trước?
Câu 6: Giá trị của các mảng được cho như sau: A[1]:=4; A[2]:=7; A[3]:=1; A[4]:=9; A[5]:=2; Kết quả của T:= A[3]+A[5]+A[2]+10; bằng bao nhiêu?
Câu 7: Vòng lặp While do trong Pascal có vòng lặp:
A với số lần lặp chưa biết trước
B biết trước số lần lặp nhưng giới hạn là <=100.
C biết trước số lần lặp.
D chưa biết trước số lần lặp nhưng giới hạn là >=100.
Câu 8: Thành phần nào sau đây không có trên màn hình chính của phần mềm GeoGebra?
A Bảng chọn;
B Hộp công cụ;
C Khu vực các đối tượng hình vẽ;
D Thanh công cụ.
Câu 9: Với câu lệnh for i:=1 to 10 do x:=x+1; biến i được khai báo thuộc kiểu dữ liệu nào?
Câu 10: Trong các câu lệnh lặp Pascal sau đây, câu nào chương trình không báo lỗi?
A While i:= 1 do t:=10
B While x<=y to Writeln (‘y khong nho hon x’);
C While 1:= 1 do Writeln (‘Dung’);
D While (n mod i<> 0) do i:= i+ 1;
B TỰ LUẬN (5đ)
Câu 1: (1.5đ) Điền X vào các ô sao cho phù hợp và giải thích vì sao?
Trang 2Câu Đúng Sai Sửa lại cho đúng nếu sai
a) for i:=1 to 10 do writeln('A');
b) var X; Array[5…10] Of Char;
c) X:=10; while X=10 do X := X+5;
d) for i=1.5 to 10.3 do writeln('A');
Câu 2 : (3.5đ) Viết chương trình tính tổng dãy số nguyên trong mảng một chiều Với độ dài của mảng được nhập từ bàn phím tối đa là 20 phần tử.
BÀI LÀM:
Trang 3
ĐÁP ÁN VÀ BIỂU ĐIỂM
Trắc nghiệm
1, 2, 3, 4, 5,
6, 7, 8, 9, 10 1B; 2C; 3C; 4A; 5D; 6C; 7A; 8B; 9B; 10D
Mỗi câu đúng được 0.5đ
Tự luận
1
0.25đ 0.5đ 0.25đ 0.5đ
2
Program tinh_tong;
Uses crt;
Var A: array[1 20] of integer;
i, n, Tong: integer;
BEGIN Clrscr;
Write(‘Nhap do dai cho mang n= ’); readln(n);
For i:= 1 to n do Beign
Write(‘A[’,i,’]= ’); readln(A[i]);
End;
For i:= 1 to n do Tong:= Tong + A[i];
Write(‘Tong day so la: ’,Tong); Readln;
END
0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ
Câu Đúng Sai Sửa lại cho đúng nếu
sai
a) for i:=1 to 10 do
b) var X; Array[5…10] Of
c) X:=10; while X=10 do
X := X+5;
X d) for i=1.5 to 10.3 do