III. CÁC HOẠT ĐỘNG DẠY VÀ HỌC: 1 Tổ chức(1ph)
a)Gừ chương trỡnh sau đõy và lưu chương trỡnh với tờn Tinh_TB:
với tờn Tinh_TB: Program Tinh_Trung_binh; 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
dem:=dem+1;
Viết lại chương trỡnh bằng cỏch sử dụng cõu lệnh for…do thay cho cõu lệnh while…do.
GV : phõn biệt cho học sinh trong vũng for khụng cần cú phộp toỏn dem:=dem+1; khỏc với vũng lặp while ….do
sử dụng while...do và for...do là khỏc nhau. While...do thớch hợp hơn với trường hợp lặp với số lần chưa biết trước,
for...do thớch hợp hơn với trường hợp lặp
với số lần biết trước. Vớ dụ, khụng thể sử dụng lệnh for...do để thay thế lệnh
while...do trong chương trỡnh Chao_hoi
được (chưa biết trước số bạn trong nhúm). GV: cú thể giới thiệu thờm về vũng lặp Repeat… until TB:=TB+x; end; TB:=TB/n;
writeln('Trung binh cua ',n,' so la= ',TB:10:3); writeln('Nhan Enter de thoat ...');
readln end. d.
write('Nhap so cac so can tinh n = '); readln(n);
tong :=0
for dem :=1 to n do begin
writeln(‘ nhap so thu’,dem,’=’) ; readln(x)
tong :=tong+x end ;
TB := tong/n ;
writeln('Trung binh cua ',n,' so la = ',TB:10:3); 4.Củng cố
? Nờu cấu trỳc vũng lặp khụng xỏc định ? 5.Hướng dẫn về nhà
GV : tỡm hiểu tiếp bài 2 - SGK Bài tõp về nhà
Bài 1 : viết chương trỡnh nhập số thực A từ bàn phớm và tỡm số tự nhiờn nhỏ nhất N sao cho :
A N〉 + + + + ... 1 3 1 2 2
1 với N là số tỡm được hĩy tớnh tổng vế trỏi GV : tương tự như vũng lặp For…to…do thay bằng while…do Bài 2 : tớnh tổng S = 1 2 1 ... 5 1 3 1 1 + + + + + n với độ chớnh xỏc 1/n <=0.001 Ngày soạn : 22/2/2012 Ngày dạy : 8A : 8B : 8C: 8D: Tiết 48 : Tuần 26
Bài thực hành 6 SỬ DỤNG LỆNH LẶP WHILE....DO I.Mục tiờu:
- Kiến thức: Hiểu ngụn ngữ lập trỡnh dựng cấu trỳc lặp với số lần chưa biết trước để chỉ dẫn mỏy tớnh thực hiện lặp đi lặp lại cụng việc đến khi một điều kiện nào đú được thoả mĩn;
Hiểu Hoạt động của cõu lệnh lặp với số lần chưa biết trước while...do… trong Pascal. - Kĩ năng: 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 khả năng đọc chương trỡnh, tỡm hiểu tỏc dụng của cỏc cõu lệnh - Thỏi độ: cú hứng thỳ trong học tập
II. Chuẩn bị
- GV: SGK, vớ dụ về chương trỡnh - HS: Xem trước bài ở nhà (adsbygoogle = window.adsbygoogle || []).push({});
III. Tiến trỡnh bài giảng 1. Ổn định lớp
2.Kiểm tra
Nờu cấu trỳc, ý nghĩa của vũng lặp while…do ? Giải bài tập 1 - VN
3. Hoạt động dạy học
Hoạt động của GV - HS Nội dung ghi bảng
Hoạt động 1 : thực hành
Bài 2. Tỡm hiểu chương trỡnh 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.
? nờu cỏch giải
í tưởng: Kiểm tra lần lượt N cú chia hết
cho cỏc số tự nhiờn 2 ≤ i ≤ N hay
khụng. Kiểm tra tớnh chia hết bằng phộp chia lấy phần dư (mod).
? xỏc định Input và Output của bài toỏn: HS: Input: Số tự nhiờn N
Output: Trả lời N là số nguyờn tố hoặc N khụng là số nguyờn tố
GV: Để kiểm tra N cú phải số nguyờn tố hay khụng ta sẽ đi kiểm tra xem N cú chia hết cỏc số từ 2 đến N − 1 hay khụng. Nếu N khụng chia hết cho số nào trong khoảng từ 2 đến N − 1 thỡ N là số nguyờn tố, ngược lại N chia hết cho bất kỡ một số nào trong khoảng từ 2 đến N − 1 thỡ N khụng phải là số nguyờn tố.
Sử dụng phộp chia lấy phần dư mod để kiểm tra tớnh chia hết.
Bước 1: Nhập số tự nhiờn N từ bàn phớm Bước 2: Nếu N≤ 0 thụng bỏo N khụng phải là số tự nhiờn, rồi chuyển đến bước 4.
Bước 3: Nếu N > 0:
3.1. i←2;
3.2. Trong khi N mod i <> 0, i←i+1; 3.3. Nếu i = N thỡ thụng bỏo N là số nguyờn tố, rồi chuyển đến bước 4, khụng thỡ thụng bỏo N khụng phải là số nguyờn tố;
Bước 4: Kết thỳc.
?đọc chương trỡnh trong SGK, đối chiếu việc sử dụng cõu lệnh để mụ tả thuật toỏn trờn đõy ? cú nhất thiết phải kiểm tra cỏc ước lần lượt từ 1 đến n khụng ?
Bài 2 :
Bước 1: Nhập số tự nhiờn N từ bàn phớm
Bước 2: Nếu N≤ 0 thụng bỏo N khụng phải là số tự nhiờn, rồi chuyển đến bước 4.
Bước 3: Nếu N > 0:
3.1. i←2;
3.2. Trong khi N mod i <> 0, i←i+1; 3.3. Nếu i = N thỡ thụng bỏo N là số nguyờn tố, rồi chuyển đến bước 4, khụng thỡ thụng bỏo N khụng phải là số nguyờn tố;
Bước 4: Kết thỳc. lập trỡnh Uses Crt; Var n,i:integer; Begin Clrscr;
write('Nhap vao mot so nguyen: ');readln(n); If n<=1 then writeln('N khong la so nguyen to') else (adsbygoogle = window.adsbygoogle || []).push({});
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,' khong phai la so nguyen to!'); end; readln end. Program Bai2 Uses Crt; Var n: Integer; S : Real;
HS : trả lời
GV : gợi ý HS để tỡm ra chỉ cần kiểm tra đến Trunc(n/2)
Bài2 - BTVN
? xỏc định Input và Output của bài toỏn: ? Nờu cỏch giải Begin Clrscr; S:= 0; n:= 1; While 1/n>0.001 do begin If n mod 2 <>0 then S:= S+ 1/n; n:= n+1; end;
Writeln('so N can tim la: ',N:5); Readln;
End. 4.Củng cố
?Nờu cấu trỳc tổng quỏt của cõu lệnh lặp while do 5.Hướng dẫn về nhà ễn tập lại kiến thức đĩ học Ngày soạn : 22/2/2012 Ngày dạy : 8A : 8B : 8C: 8D: Tiết 48 : Tuần 26 Kiểm tra I.Mục tiờu:
- Kiến thức: Hiểu ngụn ngữ lập trỡnh dựng cấu trỳc lặp với số lần chưa biết trước , với số lần biết trước...
- Kĩ năng: Rố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 - Thỏi độ: Tập trung, nghiờm tỳc
II. Chuẩn bị
- GV: đề thi
- HS: Xem trước bài ở nhà III. Tiến trỡnh bài giảng
1. Ổn định lớp 2.Kiểm tra
3. Hoạt động dạy học Đề bài