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

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?. t[r]

Trường THCS LÊ QUÝ ĐÔN Giáo án tin - 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 Kiến thức - Hiểu hoạt động câu lệnh lặp với số lần chưa biết trước while…do Pascal Kỹ Năng - Viết 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 Thái độ - Có ý thức, kỹ luật, nghiêm túc, trình bày 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 số bài toán và thuật toán III Phương pháp - Vấn đáp, thuyết trình, trực quan - Đặt vấn đề, giải vấn đề IV Hoạt động dạy và học Ổn định lớp tổ chức lớp - kiểm tra sĩ số lớp - Ổn định trật tự Kiểm tra bài cũ - Nêu cấu trúc câu lệnh, ý nghĩa vòng lặp while do? Bài Hoạt động 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 nào ? x3, , xn Các số n và x1, x2, x3, , xn nhập vào từ bàn phím HS : hết n số thì thôi ? tính trung bình n số thực a.Thuật toán Bước - Nhập N là số lượng số thự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 Dem HS : trả lời - Gán tổng Sum  TRẦN THỊ THẢO Năm 2010 - 2011 Lop8.net Trường THCS LÊ QUÝ ĐÔN Giáo án tin - ? công việc đầu tiên phải thực ? HS : - nhập n số thực - nhập số thứ nhất, tính tổng các số vừa nhập - tương tự lặp lại nhập n số thoát khỏi vòng lặp và tính trung bình cách lấy tổng chia n ? bài cần dùng bao nhiêu biến ? ? xác định kiểu liệu biến HS : trả lời ? Dịch chương trình và sửa lỗi, có Chạy chương trình với các liệu gõ từ bàn phím và kiểm tra kết nhận ? thảo luận đối chiếu thuật toán và các câu lệnh mô tả thuật toán chương trình hoạt động chính chương trình với n=3 Trước bắt đầu vòng lặp while do: dem=0, TB=0, n = 3; Bắt đầu vòng lặp while Kết thúc vòng lặp while do: TB = 45/3 = 15 Viết lại chương trình 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 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 và for là khác While thích hợp với trường hợp lặp với số lần chưa biết trước, for thích hợp 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 để thay lệnh while chương trình Chao_hoi (chưa Bước Trong 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 đơn vị: Dem  Dem + Bước Tính TB dãy số vừa nhập TB  Sum/N Bước Đưa TB màn hình, 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 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 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 Trường THCS LÊ QUÝ ĐÔN Giáo án tin - biết trước số bạn nhóm) GV: có thể giới thiệu thêm vòng lặp Repeat… until Bài Tìm hiểu chương trình nhận biết số tự nhiên N 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 N có chia hết cho các số tự nhiên ≤ i ≤ N hay không Kiểm tra tính chia hết phép chia lấy phần dư (mod) ? xác định Input và Output bài toán: HS: Input: Số tự nhiên N Output: Trả lời N là số nguyên tố N không là số nguyên tố GV: Để kiểm tra N có phải số nguyên tố hay không ta kiểm tra xem N có chia hết các số từ đến N  hay không Nếu N không chia hết cho số nào khoảng từ đến N  thì N là số nguyên tố, ngược lại N chia hết cho bất kì số nào khoảng từ đến N  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 thông báo N không phải là số tự nhiên, chuyển đến bước Bước 3: Nếu N > 0: 3.1 i2; 3.2 Trong N mod i <> 0, ii+1; 3.3 Nếu i = N thì thông báo N là số nguyên tố, 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 : Bước 1: Nhập số tự nhiên N từ bàn phím Bước 2: Nếu N thông báo N không phải là số tự nhiên, chuyển đến bước Bước 3: Nếu N > 0: 3.1 i2; 3.2 Trong N mod i <> 0, ii+1; 3.3 Nếu i = N thì thông báo N là số nguyên tố, 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) 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 begin If n mod <>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 Trường THCS LÊ QUÝ ĐÔN Giáo án tin - ?đọc chương trình SGK, đối chiếu việc sử dụng câu lệnh để mô tả thuật toán trên đây ? có thiết phải kiểm tra các ước từ đến n không ? HS : trả lời GV : gợi ý HS để tìm cần kiểm tra đến Trunc(n/2) Bài2 - BTVN ? xác định Input và Output 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âu lệnh lặp while 5.Hướng dẫn nhà - Ôn tập lại kiến thức đã học TRẦN THỊ THẢO Năm 2010 - 2011 Lop8.net