De thi tin 8 co dap an

Phòng GD - ĐT An Lão KIỂM TRA HỌC KỲ II - NĂM HỌC 2009 - 2010
Trường PTDTBT Đinh Nỉ Môn: Tin học - Khối 8
Thời gian làm bài: 45 phút (Không kể thời gian phát đề )


Họ và tên : Số báo danh:
Trường: Lớp:
Số mật mã





Giám thị 1
Giám thị 2
Giám khảo 1
Giám khảo 2
Điểm
Số mật mã




ĐỀ:
I. TRẮC NGHIỆM (5 điểm)
Hãy khoanh tròn vào đầu chữ cái của câu trả lời đúng nhất, trong các phương án a, b, c, d
Câu 1: (0,5 điểm) Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
For : = to do ;
Câu 2: (0,5 điểm) Vòng lặp While <Điều kiện> do ; là vòng lặp:
A. Chưa biết trước số lần lặp
B. Biết trước số lần lặp
C. Biết trước số lần lặp nhưng giới hạn là <=100
D. Biết trước số lần lặp nhưng giới hạn là >=100
Câu 3: (0,5 điểm) 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+1; else a=a+2; D. If a=5 then a:=a+1 else a:=a+2;
Câu 4: (0,5 điểm) 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







HoÏc sinh không được ghi vào phần gạch chéo này
Câu 5: (0,5 điểm) 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 6: (0,5 điểm) Chọn khai báo hợp lệ:
A. Var a,b: array[1 .. n] of real; B. Var a,b: array[1 : n] of Integer;
C. Var a,b: array[1 .. 100] of real; D. Var a,b: array[1 … 100] of real;
Câu 7: Điền X vào các ô sao cho phù hợp và giải thích vì sao? ( 2 điểm)
Câu
Đúng
Sai

a) if a>b then max:=a; else max:=b;



b) if a>b then min:=b else min:=a;



c) for i:=1 to 50 do x:=x+1;



d) for i:=1.5 to 10 do m:=m + 1;












II. TỰ LUẬN: (5 điểm)
Câu 1: Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đĩ cho đúng: (2 điểm)

Program Tinh tong;
Uses crt;
Var N; i: Integer;
S: Longint;
BEGIN
Clrscr;
Write(‘Nhap vao so N =’ ); Readln(N);
S:=0
For i =1 to N do S:=S+i;
Writeln(‘Tong cua’,N,’so dau tien s = ‘, s);
Readln
END.








HoÏc sinh không được ghi vào phần gạch chéo này

Câu 2: Viết chương trình giải quyết bài toán: (3 điểm)
Viết chương trình tính tổng:


Trong đó n là số nguyên nhập từ bàn phím.