Tiết 64-70 tin 8

Ngày soạn: 10/04/2012 Ngày dạy: 18/04/2012
TIẾT 64 - BÀI THỰC HÀNH 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (T1)
I - MỤC TIÊU
1. Kiến thức
- Làm quen với việc khai báo và sử dụng các biến mảng
2. Kỹ Năng
- Ôn luyện cách sử dụng câu lệnh lặp for…do.
- Củng cố các kĩ năng đọc, hiểu và chỉnh sửa chương trình.
3. Thái độ: Nghiêm túc
II. CHUẨN BỊ
1. Giáo viên: giáo án, máy chiếu
2. Học sinh: Kiến thức cũ, sách, vở.
III - PHƯƠNG PHÁP
- Thuyết trình, giảng giải, vấn đáp.
IV - TIẾN TRÌNH LÊN LỚP
1. Tổ chức
Lớp
8A
8B
8C

Vắng




2. Kiểm tra bài cũ:
KIỂM TRA 15 Phút
I. Trắc nghiệm
Khoanh tròn chữ cái đứng trước phương án trả lời đúng các câu sau:
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=1;for i:=1 to 4 do s := s+i writeln(s); Kết quả in lên màn hình là của s là:
A 55 B 10 C 15 D 11
Câu 2: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu.
A Integer; B Tất cả các kiểu trên đều được. C String D Real;
Câu 3: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần?
A Không lần nào B 1 lần C 2 lần. D 12 lần
Câu 4: Để tính tổng S=1 + 2 +3 +4 … + n; em chọn đoạn lệnh:
A for i:=1 to n doif ( i mod 2)<>0 then S:=S + i;
B for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
C for i:=1 to n do S:= S + i ;
D for i:=1 to n do if ( i mod 2)=1 then S:=S + i;
Câu 5: Điền Đ (đúng) hoặc S (sai) vào đầu các câu lệnh sau:
1.for i:=10 to 1 do writeln(`b`);
2. var x: integer; begin for x := 1 to 10 do writeln(`b`); end.
3. for i:=1 to 100 do ;
4. for i:=1 to 100 do writeln(`b`);
5.for i:=0.5 to 5.5 do writeln(`b`);
6.for i=1 to 100 do writeln(`b`);
7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
8. S:=0; n:=0;
while S <= 100 do
begin n:=n+1; S:=S+n end;
II /Tự luận
Câu 6 Hãy viết chương trình nhập vào chiều cao của một số bạn trong lớp em.

ĐÁP ÁN VÀ THANG ĐIỂM
I. Trắc nghiệm
Từ câu 1 đến câu 4 mỗi câu đúng được 0,5 điểm
1. D 2. A 3. D 4. C
Câu 5: mỗi ý đúng được 0,5 điểm
Điền Đ (đúng) hoặc S (sai) với các câu sau:
S - 1.for i:=10 to 1 do writeln(`b`);
Đ- 2. var x: integer; begin for x := 1 to 10 do writeln(`b`); end.
Đ- 3. for i:=1 to 100 do ;
Đ- 4. for i:=1 to 100 do writeln(`b`);
S- 5.for i:=0.5 to 5.5 do writeln(`b`);
S- 6.for i=1 to 100 do writeln(`b`);
S- 7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
S- 8. S:=0; n:=0;
while S <= 100 do
begin n:=n+1; S:=S+n end;
II /Tự luận:
Câu 6
var 0,25 đ
i,n:byte; 0,5đ
Chieucao: array[1..50] of real; 1 đ
Begin