KiÕn thøc: - Làm quen một chương trình Pascal đơn giản - Làm quen với các dịch vụ chủ yếu của Turbo Pascal trong việc soạn thảo, lưu chương trình, dịch chương trình và thực hiện chương t[r]
(1) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 TiÕt PPCT: Bµi tËp vµ thùc hµnh Ngµy so¹n: 20/09/2007 Líp d¹y: A1, A2, A3, A4, A5 Ngµy ®¨ng ký gi¸o ¸n: Người duyệt giáo án (TTCM duyệt, BGH duyệt): I Môc tiªu: KiÕn thøc: - Làm quen chương trình Pascal đơn giản - Làm quen với các dịch vụ chủ yếu Turbo Pascal việc soạn thảo, lưu chương trình, dịch chương trình và thực chương trình KÜ n¨ng: - Soạn thảo chương trình, lưu lên đĩa, dịch lỗi cú pháp, thực và tìm lỗi thuật toán, hiệu chỉnh chương trình - Bước đầu biết viết, soạn thảo chương trình đơn giản trên ngôn ngữ Turbo Pascal Thái độ: Tự giác, tích cực và chủ động thực hành II ChuÈn bÞ: Gi¸o viªn: - ChuÈn bÞ gi¸o ¸n gi¶ng d¹y - Phòng máy, máy chiếu đa năng, cài đặt đầy đủ Turbo Pascal Häc sinh: S¸ch gi¸o khoa, bµi tËp III Tæ chøc d¹y vµ häc: Hoạt động 1: Tìm hiểu chương trình hoàn chỉnh a Môc tiªu; - Học sinh biết và soạn chương trình hoàn chỉnh - Biết lưu, biên dịch và thực chương trình - BiÕt t×m, söa lçi b Néi dung: Cho chương trình sau: Program Giai_PTB2; Uses crt; Var a, b, c, D, x1, x2: real; Begin Clrscr; Write (‘Nhap a, b, c: ’); Readln(a,b,c); D:=b*b-4*a*c; GV: §ç ThÞ Thu HiÒn Lop11.com (2) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 X1:= (-b-sqrt(D))/(2*a); X2:= (-b+sqrt(D))/(2*a); Write(‘X1= ’, x1:6:2, ‘X2= ’, x2:6:2); Readln End c Các bước tiến hành: Hoạt động giáo viên Hoạt động học sinh Chiếu chương trình lên bảng Yêu cầu HS thùc hiÖn c¸c néi dung sau: - Soạn chương trình vào máy - Lưu chương trình - DÞch, kiÓm tra lçi có ph¸p - Thực chương trình - NhËp d÷ liÖu: -3 Th«ng b¸o kÕt qu¶ - Trë vÒ mµn h×nh so¹n th¶o - Thực chương trình - NhËp d÷ liÖu Th«ng b¸o kÕt qu¶ H: V× cã lçi xuÊt hiÖn Sửa lại chương trình không dùng biến D Quan s¸t mµn h×nh Soạn thảo chương trình vào máy Ên F2 Alt_F9 Ctrl_F9 X1=1.00 X2=2.00 Enter Ctrl_F9 Th«ng b¸o lçi Do c¨n bËc cña mét sè ©m … Readln(a,b,c); X1:= (-b-sqrt(b*b-4*a*c))/(2*a); X2:= (-b+sqrt(b*b-4*a*c))/(2*a); Write(‘X1= ’, x1:6:2, ‘X2= ’, x2:6:2); IV Cñng cè Nhắc lại số chú ý soạn thảo chương trình Các thao tác: lưu chương trình, dịch lỗi cú pháp, thực chương trình GV: §ç ThÞ Thu HiÒn Lop11.com (3)