Đề thi lí thuyết cuối kì II môn: Tin học 8

 PHÒNG GD & DT TIÊN PHƯỚC
TRƯỜNG TH&THCS TRẦN QUỐC TOẢN
ĐỀ THI LÍ THUYẾT CUỐI KÌ II
MÔN: TIN HỌC
NĂM HỌC: 2013-2014
( Thời gian 30 phút không kể thời gian giao đề)
Họ và Tên thí sinh:
.
LỚP: 8
Lời phê của GT
ĐIỂM
A/ LÝ THUYẾT: (3 điểm )Hãy chọn một đáp án đúng nhất rồi điền vào bảng dưới đây:
Câu 
Câu1
Câu2
Câu3
Câu4
Câu5
Câu6
Câu7
Câu8
Câu9
Câu10
Câu11
Câu12
Đáp án
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
for i := 4 to 1 do writeln(‘A’);
for i := 1 to 10 writeln(‘A’);
for i := 1 to 100 do writeln(‘A’);
for i to 10 do writeln(‘A’);	
Câu 2. Trong câu lệnh lặp: for n:= 1 to 6 do begin ... end;
Câu lệnh ghép được thực hiện bao nhiêu lần?
7 lần;
6 lần;
5 lần;
Không lần nào;
Câu 3. Câu lệnh lặp For ...to ... do có:
Số lần lặp là vô hạn.	
Số lần lặp biết trước.
Số vòng lặp phải nhỏ hơn 100.
Số vòng lặp không biết trước.
Câu 4. Sau khi thực hiện chương trình dưới đây, giá trị của biến j bằng bao nhiêu?
j:= 1; 
for i:= 0 to 10 do j:= j+1;
12;
13;
11;
14;
Câu 5. Trong Pascal, câu lệnh nào sau đây là đúng?
i:=0; S:=1; While S<10 do S=S+i; i=i+1; 
i:=1; S:=0; while s<10 do begin S:=S+i; i:=i+1; end; 
n:=2; while n<5; do write(‘A’);
Cả A và B đều đúng
Câu 6. Cú pháp đầy đủ của câu lệnh While  do là:
While do ;
While ; ;
While to do;
While do ;
Câu 7. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình ?	n:=10; T:=100;
While n>10 do n:=n+5; T:=T - n;
0
4
6
10
Câu 8. Đoạn lệnh dưới đây sẽ cho kết quả là gì?
 	so := 1;
	While so <10 writeln(so); so := so + 1;
In ra các số từ 1 đến 10;
Chương trình báo lỗi;
In ra vô hạn số 1 trên một cột;
In ra vô hạn số 1 trên một dòng ;
Câu 9. Trong Pascal, câu lệnh khai báo biến mảng nào sau đây đúng?
var a : array[10..1] of integer;
var b : array(1..100) of real;
var c : array[1..15] of integer;
var d : array[-2..-5] of real;
Câu 10. Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? 
5;
4;
6;
7;
Câu 11. Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
Chỉ số đầu > chỉ số cuối;
Chỉ số đầu chỉ số cuối;
Kiểu dữ liệu chỉ có thể là real;
Cả ba ý trên đều đúng;
Câu 12. Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh dưới đây giá trị của biến tb là bao nhiêu?
tb:= 0; For i:= 1 to 5 do tb := tb + A[i];
19;
18;
21;
20;
B/ BÀI TẬP (2 điểm)
Viết chương trình nhập vào 8 số nguyên rồi tìm max day so đó.
Yêu cầu : Khai báo tên biến mảng dayso, với chỉ số đầu là 1, chỉ số cuối là 20, kiểu dữ liệu số nguyên.
........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
 ĐÁP ÁN VÀ BIỂU ĐIỂM 
A/ LÝ THUYẾT: (3điểm – mỗi câu đúng 0,25 điểm).
Câu 
Câu1
Câu2
Câu3
Câu4
Câu5
Câu6
Câu7
Câu8
Câu9
Câu10
Câu11
Câu12
Đáp án
C
B
B
A
B
D
A
B
C
A
B
D
B/ BÀI TẬP (2 điểm)
CÂU
ĐÁP ÁN
ĐIỂM
Program cau_2;
Uses crt;
Var max, i : integer;
dayso : array[1..20] of integer;
0.25
Begin
Clrscr;
so_chan:=0;
0.25
For i := 1 to 8 do
Begin
Write(‘phan tu thu ‘,i,’ la = ‘);
readln(dayso[i]);
End;
0.5
Max:=dayso[1];
For i := 2 to 8 do
Begin
 If max<dayso[i] then max:=dayso[i];
End;
0.5
Writeln(‘So lon nhat day so ‘,max);
Readln; End.
0.5