DE KT-DA 1TIET HKII

Tuần: 25 Tiết 48 Ngày soạn: 20



I. MỤC TIÊU
Kiế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.
Kỹ năng
- đượ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;
Thái độ
- Nghiêm túc trong Kiểm tra, có tinh thần học hỏi, sáng tạo .
II. ĐỀ BÀI
A. Lý thuyế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:
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. Bài tậ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. ĐÁP ÁN
A. LÝ THUYẾT:
Câu 1: (1đ)
* Cú pháp: while <điều kiện> do ;
Trong đó: Điều kiện thường là một phép so sánh.
Câu lệnh: có thể là câu lệnh đơn giản hay câu lệnh ghép.
Câu lệnh này được thực hiện như sau:
1. Kiểm tra điều kiện.
2. Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và thực hiện 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 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 N
Thô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 i<>0 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. THỐNG KÊ KẾT QUẢ

LỚP
SĨ SỐ
GIỎI
KHÁ
TRUNG BÌNH
YẾU
KÉM

8A1







8A2








V. RÚT KINH NGHIỆM


— — —»(((((«— — —