Đang tải... (xem toàn văn)
Hoạt động 1: Củng cố một số kiến thức đã học Trong Pascal có những kiểu dữ liệu cơ * Kiểu dữ liệu cơ bản : - Interger : Số nguyên bản nào.. Tuy nhiên, để chương trình dịch Turbo Pascal h[r]
(1)Gi¸o ¸n: Tin häc Người soạn: Đoàn Thị ánh Nguyệt TuÇn TiÕt 15: bµi tËp I/ Môc tiªu: Kiến thức: - Củng cố kiến thức kiểu liệu, các phép toán với kiểu liệu số, các phép so sánh và giao tiếp người và máy Kĩ năng: - Rèn luyện kĩ sử dụng các phép toán ngôn ngữ Pascal Thái độ: - HS nghiêm túc học tập và nghiên cứu bài học, giáo dục học sinh tính sáng tạo, tích cực học tập, lòng yêu thích môn II/ ChuÈn bÞ cña häc sinh vµ gi¸o viªn: Sách giáo khoa, máy tính điện tử III/ TiÕn tr×nh d¹y häc: 1.Bài cũ: Gv cho học sinh viết hai chương trình bài tập cho nhà Bài tập 1: Viết chương trình tính diện tích hình thang biết đáy lớn lần đáy bé , đường cao 2/3 đáy bé program tinh_dien_tich_hinh_thang; var daybe,daylon,chieucao,dientich:real; begin write(‘ doc vao gia tri cua day ba:’);readln(daybe); daylon:=2*daybe; chieucao:=2/3*daybe; dientich:=((daylon+daybe)*chieucao)/2; writeln(‘Dien tich hinh thang la: ‘,dientich:10:2); readln; end Bài tập 2:Viết chương trình tính giá trị biểu thức sau với a, b, c là các số nguyên đọc vào từ bàn phím: 4a 5b 13 2b program tinh_bieu_thuc; var a,b,c: integer; bthuc:real; begin write(‘ doc vao gia tri cua a:’);readln(a); write(‘ doc vao gia tri cua b:’);readln(b); write(‘ doc vao gia tri cua c:’);readln(c); bthuc:=((3+4*a)/(2*b))-5*b+13; writeln(‘Gia tri cua ((3+4’,a,’)/(2’,b,’))-5’,b,’+13 = ‘,bthuc:10:2); Trường THCS Sơn Hoá Lop8.net (2) Gi¸o ¸n: Tin häc Người soạn: Đoàn Thị ánh Nguyệt readln; end 2.Bµi míi: Hoạt động GV + HS Néi dung ghi b¶ng Hoạt động 1: Củng cố số kiến thức đã học Trong Pascal có kiểu liệu * Kiểu liệu : - Interger : Số nguyên nào - Real : Số thực - Char : Kí tự - String : Xâu kí tự ? Hãy nêu các phép toán * Các phép toán : - Cộng : + - Trừ : - Nhân : * - Chia : / - Chia lấy phần nguyên, phần dư : Div, mod Hoạt động 2: Vận dụng làm bài tập Bài 1: Dãy số 2010 có thể là liệu Bài 1: Dãy số 2010 có thể là liệu kiểu nào? kiểu nào? Dãy chữ số 2010 có thể là liệu kiểu liệu số nguyên, số thực kiểu xâu kí tự Tuy nhiên, để chương trình dịch Turbo Pascal hiểu 2010 là liệu kiểu xâu, chúng ta phải viết dãy số này cặp dấu nháy đơn (') var a: real; b: integer; c: string; begin writeln('2010'); writeln(2010); a:=2010; b:=2010; c:=‘2010’ end Bài Viết các biểu thức toán học sau Bài Viết các biểu thức toán học đây dạng biểu thức Pascal sau đây dạng biểu thức Pascal Trường THCS Sơn Hoá Lop8.net (3) Gi¸o ¸n: Tin häc a c ; b d b) ax bx c ; ax bx c ; a) x a Người soạn: Đoàn Thị ánh Nguyệt a) a/b+c/d; b) a*x*x+b*x+c ; a*x*x+b*x+c c) (b 2) ; c) 1/x-a/5*(b+2); d) (a b)(1 c)3 d)(a*a+b)*(1+c)*(1+c)*(1+c) Bµi 3: H·y liÖt kª c¸c lçi cã chương trình pascal đây và sửa lại cho đúng: Const Pi:=3.1416; Var cv, dt: interger r: real; Begin r=5.5 cv=2*pi*r; dt=pi*r*r; writeln(‘chu vi la:=cv’); writeln(‘dien tich la:=dt’); readln End Bµi 3: H·y liÖt kª c¸c lçi cã chương trình pascal đây và sửa lại cho đúng: - khai b¸o h»ng ph¶i dïng dÊu b»ng (=) thay cho dÊu g¸n (:=) - ThiÕu dÊu ; sau lÖnh khai b¸o biÕn cv vµ dt vµ sau c©u lÖnh g¸n ®Çu tiªn - ViÕt phÐp g¸n lµ dÊu := thay v× dÊu = - hai c©u lÖnh in kh«ng in gi¸ trÞ biÓu thøc mµn h×nh - lçi khai b¸o kiÓu d÷ liÖu kh«ng phï hîp cho biÕn cv vµ dt Chương trình sửa lại sau: Program CV_DT_hinh_trßn; Const Pi=3.1416; Var cv, dt: real; r: real; Begin r:=5.5; cv:=2*pi*r; dt:=pi*r*r; writeln(‘chu vi = ’,cv:10:2); writeln(‘dien tich = ’,dt:10:2); readln; End Cñng cè: - Về nhà ôn lại tất các kiến thức đã học, tiết sau kiểm tra tiết Trường THCS Sơn Hoá Lop8.net (4) Gi¸o ¸n: Tin häc Người soạn: Đoàn Thị ánh Nguyệt TiÕt 16: KiÓm tra tiÕt I/ Môc tiªu: Biết cách chuyển các biểu thức toán học sang các kí hiệu Pascal - Biết sử dụng các câu lệnh đơn giản để viết chương trình II Đề bài: A Phần trắc nghiệm: (2điểm) Câu Trong các tên sau đây, tên nào là hợp lệ ngôn ngữ Pascal: (0.5 điểm) a 8a b tamgiac c program d bai tap Câu Để chạy chương trình ta sử dụng tổ hợp nào: (0.5 điểm) a Ctrl – F9 b Alt – F9 c F9 d Ctrl – Shitf – F Câu Trong Pascal, khai báo nào sau đây là đúng? (0.5 điểm) a Var tb: real; b Type 4hs: integer; c const x: real; d Var R = 30; Câu Biểu thức toán học (a + b)(1 + c) biểu diễn Pascal nào ? a (a*a + b)(1+c)(1 + c)(1 + c) b (a.a + b)(1 + c)(1 + c)(1 + c) c (a*a + b)*(1 + c)*(1 + c)*(1 + c) d (a2 + b)(1 + c)3 B (Phần tự luận: điểm) Câu Viết các biểu thức toán sau đây dạng biểu thức Pascal (4 điểm) a 15(4 + 30 + 12) (10 x) 18 b 3 y 5 y c ax2 + bx +2c d (a+b)2.(d+e)3 Câu Viết chương trình tính tích số nguyên dương nhập từ bàn phím (4 điểm) III Đáp án A Phần trắc nghiệm: Câu b Câu a Câu a Câu c B.Phần tự luận: Câu Viết các biểu thức toán sau đây dạng biểu thức Pascal ? a 15(4 + 30 + 12) => 15*(4 + 30 + 12) b (10 x) 18 => (10 + x)*(10 + x) / (3 + y) – 18 / (5 + y) 3 y 5 y Trường THCS Sơn Hoá Lop8.net (5) Gi¸o ¸n: Tin häc Người soạn: Đoàn Thị ánh Nguyệt c ax2 + bx +2c => a*x*x +b*x + 2*c d (a+b)2.(d+e)3 => (a + b)*(a + b)*(d + e)*(d + e)*(d + e) C©u2: program Chuong_trinh_tinh_tich; var tich,a,b:integer; begin write(‘ doc vao hai so a va b:’); readln(a,b); tich:=a*b; writeln(‘ Tich cua hai so ‘,a,’ va ‘,b,’ la: ‘,tich:4); readln; end Tæ chuyªn m«n ký duyÖt ngµy / / 2009 TTCM NguyÔn ThÞ An Trường THCS Sơn Hoá Lop8.net (6)