Giáo án Tin học 11 Giáo viên: Đỗ Vũ Hiệp Tun: 8 Tit: 8 --------------------------------------------------------------------------------------------------------------------------- Ngy son: 19/10/2007 Ngy dy: Lp: Chng II: Chng trỡnh n gin Bi tp v thc hnh 1 I. Mc ớch, yờu cu: 1. Kin thc: Bit vit mt chng trỡnh Pascal hon chnh n gin; Bit mt s cụng c ca mụi trng Turbo Pascal; 2. K nng S dng mt s dch v ch yu ca Pascal trong son tho, lu, dch v thc hin chng trỡnh; Chnh sa chng trỡnh da vo thụng bỏo li ca chng trỡnh dch. 3. Thỏi : Cú ý thc c gng hc tp vt qua nhng lỳng tỳng, khú khn giai on bt u hc lp trỡnh; To s ham mun gii cỏc bi tp bng lp trỡnh, thy c li ớch ca lp trỡnh phc v tớnh toỏn v gii c mt s bi toỏn liờn quan. II. Phng phỏp - phng tin dy hc: Thc hnh, thc hin minh ha trc quan, quan sỏt v hng dn; Giỏo viờn chun b: Giỏo ỏn, phũng mỏy ni mng LAN, ci t Turbo Pascal; Netop school; Hc sinh chun b: c trc ni dung bi, sỏch giỏo khoa, v ghi. III. NI dung dy hc: Ni dung bi ging Hot ng ca thy Hot ng ca trũ n nh lp; Ghi s u bi. Cho thy. Cỏn b lp bỏo s s. a) Gừ chng trỡnh Program Giai_PTB2; Uses crt; Var a, b, c, D: real; x1, x2: real; Begin Clrscr; Write(a, b, c: ); Readln(a,b,c); D := b*b 4*a*c; x1 := (-b sqrt(D))/(2*a); x2 := -b/a x1; Write(x1= ,x1:6:2,x2= ,x2:6:2); Readln End. b) Nhn phớm F2 v lu chng trỡnh vi tờn PTB2.PAS lờn a Quan sỏt, hng dn HS khi ng mỏy tớnh. Thc hin minh ha thao tỏc khi ng Turbo Pascal. Quan sỏt, hng dn HS khi ng TP. Yờu cu HS thc hin gừ chng trỡnh theo mu trang 34_sgk. Quan sỏt v hng dn. Dựng Netop school, thc hin minh ha thao tỏc lu chng trỡnh. ng dn:\tờn_bi.pas Khi ng mỏy tớnh. Chỳ ý, quan sỏt, lng nghe. Khi ng TP. Gừ chng trỡnh. Chỳ ý, quan sỏt, lng nghe. Gi¸o ¸n Tin häc 11 Gi¸o viªn: §ç Vò HiÖp Nội dung bài giảng Hoạt động của thầy Hoạt động của trò c) Nhấn tổ hợp phím Alt+F9 để dịch và sửa lỗi cú pháp; d) Nhấn tổ hợp phím Ctrl+F9 để thực hiện chương . Nhập các giá trị 1; -3 và 2. Quan sát kết quả hiển thị trên màn hình: x1 = 1.00 x2 = 2.00 e) Nhấn tổ hợp phím Ctrl+F9 rồi nhập các giá trị 1; 0 và -2. Quan sát kết quả hiển thị trên màn hình: x1 = -1.41 x2 = 1.41 f) Sửa lại chương trình trên sao cho không dùng biến trung gian D. Thực hiện chương trình đã sửa với các bộ dữ liệu trên; g) Sửa lại chương trình nhận được ở câu c) bằng cách thay đổi công thức tính x2 (có 2 cách tính x2); h) Thực hiện chương trình đã sửa với bộ dữ liệu 1; -5; 6. Quan sát kết quả hiển thị trên màn hình: x1 = 2.00 x2 = 3.00 i) Thực hiện chương trình với bộ dữ liệu 1; 1; 1 và quan sát kết quả trên màn hình. Lưu chương trình hiện thời bằng phím F2, thoát khỏi TP bằng tổ hợp phím Alt+X Tạo lỗi trên chương trình mẫu, thực hiện minh họa ấn tổ hợp Alt+F9 rồi hướng dẫn cách nhận biết thông báo lỗi và sửa. Quan sát và hướng dẫn. Thực hiện minh họa và hướng dẫn các bước d) và e) Nêu 2 cách nhập giá trị cho các biến? Yêu cầu HS suy nghĩ, thảo luận và sửa chương trình theo yêu cầu ở bước f) sau đó thực hiện chương trình đã sửa với các bộ dữ liệu trên. Quan sát và hướng dẫn HS thực hiện. Với bộ dữ liệu 1; 1; 1 thì phương trình vô nghiệm, muốn thực hiện được ta phải dùng cấu trúc rẽ nhánh của ngôn ngữ LT để viết lại chương trình này, đó là nội dung các em sẽ học ở chương III. HD học sinh lưu lại chương trình đã sửa,thoát khỏi TP và tắt máy. Chú ý, quan sát, lắng nghe. Đọc sách và thực hiện các bước b) và c). Chú ý, quan sát, lắng nghe. Trả lời: Các giá trị cách nhau ít nhất 1 dấu cách hoặc 1 lần ấn phím Enter. Đọc sách và thực hiện các bước d) và e). Lắng nghe, đọc sách và thực hiện các bước f); g); h); i). Yêu cầu GV hướng dẫn khi cần. Chú ý, lắng nghe. Ấn F2, thoát khỏi TP và tắt máy. IV. Củng cố: Hãy kể một số chức năng và phím tắt trong Turbo Pascal mà các em đã học được sau bài thực hành này? V. Dặn dò: Làm các câu hỏi và bài tập 1 → 10 trang 35, 36 _ sách giáo khoa. Tiết sau làm và chữa bài tập. VI. Rút kinh nghiệm: . . Gi¸o ¸n Tin häc 11 Gi¸o viªn: §ç Vò HiÖp Tuần: 9 Tiết: 10 --------------------------------------------------------------------------------------------------------------------------- Ngày soạn: 30/10/2007 Ngày dạy: Lớp: Chương II: Chương trình đơn giản Bài tập I. Mục đích, yêu cầu: 1. Kiến thức: Củng cố nội dung thực hành ở tiết 8; Biết sử dụng các thủ tục chuẩn vào/ra; Biết xác định Input và Output. 2. Kỹ năng Biểu diễn biểu thức toán học trong ngôn ngữ lập trình Pascal; Nhận biết và sửa lỗi chương chương trình. 3. Thái độ: Tạo sự ham muốn giải các bài tập bằng lập trình, thấy được lợi ích của lập trình phục vụ tính toán và giải được một số bài toán liên quan. II. Phương pháp - phương tiện dạy học: Luyện tập, củng cố, hệ thống lại kiến thức cũ. Thảo luận nhóm, chia sẻ bài làm. Đặt câu hỏi gợi mở, vấn đáp. Giáo viên chuẩn bị: Giáo án, chương trình mẫu, hình vẽ trên bảng phụ; Học sinh chuẩn bị: Làm các bài tập 1 → 10 trang 35, 36 – sách giáo khoa, bảng phụ. III. NộI dung dạy – học: Nội dung bài giảng Hoạt động của thầy Hoạt động của trò Ổn định lớp; Ghi sổ đầu bài. Chào thầy. Cán bộ lớp báo sĩ số. HD trả lời câu hỏi 1 → 5 Câu 1: Sự khác nhau giữa hằng có đặt tên và biến là: giá trị trong ô nhớ trên RAM của hằng có đặt tên là không đổi, còn giá trị trong ô nhớ của biến thì có thể thay đổi được tại từng thời điểm thực hiện chương trình. Câu 2: Khai báo biến nhằm mục đích: - Xác định kiểu của biến. Trình dịch sẽ biết cách tổ chức ô nhớ chứa giá trị của biến; - Đưa tên biến vào danh sách các đối tượng được chương trình quản lý; - Trình dịch biết cách truy cập giá trị của biến và áp dụng thao tác thích hợp cho biến. Câu 3: Biến chỉ nhận giá trị nguyên trong phạm vi từ 10 đến 25532 có thể khai báo bằng các kiểu dữ liệu: integer; word; longint và real. Nhưng khai báo kiểu integer hoặc word là tốt nhất. Câu 4: Khai báo đúng: b) và d). Nhưng khai báo ở câu d) tốt hơn. Câu 5: Khai báo đúng: b), c), d). Khai Gọi HS đứng tại chỗ trả lời câu hỏi 1. Nhận xét, chốt lại ý chính, cho điểm. Gọi HS trả lời câu hỏi 2. Nhận xét, chốt lại ý chính, cho điểm. Gọi HS trả lời câu hỏi 3. Nhận xét, chốt lại ý chính, cho điểm. Gọi HS trả lời câu hỏi 4, 5. Nhận xét, chốt lại ý chính, cho điểm. Lắng nghe, trả lời. Lắng nghe, sửa bài trong vở bài tập. Lắng nghe, trả lời. Lắng nghe, sửa bài trong vở bài tập. Lắng nghe, trả lời. Lắng nghe, sửa bài trong vở bài tập. Lắng nghe, trả lời. Lắng nghe, sửa bài trong vở bài tập. Gi¸o ¸n Tin häc 11 Gi¸o viªn: §ç Vò HiÖp Nội dung bài giảng Hoạt động của thầy Hoạt động của trò báo tốn ít bộ nhớ nhất là c) Câu 6: (1+z)*((x+y/z)/(a-1/(1+x*x*x))) Câu 7: a) 2a b b) 2 abc c) b ac d) 2 b a b+ Câu 8: Hình 2. a) (y<=1) and (y>=abs(x)) Hoặc: ((y<1)or(y=1)) and ((y>abs(x))or(y=abs(x))) Hình 2. b) (y<=1) and (y>=-1) and (x<=1) and (x>=-1) Hoặc: ((y<1) or (y=1)) and ((y>-1)or(y=-1)) and ((x<1) or (x=1)) and ((x>-1)or(x=-1)) Gọi lên bảng làm câu 6. Gọi HS nhận xét, sửa bài, cho điểm. Yêu cầu HS thảo luận nhóm, làm bài 7 và bài 8 trên bảng phụ. Gọi HS nhận xét bài từng nhóm. Nhận xét, chốt lại bài làm đúng, cho điểm từng nhóm. Lên bảng làm bài. Quan sát, nhận xét. Thảo luận, làm bài. Trình bày bài làm. Nhận xét. Lắng nghe, sửa bài trong vở bài tập. Câu 9: HD: Diện tích phần gạch bằng ½ diện tích hình tròn tâm O(0,0) bán kính R=a. Lưu ý số π lắng một hằng trong Pascal và kí hiệu là Pi có giá trị là 3.1415926536 Chương trình: Const pi = 3.1415926536; Var a: real; Begin Write(‘Nhap gia tri a (a>0): ’); Readln(a); Write(‘Dien tich la: ’,pi*a*a/2:20:4); Readln End. Hướng dẫn, nêu câu hỏi gợi mở vấn đáp để đưa ra cách giải bài 9. Treo bảng hình 3 trang 36_sgk. Diện tích phần gạch chéo bằng bao nhiêu so với diện tích hình tròn (O, R=a)? Nêu biểu thức tính diện tích hình tròn (O, R=a)? Chốt lại biểu thức toán học. Biểu diễn biểu thức trên trong ngôn ngữ Pascal? Chốt lại đáp án đúng. Từ đó, hãy viết chương trình giải bài toán này ra giấy nháp. Quan sát và hướng dẫn HS viết chương trình. Gọi HS lên bảng viết chương trình Nhận xét, sửa bài, cho điểm. Chú ý lắng nghe, ghi hướng dẫn. Lắng nghe, quan sát hình, trả lời: 1/2 Trả lời: 2 2 R π hoặc 2 2 a π biểu diễn trong Pascal là: pi*a*a/2 Viết chương trình trên giấy nháp. Lên bảng viết chương trình. Quan sát, lắng nghe, ghi bài. Câu 10: Const g = 9.8; Var v, h: real; Begin Write(‘Nhap do cao h= ’); Readln(h); v := sqrt(2*g*h); Write(‘Van toc cua vat khi cham dat la: v = ’,v:10:2,’ m/s’); Readln End. Yêu cầu HS thảo luận nhóm, làm bài 7 và bài 8 trên bảng phụ. Gọi HS nhận xét bài từng nhóm. Nhận xét, chốt lại bài làm đúng, cho điểm từng nhóm. Thảo luận, làm bài. Trình bày bài làm. Nhận xét. Lắng nghe, sửa bài trong vở bài tập. IV. Củng cố: Giải đáp thắc mắc những nội dung chưa hiểu trong các bài tập trên dựa vào câu hỏi của học sinh? V. Dặn dò: Về nhà làm lại các bài tập trên; Xem kỹ nội dung chương trình của bài 9 và bài 10; Tiết sau thực hành: soạn thảo, dịch, thực hiện và hiệu chỉnh các chương trình trên. VI. Rút kinh nghiệm: . . Giáo án Tin học 11 Giáo viên: Đỗ Vũ Hiệp Tun: 10 Tit: 9 --------------------------------------------------------------------------------------------------------------------------- Ngy son: 5/11/2007 Ngy dy: Lp: Chng II: Chng trỡnh n gin Bi tp v thc hnh 1 I. Mc ớch, yờu cu: 1. Kin thc: Bit vit mt chng trỡnh Pascal hon chnh n gin; Bit mt s cụng c ca mụi trng Turbo Pascal; Bit s dng cỏc th tc chun vo/ra; 2. K nng S dng mt s dch v ch yu ca Pascal trong son tho, lu, dch v thc hin chng trỡnh; Chnh sa chng trỡnh da vo thụng bỏo li ca chng trỡnh dch. 3. Thỏi : To s ham mun gii cỏc bi tp bng lp trỡnh, thy c li ớch ca lp trỡnh phc v tớnh toỏn v gii c mt s bi toỏn liờn quan. II. Phng phỏp - phng tin dy hc: Thc hnh, thc hin minh ha trc quan, quan sỏt v hng dn; Giỏo viờn chun b: Giỏo ỏn, phũng mỏy ni mng LAN, ci t Turbo Pascal; Netop school; Hc sinh chun b: Xem li ni dung bi tp 9, 10 trang 36 sỏch giỏo khoa. III. NI dung dy hc: Ni dung bi ging Hot ng ca thy Hot ng ca trũ n nh lp; Ghi s u bi. Cho thy. Cỏn b lp bỏo s s. Bi 9/36_sgk Chng trỡnh: Const pi = 3.1415926536; Var a: real; Begin Write(Nhap gia tri a (a>0): ); Readln(a); Write(Dien tich la: ,pi*a*a/2:20:4); Readln End. Quan sỏt, hng dn HS khi ng mỏy tớnh. Gi HS lờn bng vit li chng trỡnh gii bi 9/36_sgk. Nhn xột, cht li chng trỡnh. QS v hng dn hc sinh nhp chng trỡnh, sa li, chy th chng trỡnh. Khi ng mỏy tớnh. Khi ng TP. Lờn bng vit chng trỡnh. Nhp CT, chnh sa, chy th v lu chng trỡnh. Bi 10/36_sgk Const g = 9.8; Var v, h: real; Begin Write(Nhap do cao h= ); Readln(h); v := sqrt(2*g*h); Gi HS lờn bng vit chng trỡnh gii bi 10/36_sgk. Nhn xột, cht li chng trỡnh. QS v hng dn hc sinh nhp chng trỡnh, sa li, chy th Lờn bng vit chng trỡnh. Nhp CT, chnh sa, chy th v lu Gi¸o ¸n Tin häc 11 Gi¸o viªn: §ç Vò HiÖp Nội dung bài giảng Hoạt động của thầy Hoạt động của trò Write(‘Van toc cua vat khi cham dat la: v = ’,v:10:2,’ m/s’); Readln End. chương trình. chương trình. Bài tập làm thêm Viết chương trình nhập vào độ dài ba cạnh của một tam giác. Tính và xuất ra chu vi, diện tích của tam giác đó? Nêu bài toán, hướng dẫn HS viết chương trình, sửa lỗi, chạy thử và lưu chương trình. Gọi máy bất kỳ trình bày về chương trình của mình. Suy nghĩ, thảo luận viết chương trình, sửa lỗi, chạy thử và lưu chương trình. Giới thiệu chương trình. IV. Củng cố: Một số chức năng và phím tắt trong Turbo Pascal. V. Dặn dò: Chuẩn bị bài mới: §9. Cấu trúc rẽ nhánh. VI. Rút kinh nghiệm: . . . 9 Tiết: 10 --------------------------------------------------------------------------------------------------------------------------- Ngày soạn: 30 /10/ 2007. thực hành này? V. Dặn dò: Làm các câu hỏi và bài tập 1 → 10 trang 35, 36 _ sách giáo khoa. Tiết sau làm và chữa bài tập. VI. Rút kinh nghiệm: .