Giáo án Tin học 8 - Tiết 9-10: Bài thực hành 2: Viết chương trình để tính toán - Đoàn Thị Ánh Nguyệt

<span class='text_page_counter'>(1)</span>Người soạn: Đoàn Thị ánh Nguyệt. Gi¸o ¸n: Tin häc 8. TuÇn 5 Tiết 9+10: bài thực hành 2: viết chương trình để tính toán I. Mục đích, yêu cầu: - KiÕn thøc: - ChuyÓn ®­îc biÓu thøc to¸n häc sang biÓu thøc trong Pascal - BiÕt ®­îc kiÓu d÷ liÖu kh¸c nhau th× ®­¬c xö lÝ kh¸c nhau - HiÓu phÐp to¸n div, mod - Hiểu thêm các lệnh in ra màn hình, tạm ngừng chương trình Kỹ năng: Luyện tập soạn thảo chỉnh sửa chương trình, chạy và xem kết quả hoạt động của chương trình Thái độ: Giáo dục ý thức bảo vệ của công II/ ChuÈn bÞ cña häc sinh vµ gi¸o viªn: GV: Một số chương trình mẫu HS: Nghiên cứu trước bài III/ TiÕn tr×nh d¹y häc: 1. KiÓm tra bµi cò: ? Hãy nêu các kiểu dữ liệu nào đã được học? 2.Bµi míi: Hoạt động của GV-HS Néi dung Hoạt động 1: . Bài tập1 GV: §­a néi dung yªu cÇu Bµi 1. LuyÖn tËp gâ c¸c biÓu thøc sè häc trong cña bµi thùc hµnh lªn mµn chương trình Pascal. chiÕu: a) T×m hiÓu c¸ch viÕt c¸c phÐp to¸n sè häc víi c¸c Bµi 1. LuyÖn tËp gâ c¸c số được cho trong bảng cho dưới đây: biÓu thøc sè häc PhÐp to¸n KÝ hiÖu trong VÝ dô trong chương trình Pascal Pascal. - Yªu cÇu HS quan s¸t Céng + 5+7 b¶ng c¸c phÐp to¸n vµ vÝ Trõ 15-9 dô.. - H·y viÕt c¸c biÓu thøc toán học sau đây dưới d¹ng biÓu thøc trong Pascal:. Nh©n. *. 5*6. Chia. /. 30/2. mod. 30 mod 4. Chia phÇn d­. 1. Trường THCS Sơn Hoá Lop8.net.

<span class='text_page_counter'>(2)</span> Người soạn: Đoàn Thị ánh Nguyệt. Gi¸o ¸n: Tin häc 8 L­u ý: ChØ ®­îc dïng dÊu ngoặc đơn để nhóm các phÐp to¸n.. Chia phÇn nguyªn. div. 30 div 4. Hãy viết các biểu thức toán học sau đây dưới dạng biÓu thøc trong Pascal: a) 15  4  30  12 ; ? Khởi động Turbo Pascal và gõ chương trình sau để tÝnh c¸c biÓu thøc trªn:. b). 10  5 18  ; 3 1 5 1. c). (10  2) 2 ; (3  1). (10  2)  24 L­u ý: C¸c biÓu thøc d) . (3  1) Pascal được đặt trong câu lệnh writeln để in ra kết b) Khởi động Turbo Pascal và gõ chương trình sau qu¶. Em sÏ cã c¸ch viÕt để tính các biểu thức trên: kh¸c sau khi lµm quen víi progam Tinh_cac_bieu_thuc; kh¸i niÖm biÕn ë Bµi 5. begin 2. writeln('15*4-30+12 =',15*4-30+12); writeln('(10+5)/(3+1)+18/(5+1) =',(10+5)/(3+1)+18/(5+1)); writeln('(10+2)*(10+2)/(3+1)=',(10+2)*(10+2)/(3+ 1)); write('((10+2)*(10+2)-24)/(3+1)=',((10+2)*(10+2)24)/(3+1)); readln end. Lưu chương trình với tên CT2.pas. Dịch, chạy chương trình và kiểm tra kết quả nhận được trên màn h×nh.. Hoạt động 2: . Bài tập2 Bµi 2. T×m hiÓu c¸c phÐp Bµi 2. T×m hiÓu c¸c phÐp chia lÊy phÇn nguyªn vµ chia lÊy phÇn nguyªn vµ phÐp chia lÊy phÇn d­ víi sè nguyªn. Sö dông phÐp chia lÊy phÇn d­ víi các câu lệnh tạm ngừng chương trình. số nguyên. Sử dụng các a) Mở tệp mới và gõ chương trình sau đây: c©u lÖnh t¹m ngõng 2. Trường THCS Sơn Hoá Lop8.net.

<span class='text_page_counter'>(3)</span> Người soạn: Đoàn Thị ánh Nguyệt. Gi¸o ¸n: Tin häc 8 chương trình.. begin writeln('16/3 =', 16/3); writeln('16 div 3 =',16 div 3); writeln('16 mod 3 =',16 mod 3); end. b). Dịch và chạy chương trình. Quan sát các kết qu¶ nhËn ®­îc vµ cho nhËn xÐt vÒ c¸c kÕt qu¶ đó. c) Thêm các câu lệnh thích hợp để có chương tr×nh sau: uses crt; begin clrscr; writeln('16/3 =', 16/3); delay(5000); writeln('16 div 3 =',16 div 3); delay(5000); writeln('16 delay(5000);. mod. 3. =',16. mod. 3);. end. Lưu ý: Câu lệnh uses crt; được dùng để khai báo th­ viÖn crt, cßn lÖnh clrscr; sÏ xãa mµn h×nh. C©u lÖnh clrscr; chØ sö dông ®­îc sau khi khai b¸o th­ viÖn crt. d) Dịch và chạy chương trình. Quan sát chương tr×nh t¹m dõng 5 gi©y sau khi in tõng kÕt qu¶ ra mµn h×nh. e) Thêm câu lệnh readln vào chương trình (trước từ khoá end.). Dịch và chạy lại chương trình. Quan sát kết quả hoạt động của chương trình. Nhấn phím Enter để tiếp tục.. Hoạt động 3: . Bài tập3 Bµi 3. T×m hiÓu thªm vÒ Bµi 3. T×m hiÓu thªm vÒ c¸ch in d÷ liÖu ra mµn c¸ch in d÷ liÖu ra mµn h×nh. 3. Trường THCS Sơn Hoá Lop8.net.

<span class='text_page_counter'>(4)</span> Gi¸o ¸n: Tin häc 8. Người soạn: Đoàn Thị ánh Nguyệt. h×nh. Mở lại tệp chương trình CT2.pas và sửa ba lệnh Mở lại tệp chương trình cuối (trước từ khoá end.) thành: CT2.pas vµ söa ba lÖnh writeln((10+5)/(3+1)+18/(5+1):4:2); cuối (trước từ khoá end.) writeln((10+2)*(10+2)/(3+1):4:2); thµnh: writeln(((10+2)*(10+2)-24)/(3+1):4:2); Dịch và chạy lại chương trình. Quan sát kết quả trên mµn h×nh vµ rót ra nhËn xÐt cña em. 3. Củng cố:- GV quan sát một số hs hoạt động trên máy cá nhân. - GV söa ch÷a, uèn n¾n nh÷ng sai sãt cña HS;- GV tæng kÕt kiÕn thøc: Tæng kÕt 1.. KÝ hiÖu cña c¸c phÐp to¸n sè häc trong Pascal: +, -, *, /, mod, vµ div.. 2. Câu lệnh clrscr làm sạch màn hình kết quả và chỉ sử dụng được nếu khi đã khai báo thư viện crt. Thư viện crt chứa các lệnh viết sẵn để thao tác với màn hình và bàn phím. 3.. Các lệnh làm tạm ngừng chương trình:.  delay(x) tạm ngừng chương trình trong vòng x phần nghìn giây, sau đó tự động tiếp tôc ch¹y.  read hoặc readln tạm ngừng chương trình cho đến khi người dùng nhấn phím Enter. 4. Trong Pascal em cã thÓ ®iÒu khiÓn c¸ch ghi c¸c sè thùc trªn mµn h×nh b»ng c©u lÖnh writeln(<gi¸ trÞ thùc>:n:m); trong đó giá trị thực là số hay biểu thức số thực và n, m là các số tự nhiên. n quy định độ réng in sè, cßn m lµ sè ch÷ sè thËp ph©n. L­u ý r»ng c¸c kÕt qu¶ in ra mµn h×nh ®­îc c¨n th¼ng lÒ tr¸i. 4. Hướng dẫn học ở nhà: - Xem l¹i néi dung bµi thùc hµnh. - Häc l¹i phÇn tæng kÕt bµi. Tæ chuyªn m«n ký duyÖt ngµy / / 2009 TTCM NguyÔn ThÞ An 4. Trường THCS Sơn Hoá Lop8.net.

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