Kiểm tra 1 tiết tin 8 hk 2

Ngày dạy:26/02/2011
Ngày soạn: Lớp 8A: 09/03/2011; Lớp 8B: 01/03/2011; Lớp 8C: 17/03/0211
Tiết PPCT: Tiết: 51
KIỂM TRA 1 TIẾT ( LT)
I. Mục tiêu:
- Hệ thống lại một số kiến thức đã học.
- Biết sử dụng vòng lặp xác định và vòng lặp không xác định để viết chương trình.
II. Đề bài:

Câu 1: Em hãy nêu cú pháp và hoạt động của vòng lặp không xác định (3đ)
Câu 2: Em hãy nêu cú pháp và hoạt động của vòng lặp xác định (3đ)
Câu 3: Em hãy viết chương trình tính tổng các số tự nhiên từ 100 đến 1000 ( Sử dụng vòng lặp xác định và vòng lặp không xác định) (4 đ)
III. Đáp án:
Câu 1: Cú pháp và hoạt động của vòng lặp không xác định.
* Cú pháp:
While <điều kiện> do ;
* Hoạt động:
- B1. Kiểm tra điều kiện.
- B2. Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện câu lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại B1.
Câu 2: Cú pháp và hoạt động của vòng lặp xác định
* Cú pháp:
For := to do ;
* Hoạt động của vòng lặp:
- B1: biến đếm nhận giá trị đầu
- B2: Chương trình kiểm tra biểu thức điều kiện, nếu biểu thức điều kiện đúng thì thực hiện câu lệnh.
- B3: Biến đếm tự động tăng lên 1 đơn vị và quay lại B2.
- B4: Nếu biểu thức điều kiện nhận giá trị sai thì thoát ra khỏi vòng lặp.
Câu 3. Viết chương trình tính tổng các số tự nhiên từ 100 đến 1000
* Vòng lặp xác định:
Program tinh_tong;
Var i, S: Integer;
Begin
For i:= 100 to 1000 do
S:= S + i;
Wirteln(‘ tong cac so tu nhien tu 100 den 1000 la:’,S);
Readln;
End.
* Vòng lặp không xác định:
Program tinh_tong;
Var i, S: Integer;
Begin
i:= 100;
S:= 0;
While i > 1000 do
S:= S + i;
i:= i + 1;
Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S);
Readln;
End.