Đề Đáp Án KT Ly thuyet HK II

Trờng THCS Sơn Tiến
Họ và tên:
Lớp:
Ngày tháng 05 năm 2010.
Kiểm tra lý thuyết
Môn: Tin học.
Thời gian: 45 phút.
Điểm. Lời phê của giáo viên.
Đề Bài.
Câu 1: Hãy cho biết tác dụng của câu lệnh lặp với số lần biết trớc?
Câu 2: Các câu lệnh Pascal sau đây đợc viết đúng hay sai?
a. if x:=7 then a=b;
b. if x>5; then a:=b;
c. if x>5 then; a:=b;
Câu 3: Hãy phát biểu sự khác biệt giữa các câu lệnh lặp với số lần lặp cho trớc và câu lệnh
lặp với số lần lặp cha biết trớc.
Câu 4: Ngời ta đã chứng minh rằng các tổng sau đây
1 2 3
1 1 1 1 1 1 1 1 1
, , , ,
2 2 3 2 3 4 2 3 1
n
T T T T
n
= = + = + + = + + +
+
luôn luôn tăng (có thể lớn hơn một số bất kì), mặc dù chỉ cộng thêm một số rất nhỏ ở mỗi b-
ớc.Viết chơng trình nhập số thực A và tìm số tự nhiên nhỏ nhất N sao cho 1 + 1/2 + 1/3 +
+ 1/N >A.
Bài Làm:

Đáp án và thang điểm.
Câu 1: (1 đ)
Câu lệnh lặp có tác dụng làm đơn giản và giảm nhẹ công sức của ngời viết chơng trình!
Câu 2: (2 đ)
a) Sai (thừa dấu hai chấm);
b) Sai (thừa dấu chấm phảy thứ nhất);
c) Sai (thừa dấu chấm phảy sau từ then);
Câu 3: (3 đ)
Sự khác biệt giữa câu lệnh lặp với số lần lặp cho trớc và câu lệnh lặp với số lần lặp cha biết
trớc là ở các điểm sau đây:
+) Nh tên gọi của nó, câu lệnh lặp với số lần lặp cho trớc chỉ thị cho máy tính thực hiện một

lệnh hoặc một nhóm lệnh với số lần đã đợc xác định từ trớc, còn với câu lệnh lặp với số lần
lặp cha biết trớc thì số lần lặp cha đợc xác định trớc.
+) Trong câu lệnh lặp với số lần cho trớc, điều kiện là giá trị của một biến đếm có giá trị
nguyên đã đạt đợc giá trị lớn nhất hay cha, còn trong câu lệnh lặp với số lần lặp cha biết trớc,
điều kiện tổng quát hơn nhiều, có thể là kiểm tra một giá trị của một số thực, cũng có thể là
một điều kiện tổng quát khác.
+) Trong câu lệnh lặp với số lần cho trớc, câu lệnh đợc thực hiện ít nhất một lần, sau đó kiểm
tra điều kiện. Trong câu lệnh lặp với số lần cha xác định trớc, trớc hết điều kiện đợc kiểm tra.
Nếu điều kiện đợc thỏa mãn, câu lệnh mới đợc thực hiện. Do đó có thể có trờng hợp câu lệnh
hoàn toàn không đợc thực hiện.
Câu 4: (4 đ)
Chơng trình có thể nh sau:
Uses CRT;
Var A, sum: real;
i: integer;
Begin
Write('cho so A: '); readln(A);
i:=1; sum:= 0;
While (sum<=A) do
Begin
sum:= sum+1/i;
i:= i+1;
end;
Write('Gia tri N bang ', i:6);
Readln;
End.