Giáo án Tin học 8 - Tiết 51-52, Bài thực hành 6: Sử dụng lệnh lặp While...Do - Năm học 2010-2011 - Trần Thị Thảo

<span class='text_page_counter'>(1)</span>Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 ---------------------------------------------------------------------------------------------------------------------------------------. Tuần : 27 Tiết : 51+52. Ngày soạn: 07/03/2011 Ngày dạy : 08/03/2011. Bài TH 6: SỬ DỤNG LỆNH LẶP WHILE...DO I.. Mục tiêu 1. Kiến thức - 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. 2. Kỹ Năng - Viết được chương trình có sử dụng vòng lặp while…do. - Rèn luyện đọc hiểu chương trình có sử dụng vòng lặp while…do. 3. Thái độ - Có ý thức, kỹ luật, nghiêm túc, trình bày một vấn đề chặt chẽ, rõ ràng. II. Chuẩn bị - GV: Soạn giáo án , SGK, máy chiếu, phòng máy… - HS: Vở ghi, SGK, đọc trước nội dung bài học thực hành, tìm hiểu một số bài toán và chỉ ra thuật toán.. III. Phương pháp - Vấn đáp, thuyết trình, trực quan. - Đặt vấn đề, giải quyết vấn đề. IV. Hoạt động dạy và học 1. Ổn định lớp tổ chức lớp - kiểm tra sĩ số lớp. - Ổn định trật tự. 2. Kiểm tra bài cũ - Nêu cấu trúc câu lệnh, ý nghĩa của vòng lặp while...do? 3. Bài mới Hoạt động của GV - HS Nội dung ? điều kiện ở đây là ? Bài 1:Viết chương trình sử dụng lệnh lặp HS : trả lời While…do để tính trung bình n số thực x1, x2, ? vòng lặp thực hiện khi nào ? x3,..., xn. Các số n và x1, x2, x3,..., xn được nhập vào từ bàn phím. HS : khi hết n số thì thôi ? tính trung bình của n số thực như thế a.Thuật toán Bước 1. - Nhập N là số lượng số thực sẽ được nào ? HS : nêu cách tính nhập từ bàn phím: ? nêu thuật giải ? - Gán biến đếm bằng 0 Dem 0 HS : trả lời - Gán tổng Sum  0. TRẦN THỊ THẢO Năm 2010 - 2011 Lop8.net.

<span class='text_page_counter'>(2)</span> Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 ---------------------------------------------------------------------------------------------------------------------------------------. ? công việc đầu tiên phải thực hiện ? HS : - nhập n số thực - nhập số thứ nhất, rồi tính tổng các số vừa nhập - tương tự lặp lại nhập cho đến khi được n số thoát khỏi vòng lặp và tính trung bình bằng cách lấy tổng chia n ? trong bài cần dùng bao nhiêu biến ? ? xác định kiểu dữ liệu mỗi biến HS : trả lời ? Dịch chương trình và sửa lỗi, nếu có. Chạy chương trình với các bộ dữ liệu được gõ từ bàn phím và kiểm tra kết quả nhận được. ? thảo luận đối chiếu giữa thuật toán và các câu lệnh mô tả thuật toán trong chương trình hoạt động chính của chương trình với n=3 1. Trước khi bắt đầu vòng lặp while...do: dem=0, TB=0, n = 3; 2. Bắt đầu vòng lặp while...do 3. Kết thúc vòng lặp while...do: TB = 45/3 = 15. 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. Bước 2. Trong khi Dem < N thì Nhập giá trị số thực x từ bàn phím Cộng thêm x vào tổng Sum: Sum  Sum + x Tăng biến đêm thêm 1 đơn vị: Dem  Dem + 1 Bước 3. Tính TB dãy số vừa nhập TB  Sum/N. Bước 4. Đưa TB ra màn hình, rồi kết thúc. a) Gõ chương trình sau đây và lưu chương trình 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; write('Nhap so thu ',dem,'= '); readln(x); TB:=TB+x; end; TB:=TB/n; writeln('Trung binh cua ',n,' so la= ',TB:10:3); writeln('Nhan Enter de thoat ...'); readln end. 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);. TRẦN THỊ THẢO Năm 2010 - 2011 Lop8.net.

<span class='text_page_counter'>(3)</span> Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 ---------------------------------------------------------------------------------------------------------------------------------------. 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 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.. 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 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 nguyento!'); end; readln end. Program Bai2 Uses Crt; Var n: Integer; S : Real; 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.. TRẦN THỊ THẢO Năm 2010 - 2011 Lop8.net.

<span class='text_page_counter'>(4)</span> Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 ---------------------------------------------------------------------------------------------------------------------------------------. ?đọ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 ? 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 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. TRẦN THỊ THẢO Năm 2010 - 2011 Lop8.net.

<span class='text_page_counter'>(5)</span>