turbo.tpl,turbo.tph,graph.tpu Gv các em mua đĩa CD có chương trình TP để cài đặt, và máy tính phải chạy được trong môi trường DOs Gv : khởi động mẫu cho HS xem Gv: khi không làm việc nữa[r]
(1)Tiết MỞ ĐẦU I- MỤC TIÊU : - Hs hiểu các khái niệm chương trình, lập trình,phần mềm ngôn ngữ, ngôn ngữ TP Pascal - Hs nắm cấu trúc chương trình trên TP II- CHUẨN BỊ : Gv : Bảng phụ, đĩa CD Hs : Bang nhóm III- TIẾN TRÌNH LÊN LỚP : Đặt vấn đề: Giới thiệu Turbo Pascal 2.Bài mới: HOẠT ĐỘNG CỦA THẦY TRÒ GHI BẢNG Hoạt động 1:Giới thiệu lập I Giới thiệu lập trình trình: Gv Giới thiệu chương trình là Chương trình là tập hợp dãy các lệnh xây tập hợp nhóm lệnh điều dựng trên ngôn ngữ lập trình nào đó nhằm điều khiển máy tính nhằm phục vụ khiển máy tính thực theo yêu cầu theo yêu cầu nào đó người người Lập trình Viết chương trình theo ngôn ngữ máy tính gọi là Gv giới thiệu lập trình lập trình Người làm lập trình gọi là lập Phần mềm ngôn ngữ : trình viên là công cụ cho phép diễn đạt yêu cầu, ý định người thông qua máy tính Phần mềm ngôn ngữ là cầu nối người và Gv giới thiệu phần mềm ngôn máy tính ngữ NN máy tính NN t.gian NN người 0;1 Pascal a,b,c C++ *Ngôn ngữ Pascal: là ngôn ngử lập trình cao cấp giáo sư Niklaus Wirth (Thụy Sỹ) sáng tác và công bố vào đầu năm 1970 với tên Pascal để kỷ niệm nhà toán học Pascal(Phap) * ngôn ngữ Pascal là ngôn ngữ : Gv gới thiệu ngôn ngữ Pascal + Có định kiểu mạnh mẽ + Có cấu trúc (Cấu trúc mặt liệu, mặt lệnh, mặt chương trình) Cấu trúc chương trình Pascal Gv : giới thiệu cấu trúc (*Phần tiêu đề*) chương trình Pascal Program tenchuongtrinh; Gv : Nội dung đặt cặp <> là nội dung có thể thay đổi người lập trình Gv : Các từ như: Program, (*Phần khai báo và chương trình con*) Uses <*Khai báo thư viện>; Const <* Khai báo hằng*>; Type<*mô tả kiểu liệu*> ; Var <* Khai báo biến*>; Lop7.net (2) Const, Type, Var, Begin, End, If, Then, Else là từ khóa phần mềm ngôn ngữ và có ý nghĩa cố định nên không dùng chúng với ý nghĩa khác Gv : Mỗi câu lệnh kết thúc dấu chấm phẩy, kết thúc End dấu chấm Hoạt động :Ví dụ các chương trình Pascal 1.Chương trình nhập năm sinh,in tuổi: Chương trình in câu “Xin chao cac ban” màn hình (*Phần thân chương tình*>; Begin Các lệnh chương trình End II- Ví dụ các chương trình Pascal Chương trình nhập năm sinh,in tuổi: Program nhapnamsinhintuoi; Var namsinh,tuoi:integer; Begin Write(‘Hãy cho biết bạn sinh năm nào’); Readln(namsinh); Tuoi:=2005-namsinh; Write(‘Năm bạn :’,tuoi,’tuổi’); Readln; End Chương trình in câu “Xin chao cac ban” màn hình Program xinchao; Begin Write(‘Xin chào các bạn’); Readln; End Hoạt động : Củng cố Cấu trúc chương trình Pascal bao gồm phần.?Đó là phần nào? 3.Hướng dẫn học nhà : Học thuộc theo ghi Tiết : MỞ ĐẦU (tiếp theo) I- MỤC TIÊU : - Hs có thể nắm cách khởi động, kết thúc chương trình Turbo Pascal - Hs làm quen với màn hình giao diện turbo, làm quen với nhóm lệnh menu - Hs nắm bước lập trình II- CHUẨN BỊ - Gv : CD giáo trình Pascal,máy chiếu -Hs : III- TIẾN TRÌNH LÊN LỚP : Kiểm tra bài cũ : Lop7.net (3) ? Cho biết ngôn ngữ pascal viết năm nào? Do viết ? ? Cho biết cấu trúc chương trình Pascal? Phần nào bắt buộc, phần nào không bắt buộc có? 2.Bài HOẠT ĐỘNG THẦY TRÒ GHI BẢNG Hoạt động 1:Khởi động và kết thúc III- Làm việc ban đầu với môi trường TP chương trình: Gv để chạy Pascal thì cần có các file tối 1.Khởi động và kết thúc chương trình: a.Khởi động : C:\>pascal\turbo thiểu sau : turbo.exe, turbo.tp, b.Kết thúc : nhấn Alt-X File-exit turbo.tpl,turbo.tph,graph.tpu Gv các em mua đĩa CD có chương trình TP để cài đặt, và máy tính phải chạy môi trường DOs Gv : khởi động mẫu cho HS xem Gv: không làm việc thì ta phải 2.Giới thiệu màn hình giao diện TP: thoát khỏi TP cách nhấn Alt-X a.Thanh thực đơn(menu): chứa các lệnh Hs lên thực hành khởi động, kết thúc Tp để khai thác tính phần mềm b Thnh chức năng:mô tả các phím chức Hoạt động 2:Giới thiệu màn hình giao để sử dụng nhanh diện TP: c.Cửa sổ tài liệu:nơi để soạn thảo Hs quan sát màn hình giao diện TP chương trình Gv giới thiệu qua các thành phần 3.Soạn thảo môi trường Turbo trên màn hình giao diện Pascal: a Soạn thảo văn bản:có hai chế độ là chế độ Insert và chế độ Over Write Hoạt động 3: Soạn thảo môi b.Di chuyển trỏ: Dùng các phím chức di chuyển trường Turbo Pascal: dùng chuột Gv: Giới thiệu cách : -Soạn thảo văn c.Xử lý khối: -Di chuyển trỏ -Xác định khối -Xử lý khối -Sao chép,di chuyển khối -Xóa khối d.Tìm kiếm,thay Hoạt động 4: Quản lý tài liệu Gv: Giới thiệu cách : -Lưu tài liệu -Mở tài liệu -Mở tài liệu 4.Quản lý tài liệu : a Lưu tài liệu: Nhấn F2 vào File/save b.Mở tài liệu: Nhấn F3 vào file/open c.Mở tài liệu mới: vào file/new Alt+F3 Hoạt động 5:Biên dịch và chạy chương trình Gv thực hành mẫu ,2-3 hs thực hành Gv Giới thiệu 1chương trình đã viết sẵn (có thể có lỗi) Gv : sau viết xong chương trình thì ta phải kiểm tra qúa trình làm có sai sót không thì ta phải dịch chương trình Biên dịch và chạy chương trình a.Dịch chương trình : nhấn Alt +F9 b.Chạy chương trình : nhấn CTRL+F9 Lop7.net (4) Gv thực hành mẫu , sửa lổi, cho hs thấy chương trình đã thành công Gv hướng dẫn hs chạy chương trình phương pháp lập trình Hướng dẫn nhà: - Nắm kiến thức bài - Thực hành khởi động kết thúc Tp -Thực hành cách mở, lưu file lên đĩa Tiết : MỞ ĐẦU (Tiếp theo) I- MỤC TIÊU : - Hs có thể nắm cách biểu diễn thuật giải -Hs nắm cách soạn trên môi trường phần mềm ngôn ngữ Pascal II- CHUẨN BỊ - Gv : CD giáo trình Pascal,máy chiếu -Hs : III- TIẾN TRÌNH LÊN LỚP : Kiểm tra bài cũ : Nêu cách khởi động và kết thúc chương trình TP Nêu cách quản lý tài liệu trongTP 2.Bài HOẠT ĐỘNG THẦY TRÒ GHI BẢNG Hoạt động 1:Biểu diễn thuật giải: IV Biểu diễn thuật giải: Gv Giới thiệu các bước phương pháp Phương pháp lập trình: Bước : Tìm cách giải bài toán ngôn lập trình Gv: Đưa ví dụ giải bài toán ngôn ngữ tự nhiên(Tìm giải thuật phù hợp) Bước : Vẽ lưu đồ giải bài toán: ngữ tự nhiên Dùng các ký hiệu sau: Gv Giới thiệu các ký hiệu dùng để vẽ lưu -Các mũi tên và các đường hướng đồ giải bài toán tiếp bài toán Gv Hướng dẫn hs vẽ lưu đồ thuật giải -Hình elip dùng để khối bắt đầu /kết thúc chương trình Gv: Đưa ví dụ lưu đồ thuật giải -Hình chữ nhật:các khối thao tác Gv Giới thiệu ví dụ thể -Hình thoi: khối kiểm tra điều kiện Bước :thể ngôn ngữ lập trình ngôn ngữ lập trình trên giấy trên giấy Hoạt động 2:Thể chương trình V.Thể chương trình phần phần mềm ngôn ngữ Gv Giới thiệu 1chương trình đã viết sẵn mềm ngôn ngữ Soạn chương trình trên môi trường (có thể có lỗi) phần mềm ngôn ngữ Gv : sau viết xong chương trình thì ta phải kiểm tra qúa trình làm có sai sót Cho chạy thử, sửa lỗi và hoàn thiện chương trình không thì ta phải dịch chương trình Gv thực hành mẫu , sửa lổi, cho hs thấy Lop7.net (5) chương trình đã thành công Gv hướng dẫn hs chạy chương trình Hoạt động 3:Củng cố Gv cho bài toán giải pt bậc nhất: - Nêu cách giải - Vẽ lưu đồ - Thể ngôn ngữ lập trình trên giấy Hướng dẫn học nhà : -Nắm cách vẽ lưu đồ thuật giải,cách thể chương trình phần mềm ngôn ngữ -Làm bài tập sau: 1.Cho hai số a,b.Vẽ lưu đồ để xác định số lớn hai số a,b 2.Cho ba số a,b,c.Vẽ lưu đồ để xác định số lớn các số cách dùng biến trung gian Max Tiết 4: MỞ ĐẦU (Tiếp theo) I- MỤC TIÊU: - Hs biết cách khởi động, kết thúc chương trình Turbo Pascal - Hs làm quen với môi trường Turbo Pascal - Hs chạy thử các chương trình viết sẵn, làm thêm số bài tập II- CHUẨN BỊ - Gv: CD giáo trình Pascal,máy chiếu -Hs : III- TIẾN TRÌNH LÊN LỚP : Kiểm tra bài cũ : Cho ba số a, b, c Vẽ lưu đồ để xác định số lớn các số cách dùng biến trung gian Max Bài : Bài 1: Mở file với tên HELLO.PAS gõ chương trình sau: Program Hello; Uses CRT; Begin Clrscr; Writeln; Write(‘Chào các bạn!’); Write(‘Chuc cac ban cong’); Write(‘Chuc mung cac ban da den voi ‘); Write(‘Turbo Pascal’); Readln; End - Ghi file vào đĩa Lop7.net (6) - Đánh dấu khối từ dòng thứ đến dòng thứ 8,sao chép vào sát trên dòng thứ9 Ghi file vừa đổi với tên Hello1.pas Mở file Hello1.pas và ghi thành bốn file với các tên khác Bài 2:Mở file với tên TONG.PAS gõ chương trình sau: Program Tinh; Uses CRT; Var gt,i:integer; Begin Clrscr; gt:=0; For i:=1 to 10 gt:=gt+i; writeln(‘tong cua 10 so nguyen duong dau tien la:’,gt); readln; End -Hãy dịch và chạy chương trình,chú ý xem kết -Thay i i*i và chạy lại chương trình,chú ý xem kết bài toán Bài 3:Mở file với tên Tich.PAS gõ chương trình sau: Program Tinh; Uses CRT; Var gt,i:longint; Begin Clrscr; gt:=1; For i:=1 to 10 gt:=gt*i; writeln(‘tich cua 10 so nguyen duong dau tien la:’,gt); readln; End -Hãy dịch và chạy chương trình, chú ý xem kết -Thay 10 15 và chạy lại chương trình, nhận xét Hướng dẫn học nhà : -Xem lại các bài tập đã sữa -Làm các bài tập sau: Viết chương trình Pascal đơn giản in màn hình dòng chữ: Lớp 9.14 xin chào các bạn Viết chương trình Pascal đơn giản in màn hình dòng chữ: Well come to Vung Tau Tiết : Lop7.net (7) CÁC THỦ TỤC CƠ BẢN CỦA TURBO I- MỤC TIÊU - Dựa vào cấu trúc chương trình TP, Hs có thể biết cách vận dụng các thủ tục khai báo biến, bài toán cụ thể - Hs tập làm quen dần với việc lập trình thông qua các bài toán đơn giản II- CHUẨN BỊ : Gv : máy chiếu, chương trình dthtron Hs : III- TIẾN TRÌNH LÊN LỚP : Kiểm tra bài cũ Hs : khởi động, kết thúc TP Hs2 : Mở file dthtron, biên dịch chương trình, chạy chương trình, lưu lại Hs3 :Nêu các bước lập trình Bài : Hoạt động thầy trò Nội dung Hoạt động 1: Chương trình I- BÀI TOÁN mẫu: Gv đưa bài toan Nhập vào bán kính hình tròn, tính diện tích Hs nêu cách giải và chu vi hình tròn đó Gv hướng dẫn đưa ngôn ngữ tự Chương trình mẫu: nhiên vào ngôn ngữ máy tính Program dtcvhtron; Gv: Hãy nhắc lại cấu trúc Use crt; chương trình? Const p=3.14; Gv mở file dthtron cho hs xem Var r,dt,cv:Real; chương trình mẫu Begin Clscr; Writeln(‘nhập bán kinh hình tròn:’); Readln(r); {lenh de nhap ban kinh} dt:=r*r*p; cv:=2*r*p; Writeln(‘Diện tích cua hinh tron la:’,dt); Writeln(‘Chu vi cua hinh tron la:’,cv); Readln; {lenh cho nhan phim enter} End Hoạt động 2: Những nguyên Những nguyên tắc : tắc : - Viết chương trình phải tuân thủ theo cấu trúc chương trình TP - Kết thúc câu lệnh bắt buộc phải có dấu chấm phẩy; kết thúc chương trình phải có dấu chấm - Nên viết thụt vào đầu dòng để có cấu trúc phân cấp để tiện theo dõi và sửa lỗi Gv : giới thiệu từ khoá Từ khoá : là các từ riêng Pascal không đặt tên trùng với từ khoá And,array,begin,case,const,div,do,downto,end,else,fi Gv giới thiệu tên,các đặt tên le of, forward,function,goto,if,in, label,mod,, not, nul, Hs tìm chỗ sai cách đặt of, or,procedure, program,set,string,then,to, tên sau : type,recorc,, repeat,until, var , while, with 1.a/giaipt b/giai_pt c/giai-pt d/ Tên :Là dãy ký tự Tên tạo chữ cái, Lop7.net (8) GIAIPT chữ số và ký tự gạch nối Tên phải bắt đầu a/begina b/Begin1 c/ Begin bàng chữ cái và không có khoảng trắng ;chiều dài tối đa là 127 ký tự.Tên không trùng với từ khóa d/beginend 3.a/so2 b/so c/ s2o d/ SO2 Hoạt động 3: Biến và khai báo Biến và khai báo biến -Biến :biến là đại lượng có thể thay đổi gía trị Biến biến Gv giới thiệu biến và cách khai chương trình là tên vùng nhớ lưu trữ liệu -Cách khai báo biến : Var Tenbien : kieudulieu; báo Trong đó: Ví dụ : +Tên biến cách dấu Var a,b:integer; phẩy Các kiểu liệu : + kiểu liệu là kiểu -byte : 0…255 chiếm 1B như:integer,read… - shortint -128…127 chiếm 1B Gv giới thiệu các kiểu liệu -integer : - 32768 …32767 chiếm 2B -longint: -2,5 t ỉ …2,1 t ỉ chiếm 4B ? để tính điểm trung bình -word : 0…65535 chiếm 2B HS dùng kiểu liệu nào -Real : 2.9E-39 1.7E+38 chiếm 6B Hs viết vài khai báo biến Hoạt động 4: Hằng và khai báo 4.Hằng và khai báo Gv giới thiệu và cách khai -Hằng là đại lượng không thay đổi giá trị suốt chương trình Trong đó: - Cách khai báo hằng: +Tên :là tên cần định Const<tênhằng>=<giátrị hằng>; nghĩa giá trị Ví dụ : +Giá trị là giá trị mà tên Const phai=TRUE; {hằng Kiểu boolean} nhận So = 10; {hằng kiểu snguyên} Hoạt động 5: Củng cố Pi = 3.14; {hằng kiểu số thực} ? nhắc lại nguyên tắc Ten = ‘L’ {hằng kiểu ký tự} viết chtrình ? Nhắc lại số từ khoá ? viết cách khai báo biến ? Có bao nhiêu kiểu liệu? phạm vi biểu diển ? viết cách khai báo Hướng dẫn học nhà - Học theo ghi - Tự viết phần tiêu đề và khai báo chtrình tính chu vi hcn Tiết 6: Lop7.net (9) CÁC THỦ TỤC CƠ BẢN CỦA TURBO (Tiếp theo) I- MỤC TIÊU - Dựa vào cấu trúc chương trình TP, Hs có thể biết cách vận dụng các thủ tục xuất nhập, phép gán, các phép toán số học bài toán cụ thể - Hs tập làm quen dần với việc lập trình thông qua các bài toán đơn giản II- CHUẨN BỊ : Gv : máy chiếu, chtrình dthtron Hs : III- TIẾN TRÌNH LÊN LỚP : 1.Kiểm tra bài cũ Hs 1: Nêu nguyên tắc Hs2: Viết cú pháp khai báo biến,hằng Bài mới: Hoạt động thầy và trò Hoạt động : Câu lệnh xuất : Gv : giới thiệu chức năng, cú pháp câu lệnh xuất write: Gv giới thiệu vd ? Cho biết các lệnh trên xuất màn hình cái gì ? Gv: giới thiệu lệnh writeln Gv : Với vd trên sử dụng lện writeln thì cho kết qủa màn hình nào? Gv : Khắc sâu khác hai lệnh Nội dung Câu lệnh xuất write,writeln: -lệnh write: +Chức năng:hiện thông tin lên màn hình +Cú pháp: Write(<danh sách đưa ra>); Trong đó :<danh sách đưa ra> là biến,một giá trị,danh sách hằng,giữa chúng có dấu phẩy.Nếu là chuỗi ký tự phải đặt dấu ‘ ‘,tất để cặp dấu ngoặc Ví dụ : Begin Write(‘Hello’,1,2,3,4,5); {Xuất chuỗi và số} Write(‘How are you?’);{xuất chuỗi} End Xuất m hình Hello12345How are you -lệnh writeln: +Chức năng,cú pháp giống lệnh Write khác sau thực trỏ tự động xuống dòng Ví dụ : Begin Writeln(‘Hello’,1,2,3,4,5); {Xuất chuỗi và số} Writeln(‘How are you?’);{xuất chuỗi} End Xuất m hình Hello12345 How are you? Lop7.net (10) Hoạt động 2: Câu lệnh nhập read, readln: Gv:giới thiệu chức năng, cú pháp câu lệnh nhập read, readln: Gv giới thiệu vd Gv : Nêu khác hai lệnh nhập read, readln: Hoạt động 3: Các phép tính số học bản, phát biểu gán, chú thích chương trính, các hàm xử lý liệu bản: 6.Câu lệnh nhập read,readln: Cú pháp: read(<danh sách các biến>); readln(<danh sách các biến>); Trong đó: <danh sách các biến> là các tên biến mà gán giá trị ta gõ từ bàn phím,giữa các tên biến phải có dấu phẩy Ví dụ : Var a,b,c :real; Begin Write(‘nhập ba cạnh tam giac’); {xuất từ ‘nhập ba cạnh tam giac’} read(a,b,c); {nhập a,b,c } End Xuất m hình nhập ba cạnh tam giác {do NSD nhập vào} Ví dụ : Var a,b,c :real; Begin Writeln(‘nhập ba cạnh tam giac’); {xuất từ ‘nhập ba cạnh tam giac’’} readln(a,b,c); {nhập a,b,c } End Xuất m hình nhập ba cạnh tam giác (enter) (enter) (enter) {do NSD nhập vào} Chú ý: Nhập không có tham số : Readln; Máy tính chờ thao tác nhấn phím enter Các phép tính số học bản: Phép cộng(+) Phép trừ(-) Phép nhân(*) Phép chia lấy phần nguyên: div Phép chia lấy phần dư: mod Phép chia hai số thực số nguyên, kết trả là số thực Phát biểu gán: Cú pháp: V:=E; {Giá trị biểu thức E gán cho biến V và giá trị cũ biến V đi} Trong đó: V là tên biến E là biểu thức Ví dụ:S:=a*b; Chú thích chương trính: Lop7.net (11) Được đặt cặp {} có tác dụng giúp người viết ghi chú tuỳ ý mà không ảnh hưởng tới chương trình 10 Các hàm xử lý liệu bản: Sqr(x): bình phương số nguyên hay số thực Sqrt(x): bậc hai x Hoạt động 4: Củng cố Nêu cú pháp cách xuất dl màn hình? Sự khác hai lệnh trên? Viết câu xuất A:=n*(n+1)/2 Viết lệnh xuất màn hình diện tích tam giác Hướng dẫn học nhà : Học thuộc theo ghi Xem các ví dụ Tiết 7: CÁC THỦ TỤC CƠ BẢN CỦA TURBO (Tiếp theo) I- MỤC TIÊU - Dựa vào cấu trúc chương trình TP, Hs có thể biết cách vận dụng các thủ tục xuất nhập, khai báo, phép gán, các phép toán số học bài toán cụ thể - Hs tập viết chương trình đơn giản dựa vào kiến thức đã học II- CHUẨN BỊ : Gv : máy chiếu, chtrình dthcn Hs : III- TIẾN TRÌNH LÊN LỚP:1 Kiểm tra bài cũ Hs 1: Viết cú pháp lệnh xuất Writeln Viết chương trình in màn hình câu “ Sức khoẻ là vàng” Hs 2: Viết cú pháp lệnh nhập readln Viết chương trình nhập vào hai số,tính hiệu chúng Bài mới: Hoạt động thầy và trò Hoạt động 1: Bài toán : Viết chương trình tính diện tích hình chữ nhật Nội dung II Bài toán : Viết chương trình tính diện tích hình chữ nhật Program dthcn; Use crt; Var a,b,s:Real; Begin Lop7.net (12) Gv : Cho Hs làm bài Hoạt động 2: Gv : Viết chương trình tính tổng S=1+2+3+ +n Gv : hướng dẫn công thức tính tổng S Hs : Viết chương trình hs : lên bảng sửa Hoạt động 3: Củng cố: Gv: Cho Hs làm bài toán Clscr; Writeln(‘nhập chiểu dài’); Readln(a) Writeln(‘nhập chiều rộng’); Readln(b); S:=a*b; Writeln(‘diện tích hình chữ nhật là:’,S:6:2); End Bài toán :Viết chương trình tính tổng S=1+2+3+ +n Program tinhtong-n; Use crt; Var n:integer; Begin Clscr; Writeln(‘nhập vao so n’); Readln(n) S:=n*(n+1)/2; Writeln(‘S=1+2+…+’,n,’=’,S); End Bài toán 4: tìm lỗi chưong trình sau: Program vidu; Var a,b,:integer; Begin Readln(x,y); P:=x*y; Write(‘Tích số là:’,P); End Hướng dẫn học nhà : Học sinh xem lại cách làm các bài toán để hôm sau thực hành trên máy Tiết : CÁC THỦ TỤC CƠ BẢN CỦA TURBO (Tiếp theo) I- MỤC TIÊU - Hs thực hành các bài toán đơn giản trên máy II- CHUẨN BỊ : Gv : máy chiếu, phòng máy Hs : các bài tập đã làm III- TIẾN TRÌNH LÊN LỚP : Kiểm tra bài cũ Nhắc lại nguyên tắc viết chương trình Bài : Lop7.net (13) Hoạt động thầy và trò Hoạt động : học sinh viết chương trình và cho chạy các bài tập đã làm Nội dung Hoạt động : Hs viết chương trình theo yêu cầu đề bài,và cho chạy chương trình Gv:sửa lỗi (nếu có) Bài tập: Viết chương trình nhập hai số,tính thương chúng Viết chương trình tính quảng đường nhập thời gian và vận tốc Hướng dẫn học nhà : Xem các bài tập đã làm Bài tập nhà : Viết chương trình nhập vào cạnh hình vuông,tính chu vi, diện tích hình vuông đó Tiết 9: Bài tập (tiếp theo) I- MỤC TIÊU - hs làm quen với việc viết chương trình Pascal dựa theo cấu trúc tổng quát nó - Củng cố các thủ tục nhập, xuất - Bước đầu rèn luyện cho Hs tư thuật giải II- CHUẨN BỊ : Gv : máy chiếu Hs : III- TIẾN TRÌNH LÊN LỚP : 1.Kiểm tra bài cũ Viết cú pháp lệnh Writeln,nêu chức nó và nêu khác lệnh write và lệnh writeln Bài : Hoạt động thầy và trò Hoạt động : GV: Nêu cách tính chu vi tam giác? HS: tổng cạnh tam giác GV: Với bài này phải sử dụng bao nhiêu biến? Đó là biến nào? HS: biến , đó là ba cảnh và chu vi tam giác Nội dung Bài : Viết chương trình tính chu vi tam giác với cạnh nhập từ bàn phím Giải : program chuvitg; Var a,b,c,P:real; Lop7.net (14) GV:Ta cần nhập vào gì? Và xuất cái gì? HS:Nhập canh,xuất chu vi Cả lớp viết chương trình Gv chọn em viết hoàn chỉnh lên bảng sửa Hoạt động 2: Viết chương trình tính tổng ,hiệu, tích ,thương hai số nguyên x,y GV:gọi HS làm bài trên bảng,dưới lớp làm vào tập,nhận xét bài làm HS ?Ai chưa làm được? Gv hướng dẫn tìm lỗi sai hs sinh Begin Writeln(‘nhap vao ba canh cua tam giac’); Readln(a,b,c); P:=a+b+c; Writeln(‘chu vi tam giac la:’,P); End Bài : Viết chương trình tính tổng ,hiệu tích thương hai số nguyên x,y program T-H-tich-thuong; Var x,y:real; Begin Writeln(‘nhap vao hai số x,y’); Readln(x,y); Writeln(‘x,’+’,y,’=’,x+y); Writeln(‘x,’-’,y,’=’,x-y); Writeln(‘x,’.’,y,’=’,x*y); Writeln(‘x,’:’,y,’=’,x/y); End 3/ Hướng dẫn học nhà : Xem các bài tập đã làm Tiết 10: Bài tập(tiếp theo) I- MỤC TIÊU - HS làm quen với việc viết chương trình Pascal dựa theo cấu trúc tổng quát nó - Củng cố các thủ tục nhập, xuất - Bước đầu rèn luyện cho Hs tư thuật giải II- CHUẨN BỊ : Gv : máy chiếu Hs : III- TIẾN TRÌNH LÊN LỚP : 1.Kiểm tra bài cũ ?Nêu cấu trúc chương trình Psacal Hs chạy thử bài tập trên máy Bài : Hoạt động thầy và trò Nội dung Hoạt động : Bài : Gv ; Cho HS tính toán để tìm kết Hãy cho biết giá trị các biến A,B,C sau thực xong các lệnh sau: A:=10; B:=A+10; Gv: gọi Hs làm bài trên bảng sau đó C:=A+A*B; A:=B*C; cho lớp nhận xét ,sửa chữa Lop7.net (15) sai sót Giải : A=4200 B=20 C=210 Bài : Viết chương trình nhập tổng số giờ,xuất Hoạt động 2: Viết chương trình nhập giây tương ứng tổng số giờ,xuất giây tương ứng program doi_sang_giây; Gv: Để đổi sang giây ta làm Var giay:longint; nào? Gio:integer; Hs: Giây=giờ.3600 Begin Gv: yêu cầu Hs dựa vào công thức trên Writeln(‘nhap số gio:’); Readln(gio); để viết chương trình Giay:=gio*3600; Gv: gọi Hs lên bảng viết chương trình Writeln(‘So giay tuong ung la:’,giay,’giay’); Readln; End Hoạt động 3: Viết chương trình nhập Bài 3: số giây,tính và in số giờ,phút, giây Viết chương trình nhập số giây,tính và in số giờ,phút, giây Gv: Để đổi giây sang giờ,phút,giây ta program doi_sang_giophutgiây; Var gio,phut,giay,n,a:longint; làm nào? Hs:tra lời Begin Gv: yêu cầu Hs dựa vào công thức trên Writeln(‘nhap số giay:’); Readln(n); để viết chương trình Gio:=n div 3600; Gv: gọi Hs lên bảng viết chương trình a:=n mod 3600; phut:=a div 60; Giay:=a mod 60; Writeln(n,’giay=’,gio,’gio’,phut,’phut’,giay,’giay’); Readln; End Hướng dẫn học nhà : Học sinh xem lại cách làm các bài toán để hôm sau thực hành trên máy Tiết 11: Bài tập (tiếp theo) I- MỤC TIÊU - hs làm quen với việc viết chương trình Pascal dựa theo cấu trúc nó - Củng cố các thủ tục nhập, xuất - Bước đầu rèn luyện cho Hs tư thuật giải II- CHUẨN BỊ : Gv : máy chiếu Lop7.net (16) III- TIẾN TRÌNH LÊN LỚP : Kiểm tra bài cũ : Bài : Hoạt động thầy và trò Hoạt động : chương trình tính chu vi tam giác với cạnh nhập từ bàn phím Cả lớp thực hành- chạy chương trình kiểm tra kết qủa Hoạt động :chương trình tính tổng ,hiệu tích thương hai số nguyên x,y Cả lớp thực hành- chạy chương trình kiểm tra kết qủa Gv hướng dẫn tìm lỗi sai hs sinh Hoạt động Bài 3: Viết chương trình cho phép nhập điểm toán, lý, hoá;tính điểm trung bình và in kết màn hình biết điểm toán hệ số 2, các môn còn lại hệ số Hs làm bài trên máy,cho chạy thử và sửa lỗi Gv: sửa lỗi cho hs Nội dung Bài : chương trình tính chu vi tam giác với cạnh nhập từ bàn phím Giải : program chuvitg; Var a,b,c,p:real; Begin Writeln(‘nhap vao ba canh cua tam giac’); Readln(a,b,c); P:=a+b+c; Writeln(‘chu vi tam giac la:’,P); End Bài : chương trình tính tổng ,hiệu tích thương hai số nguyên x,y Giải program T-H-tich-thuong; Var x,y:real; Begin Writeln(‘nhap vao hai số x,y’); Readln(x,y); Writeln(‘x,’+’,y,’=’,x+y); Writeln(‘x,’-’,y,’=’,x-y); Writeln(‘x,’.’,y,’=’,x*y); Writeln(‘x,’:’,y,’=’,x/y); End Bài 3: Viết chương trình cho phép nhập điểm toán, lý, hoá;tính điểm trung bình và in kết màn hình biết điểm toán hệ số 2, các môn còn lại hệ số Giải: Program Diem_TB; Var toan,ly,hoa,DTB:real; Begin Writeln(‘Nhap diem toan:’); Readln(toan); Writeln(‘Nhap diem ly:’); Readln(ly); Writeln(‘Nhap diem hoa:’); Readln(hoa); DTB:=(toan*2+ly+hoa)/4; Writeln(‘DTB=’,DTB:8:1); Readln; End Lop7.net (17) Tiết 12: Bài tập (tiếp theo) I- MỤC TIÊU - hs làm quen với việc viết chương trình Pascal dựa theo cấu trúc nó - Củng cố các thủ tục nhập, xuất - Bước đầu rèn luyện cho Hs tư thuật giải II- CHUẨN BỊ : Gv : máy chiếu Hs : III- TIẾN TRÌNH LÊN LỚP : 1:Kiểm tra bài cũ Bài : Hoạt động thầy và trò Hoạt động : Cả lớp thực hành- chạy chương trình kiểm tra kết qủa Gv hướng dẫn tìm lỗi sai hs sinh Hoạt động 2: Cả lớp thực hành- chạy chương trình kiểm tra kết qủa Gv hướng dẫn tìm lỗi sai hs sinh Gv: cho HS làm bài trên máy,cho chạy thử và sửa lỗi Hoạt động 3: Gv: Để viết chương trình này ta cần khai báo biến? Hs;Ta cần khai bao biến Gv:Cho Hs viết chương trinh sau đó Nội dung Bài 1: Viết chương trình nhập tổng số giờ,xuất giây tương ứng program doi_sang_giây; Var giay:longint; Gio:integer; Begin Writeln(‘nhap số gio:’); Readln(gio); Giay:=gio*3600; Writeln(‘So giay tuong ung la:’,giay,’giay’); Readln; End Bài 2: Viết chương trình nhập số giây,tính và in số giờ,phút, giây program doi_sang_giophutgiây; Var gio,phut,giay,n,a:longint; Begin Writeln(‘nhap số giay:’); Readln(n); Gio:=n div 3600; a:=n mod 3600; phut:=a div 60; Giay:=a mod 60; Writeln(gio,’gio’,phut,’phut’,giay,’giay’); Readln; End Bài 3: cho trước giá trị x,y,z,viết chưong trình hoán vị các giá trị trên:x nhận giá trị y,y nhận giá trị z,z nhận giá trị x Program hoan_vi; Var x,y,z,t:real; Begin Writeln(‘nhap x=’); Lop7.net (18) sửa chữa sai sót Readln(x); Writeln(‘nhap y=’); Readln(y); Writeln(‘nhap z=’); Readln(z); t:=x; x:=y; y:=z; z:=t; Writeln(‘x=’,x,’y=’,y,’z=’,z); Readln; End Hướng dẫn học nhà : Xem các bài tập đã làm Lop7.net (19)