Giáo án Tin học Lớp 8 - Tiết 48: Kiểm tra 1 tiết - Năm học 2008-2009 - Phạm Thị Lệ

Tuaàn: 25	Tieát 48	Ngaøy soaïn: 20
KIEÅM TRA 01 TIEÁT
I. MUÏC TIEÂU
Kieán thöùc
- Biết cú pháp và công dụng của câu lệnh lặp với số land chưa biết trước.
Kyõ naêng
- Viết được thuật toán dạng lặp với số lần chưa biết trước;
- Hiểu và vận dụng khai báo và sử dụng biến mảng;
Thaùi ñoä
- Nghieâm tuùc trong Kieåm tra, coù tinh thaàn hoïc hoûi, saùng taïo .
II. ÑEÀ BAØI
A. Lyù thuyeát
Câu 1: (1đ) Trình bày cú pháp và công dụng của câu lệnh lặp với số lần chưa biết trước?
Câu 2: (3đ) Cho các thuật toán sau: 
a) Thuật toán 1: 
Bước 1: 
Bước 2: Nếu , chuyển tới bước 4.
Bước 3: và quay lại bước 2.
Bước 4: thông báo s và kết thúc thuật toán.
b) Thuật toán 2: 
Bước 1: .
Bước 2: Nếu , chuyển tới bước 4.
Bước 3: , quay lại bước 2.
Bước 4: thông báo s và kết thúc thuật toán.
Viết chương trình pascal thể hiện thuật toán đó.
B. Baøi taäp
Câu 1: (1đ)
Hãy chỉ ra lỗi của đoạn lệnh sau đây:
x:=10; while x:=10 do x:=x+5;
x:=10; while x=10 do x=x+5;
Câu 2: (2,5đ) Viết thuật toán kiểm tra một số tự nhiên n được nhập vào từ bàn phím có phải là số nguyên tố hay không.
Câu 3: (2,5đ) Cho một dãy gồm n số thực và một số thực x. Viết chương trình nhập n số thực đó và đếm xem có bao nhiêu số trong dãy không lớn hơn x.
III. ÑAÙP AÙN
A. LÝ THUYẾT:
Câu 1: (1đ) 
* Cuù phaùp: while do ;
Trong ñoù: Ñieàu kieän thöôøng laø moät pheùp so saùnh.
Caâu leänh: coù theå laø caâu leänh ñôn giaûn hay caâu leänh gheùp.
Caâu leänh naøy ñöôïc thöïc hieän nhö sau:
1. Kieåm tra ñieàu kieän.
2. Neáu ñieàu kieän SAI, caâu leänh seõ bò boû qua vaø thöïc hieän leänh laëp keát thuùc. Neáu ñieàu kieän ñuùng, thöïc hieän caâu leänh vaø quay laïi böôùc 1.
Câu 2: (3đ) 
Đoạn chương trình pascal tương ứng:
a) S:=10; x:=0.5;
While s>5.2 do s:=s-x;
Writeln(s);
b) s:=10; n:=0;
while s<10 do
begin n:=n+3; s:=s-n;
end;
writeln(s);
B. BÀI TẬP:
Câu 1: (1đ)
Sai, thừa dấu hai chấm trong câu lệnh điều kiện;
Thiếu dấu hai chấm trong câu lệnh gán;
Câu 2: (2,5đ) 
B1: Nhập số tự nhiên N từ bàn phím;
B2: Nếu NThông báo N không phải là số tự nhiên; Chuyển đến B4;
B3: Nếu N>0;
- 
- Trong khi N mod i0 còn đúng thì;
- Nếu i=N thì thông báo N là số nguyên tố, rồi chuyển đến B4. Ngược lại thông báo N không phải là số nguyên tố;
B4: kết thúc;
Câu 3: (2,5đ) 
	* Bài giải:
Program demso;
Var x:real;
N, soluong, i: integer;
A: array [1..100] of real;
Begin
Writeln(‘nhap so phan tu cua day va so x de so sanh’);
Readln(n,x);
Writeln(‘hay nhap’, n);
For i:=1 to n do 
readln (a[i]);
soluong:=0;
for i:=1 to n do 
if a[i]<=x then soluong: = soluong+1;
writeln(‘trong day co’, soluong, ‘phan tu<’, x);
readln;
end.
IV. THOÁNG KEÂ KEÁT QUAÛ
LÔÙP
SÓ SOÁ
GIOÛI
KHAÙ
TRUNG BÌNH
YEÁU
KEÙM
8A1
8A2
V. RUÙT KINH NGHIEÄM
— — —»@@&??«— — —