Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp?. Hãy rút ra nhận xét của em..[r]
Trang 1TUẦN 24
Từ ngày 1/2/2010 đến ngày 7/2/2010 Ngày dạy:
Tiết 47, 48:
BÀI TẬP
A MỤC TIÊU:
- Kiểm tra lại kiến thức đã học
B CHUẨN BỊ:
- GV:giáo án, sgk
- HS: sgk
C TIẾN TRÌNH LÊN LỚP:
1 Ổn định: lớp 8/1 lớp 8/2………
2 Kiểm tra bài cũ:
- Nêu một vài ví dụ về hoạt động lặp với số lần chưa biết trước
3 Dạy bài mới:
Tiết 47:
1 Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần biết trước và câu lệnh lặp với số lần chưa biết trước
2 Hãy tìm hiểu các thuật tốn sau đây và cho biết khi thực hiện thuật tốn, máy tính sẽ thực hiện bao nhiêu vịng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình pascal thể hiện các thuật tốn đĩ
a Thuật tốn 1:
Bước 1: S 10, x 0.5
Bước 2: Nếu S<= 5.2, chuyển tới bước 4
Bước 3: S S – x và quay lại bước 2
Bước 4: Thơng báo s và kết thúc thuật tốn
b Thuật tốn 2:
Bước 1: S 10, n 0
Bước 2: Nếu S>= 10, chuyển tới bước 4
Bước 3: n n + 3,S S – n và quay lại bước 2
Bước 4: Thơng báo s và kết thúc thuật tốn
Tiết 48:
3 Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết với đoạn lệnh đĩ chương trình thực hiện bao nhiêu vịng lặp? Hãy rút ra nhận xét của em
a S:= 0; n:= 0;
while S<= 10 do
begin n:= n+1; S:= S+n end;
a S:= 0; n:= 0;
while S<= 10 do
n:= n+1; S:= S+n ;
4 Hãy chỉ ra lỗi trong các câu lệnh sau đây:
a X:= 10; while X:= 10 do X:= X+5;
b X:= 10; while X= 10 do X= X+5;
c S:= 0; n:= 0; while S<= 10 do n:= n+1; S:= S+n;
4 Củng cố:
- Học sinh ơn lại các bài tập
Trang 25 Dặn dị:
- Chuẩn bị bài tiết sau thực hành
6.Rút kinh nghiệm:
Tiết 47:
-
Tiết 48:
-
TUẦN 25
Từ ngày 1/2/2010 đến ngày 7/2/2010 Ngày dạy:
Tiết 49, 50:
SỬ DỤNG LỆNH LẶP WHILE….DO
A MỤC TIÊU:
- Viết chương trình pascal sử dụng câu lệnh lặp với số lần chưa biết trước
- Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh
B CHUẨN BỊ:
- GV:giáo án, sgk, phịng máy
- HS: sgk
C TIẾN TRÌNH LÊN LỚP:
1 Ổn định: lớp 8/1 lớp 8/2………
2 Kiểm tra bài cũ:
- Khơng cĩ
3 Dạy bài mới:
Tiết 49:
Bài 1: Viết chương trình sử dụng lệnh lặp While…do để tính
trung bình n số thực x1, x2, …, xn Các số n vàx1, x2, …, xn được
nhập vào từ bàn phím
a Mơ tả thuật tốn của chương trình, các biến dự định sẽ sử
dụng và kiểu của chúng
b Gõ chương trình sau và lưu với tên Tinh_TB:
program tinhtrungbinh;
uses crt;
var n, dem : integer;
x, tb : real;
begin
clrscr;
dem:= 0; tb:= 0;
write(‘ Nhap so cac so can tinh n =’); readln(n);
while dem < n do
begin
- Hs đọc và thực hành
Trang 3dem:= dem + 1;
write(‘Nhap su thu’, dem, ‘ =’); readln(x)
tb:= tb + x;
end;
tb:= tb/x;
writeln(‘Trung binh cua’, n , ‘so la =’, tb :10 :3);
writeln(‘Nhan enter de thoat…’);
readln
end
c Đọc và tìm hiểu ý nghĩa của từng câu lệnh, dịch chương trình
và sữa lỗi, chạy chương trình với các bộ dữ liệu được gõ từ bàn
phím
d Viết lại chương trình bằng cách sử dụng lệnh for…do thay
cho while…do
Tieát 50:
Bài 2: Tìm hiểu chương trình và nhận biết 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
a Đọc và tìm hiểu ý nghĩa của từng câu lệnh sau:
uses crt;
var n, i : integer;
begin
clrscr;
write(‘Nhap vao mot so nguyen to:’); readln(n);
If n <= 1 then writeln(n, ‘khong la so nguyen to’) else
Begin
i:= 2;
while (n mod i<>0) do i:= i +1;
If i = n then writeln(n,’la so nguyen to!’) else
Writeln(n, ‘k phia la so nguyen to!’);
End;
Readln
End
b Gõ, dịch và chạy thử chương trình với một vài độ chính xác
khác nhau
4 Củng cố:
5 Dặn dò:
- Chuẩn bị bài tiết sau ôn tập
6.Ruùt kinh nghieäm:
Tieát 49:
-
Tieát 50:
-