ĐỀ THI HKI LỚP 11

Sở GD-ĐT Tỉnh Bà Rịa Vũng Tàu
Trường THPT Nguyễn Văn Cừ
Kiểm tra Học Kì I – Năm học 2011-2012
Môn : Tin Học Lớp 11
Thời gian: 45 phút


Câu 1 (2đ): Nêu sự khác nhau của vòng lặp FOR DO và WHILE DO?
Câu 2 (2đ): Chuyển các biểu thức toán học sau sang biểu thức toán học tương ứng trong Pascal :
–𝑏
𝑏
2−4𝑎𝑐
2𝑎
B. 2𝑥𝑦
𝑥−1
𝑥−𝑦

C.Viết câu lệnh rẽ nhánh tính
|x| + |y| nếu điểm (x,y) không thuộc hình tròn bán kính r (r>0), tâm (a,b)
x + y trong các trường hợp còn lại
Câu 3 (2đ): Cho biết giá trị của S và N tương ứng trong bảng sau khi chạy chương trình
Program cau3;
Lặp lần thứ
S=
N=
S < 100

1
?
?
?

2
?
?
?

3
?
?
?

4
?
?
?

Uses crt;
Var n,s: integer;
Begin
S:=1; N:=1;
While S < 100 do
Begin
S:=S * N;
N:= N + 3;
End;
Readln
End.
Câu 4 (4đ): Viết chương trình nhập vào từ bàn phím 2 số nguyên M và N (M>N). Tính tổng và in ra màn hình giá trị của tổng các số chia hết cho 2 trong phạm vi từ M tới N.
---(Hết(---

Câu 1 (2đ) Sự khác nhau giữa FOR DO và WHILE DO mỗi ý đúng được 0.5 đ
FOR DO
WHILE DO

Biến đếm được khởi gán trong vòng lặp
Biến đếm được khởi gán ngoài vòng lặp

Giá trị biến đếm tự tăng (giảm) 1 đơn vị qua mỗi lần lặp
Giá trị biến đếm tăng (giảm) mấy đơn vị tùy thuộc vào người lập trình

Không cần lệnh gán thay đổi giá trị biến đếm
Phải có lệnh gán thay đổi giá trị biến đếm

Dùng với số lần lặp biết trước
Có thể dùng với số lân lặp biết trước và chưa biết trước


Câu 2 (2đ): Mỗi đáp án đúng được 0.5đ
A. –b + sqrt(b*b-4*a*c) hoặc –b + sqrt(sqr(b)-4*a*c)
B. a*x*x + b*x + c
C. if sqrt((x-a)*(x-a) + (y-b)*(y-b)) > r then z:=abs(x)+abs(y) else z:=x+y;
Hoặc :
if sqrt(sqr(x-a) + sqr(y-b)) > r then z:=abs(x)+abs(y) else z:=x+y;
Hoặc :
If sqr(x-a) + sqr(y-b) > sqr(r) then z:=abs(x)+abs(y) else z:=x+y;
Hoặc :
If (x-a) *(x-a) + (y-b) *(y-b) > r*r then z:=abs(x)+abs(y) else z:=x+y;
Câu 3 (2đ) Sai 1 vị trí trừ 0.25đ
Lặp lần thứ
S=
N=
S < 100

1
1
4
True

2
4
7
True

3
28
10
True

4
280
13
False






Câu 4 (4đ): Lưu ý : Mỗi lỗi sai bị trừ 0.25đ
Program Cau_4;
Uses crt;
Var S, M, N, I : integer;
Begin
Clrscr;
Write(‘ Nhap M’); Readln(M);
Write(‘ Nhap N’); Readln(N);
For I:= M to N do
If (I mod 2 = 0) then
S:=S + I;
Writeln(‘Tong S la’, S);
Readln;
End.