- 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; 3.. Thái độ - Nghieâm tuùc trong Kieåm tra, coù tinh thaàn hoïc hoûi, saùng [r]
Trang 1Tuần: 25 Tiết 48 Ngày soạn: 2002
09
I MỤC TIÊU
1 Kiến thức
-
2. Kỹ năng
- Vi
- ,- và ' khai báo và / " 01+
3 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:
Câu 2:
a)
B! 1: s 10,x 0.5
! 2: ; s 5.2,
! 3: s s x và quay ) "! 2
b)
! 1: s 10,n 0
! 2: ; s 10,
! 3: n n 3,s s n quay ) "! 2
B Bài tập
Câu 1: (1đ)
Hãy C ra D %() sau %46
a) x:=10; while x:=10 do x:=x+5;
b) x:=10; while x=10 do x=x+5;
Câu 2:
phím cĩ
Câu 3:
III ĐÁP ÁN
A LÝ THUYẾT:
Câu 1: (1đ)
KIỂM TRA 01 TIẾT
Trang 2* Cú pháp: while <điều kiện> do <câu lệnh>;
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đ)
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đ)
a) Sai,
b) 2 W hai W0 trong câu gán;
Câu 2: (2,5đ)
B1:
B2: ; N 0Thơng báo N khơng
B3: ; N>0;
- i 2;
- Trong khi N mod i<>0 cịn % thì;
-
báo N khơng
B4:
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;
Trang 3for 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Ả
8A1
8A2
V RÚT KINH NGHIỆM
-— -— -—»« -— -— -—
...
-? ?? -? ?? -? ??»« -? ?? -? ?? -? ??
... soluong +1;writeln(‘trong day co’, soluong, ‘phan tu<’, x);
readln;
end
IV THỐNG KÊ KẾT QUẢ
8A1
8A2... n);
For i: =1 to n
readln (a[i]);
soluong:=0;
Trang 3for i: =1 to n
if a[i]<=x