- Có ph¸p khai b¸o biÕn trong Pascal: Var danh s¸ch biÕn: kiÓu d÷ liÖu; - Có ph¸p lÖnh g¸n trong Pascal: biÕn:=biÓu thøc; - Lệnh real danh sách biến hay readlndanh sách biến, trong đó da[r]
(1)TiÕt + 10 Bµi thùc hµnh 2: S: 9/10/2008 viết chương trình để tính toán G:8A: 10/10 8B: 11/10 I- Mục tiêu cần đạt KiÕn thøc: - BiÕt ®îc kiÓu d÷ liÖu kh¸c th× ®îc xö lÝ kh¸c - HiÓu phÐp to¸n div, mod - Hiểu thêm các lệnh in liệu màn hình và biết các lệnh tạm ngừng chương tr×nh Kü n¨ng: - ChuyÓn ®îc biÓu thøc to¸n häc sang biÓu diÔn Pascal Thái độ: - Có thái độ học tập nghiêm túc II- ChuÈn bÞ: HS: Ôn lại kiến thức đã học bài trước - Đọc trước bài thực hành 2: GV: C¸c bµi tËp cho hs thùc hµnh - Máy tính để hs thực hành III- Hoạt động dạy - học Hoạt động thầy và trò Hoạt động 1: Kiểm tra bài cũ HS1: Lµm bµi tËp ý a, b (sgk – 27) a c a) b d b)ax bx c HS2: Lµm bµi tËp ý c, d (sgk – 27) a c) (b 2) x d )(a b)(1 c)3 Néi dung Bµi tËp 4: (sgk – 27) Viết các biểu thức toán đây các kí hiÖu Pascal: a) (a/b) + (c/d) b) a*x*x + b*x +c c)(1/x) – (a/5*(b+ 2)) d)(a * a + b)*(1 + c)* (1 + c)* (1 + c) Hoạt động 2: Thực hành trên máy tính Bài tËp 1: Luyện gõ các biểu thức số học môi trường Pascal a)Viết các biểu thức sau dạng biểu thức Pascal (làm trên giấy) a )15 30 10 18 b) 1 1 10 c) 3 10 3 22 d) 4 3 Lop8.net (2) b Khởi động Pascal và gõ chương trình sau để tính các biểu thức trên Begin 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+6) =‘ , (10+2)*(10+2)/(3+6)); readln; readln; End c 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 nhận trên màn hình Bài tËp 2: Tìm hiểu các phép chia lấy phần nguyên, chia lấy phần dư với số nguyên Sử dụng các câu lệnh tạm ngừng chương trình - Mở tệp và gâ chương tr×nh sau: Uses crt; Begin clrscr; writeln (’16/3 = ‘ , 16/3); writeln (’16 div = ‘ , 16 div 3); writeln (’16 mod = ‘ , 16 mod 3); writeln (’16 mod = ‘ , 16 - (16 div 3)*3); writeln (’16 div = ‘ , (16-(16 mod 3))/3); End Bµi tËp 3: Mở tệp CT2.pas và sửa dòng lệnh cuối (trước từ khóa end) bên Sau đó dịch, chạy lại chương trình xem kết writeln (’15*4 – 30 + 12 =‘ , 15*4-30+12 : : 2); writeln (‘(10+5)/(3+1)-18/(5+1) =‘ , (10+5)/(3+1)-18/(5+1) :4 : 2); writeln (‘(10+2)*(10+2)/(3+6) =‘ , (10+2)*(10+2)/(3+6) : : 2); Hoạt động 3: Củng cố - Hướng dẫn nhà - Các kí hiệu các phép toán số học Pascal là: +, -, *, /, mod Div - Lệnh tạm dừng chương trình: + Delay(x): tạm ngừng chương trình x phần nghìn giây, sau đó chạy tiếp + read readln tạm ngừng chương trình nhấn phím enter * Câu lệnh writeln(<giá trị thực) : n : m) dùng để điều khiển cách in số thực trên màn hình Trong đó giá trị thực là số hay biểu thức số thực và m, n là các số tự nhiên.n quy định độ rộng in số, m là số chữ số thập phân Lưu ý các kết in màn hình thẳng lề phải Lop8.net (3) TiÕt 13 + 14 Bµi thùc hµnh 3: S: khai b¸o vµ sö dông biÕn G:8A: 8B: I- Mục tiêu cần đạt KiÕn thøc: - Thực khai báo đúng cú pháp, lựa chọn kiểu liệu phù hợp cho biÕn - Kết hợp lệnh write, writeln với read, readln để thực việc nhập liÖu cho biÕn tõ bµn phÝm - HiÓu vÒ c¸c kiÓu d÷ liÖu chuÈn: KiÓu sè nguyªn, kiÓu sè thùc - HiÓu c¸ch khai b¸o vµ sö dông biÕn - Hiểu và thực việc tráo đổi giái trị biến Kü n¨ng: - Sö dông ®îc lÖnh g¸n gi¸ trÞ cho biÕn - Hiểu và thực việc tráo đổi giái trị biến Thái độ: - Có thái độ học tập nghiêm túc II- ChuÈn bÞ: HS: Ôn lại kiến thức đã học bài trước - Đọc trước bài thực hành 3: GV: C¸c bµi tËp cho hs thùc hµnh - Máy tính để hs thực hành III- Hoạt động dạy - học Hoạt động thầy và trò Hoạt động 1: Kiểm tra bài cũ HS1: Lµm bµi tËp (sgk – 33) Trong Pascal khai báo nào sau đây đúng: a) Var tb:=real; b) 4hs: integer; c) const x:real; d) Var R = 30; HS2: Lµm bµi tËp (sgk – 33) Hãy liệt kê các lỗi có chương trình đây và sửa lại chô đúng: Var a, b:= integer; const c:=3; Begin a:=200 b:= a/c; write(b); readln end Néi dung Bµi tËp 4: (sgk – 33) Trong Pascal khai báo nào sau đây đúng: a) Var tb:=real; b) 4hs: integer; Bµi 5: Lçi a, b:= integer; const c:=3; a:=200 readln Hoạt động 2: Thực hành trên máy tính Bài tập 1: Viết chương trình Pascal có khai báo và sử dụng biến: Lop8.net Söa a, b: integer; const c=3; a:=200; readln; (4) Bµi to¸n: Mét cöa hµng cung cÊp dÞch vô b¸n hµng to¸n t¹i nhµ Kh¸ch hµng cần đăng kí số lượng mặt hàng cần mua Nhân viên cửa hàng trả hàng và nhận tiền to¸n t¹i nhµ kh¸ch hµng Ngoµi gi¸ trÞ b¸n hµng ho¸ kh¸ch hµng cßn ph¶i tr¶ thªm phí dịch vụ Hãy viết chương trình Pascal để tính tiền toán trường hợp khách hµng chØ mua mét mÆt hµng nhÊt * Chó ý: C«ng thøc tÝnh: Tiền toán = Đơn giá * Số lượng + Phí dịch vụ a) Khởi động Pascal, gõ chương trình sau: Bµi gi¶i: Program TINH_TIEN; Uses crt; Var soluong: integer; dongia, thanhtien: real; thongbao: string; Const phi = 10000; begin clrscr; thongbao:=’Tong so tien phai tinh toan =’; write (‘Don gia =’); Readln(dongia); write(‘soluong=’); Readln(soluong); thanhtien:= soluong*dongia + phi; writeln(‘thongbao, thanhtien:10:2); Readln; End b) Lưu chương trình với tên TINHTIEN.PAS c) Chạy chương trình với các liệu Bài tập 2: Thử viết chương trình nhập các số nguyên x và y, in giá trị x và y màn hình Sau đó hoán đỏi các giá trị x và y in màn hình giá trị x và y Bµi gi¶i: Program HOAN_DOI; uses crt; Var x,y,z: integer; Begin clrscr; read(x,y); writeln(x,’ ‘,y); z:= x; x:= y; y:=z; writeln(x,’ ‘,y); readln; end Lop8.net (5) Hoạt động 3: Củng cố - Hướng dẫn nhà - Có ph¸p khai b¸o biÕn Pascal: Var (danh s¸ch biÕn): (kiÓu d÷ liÖu); - Có ph¸p lÖnh g¸n Pascal: (biÕn):=(biÓu thøc); - Lệnh real (danh sách biến) hay readln(danh sách biến), đó danh sách biến là tên các biến đã khai báo, sử dụng để nhập liệu từ bàn phím Sau nhập liệu cần nhấn phím Enter để xác nhận Nội dung chú thích nằm cặp dấu { và } bị bỏ qua dịch chương trình Các chú thích dùng để làm cho chương trình dễ đọc, dễ hiểu Ngoài có thể dùng cặp các dấu * và * để tạo chú thích Lop8.net (6)