1. Làm quen với Turbo Pascal.
a. Mục tiờu:
- Biết được cỏc File chươg trỡnh cơ bản của Turbo Pascal. - Biết cỏch khởi động và thoỏt khỏi Turbo Pascal.
b. Nội dung:
- Chuyển vào thư mục chứa File Turbo.exe.
- Gừ Turbo.exe và Enter. (Nếu ở mụi trường Win thỡ chỉ cần nhấn biểu tượng Turbo Pascal)
Hoạt động của giáo viên Hoạt động của học sinh gianthời 1. ĐVĐ: Để sử dụng được Turbo Pascal,
trờn mỏy phải cú cỏc file chương trỡnh cần thiết. Tham khảo SGk và cho biết tờn cỏc file chương trỡnh đú.
2. Trỡnh diễn cỏch khởi động TurboPascal thụng qua mỏy chiếu. Pascal thụng qua mỏy chiếu.
- Giới thiệu màn hỡnh soạn thảo chương trỡnh: bảng chọn, con trỏ, vựng soạn thảo...
1. Tham khảo SGK và trả lời.
Turbo.exe Turbo.tpl Graph.tpu Egavga.bgi và cỏc file *.chr 2. HS quan sỏt và ghi nhớ. 10'
2. Tập soạn thảo chương trỡnh và dịch lỗi cỳ phỏp:
a. Mục tiờu:
- HS biết cỏch tạo và lưu 1 file chương trỡnh. - Biết cỏch dịch và tỡm lỗi cỳ phỏp.
b. Nội dung:
- Gừ cỏc lệnh của chương trỡnh (giống như trong hệ soạn thảo văn bản). - Lưu file chương trỡnh lờn đĩa bấm F2.
- Biờn dịch lỗi cỳ phỏp bấm ALT_F9.
c. Cỏc bước tiến hành:
Hoạt động của giáo viên Hoạt động của học sinh thời
gian 1. Soạn 1 chương trỡnh làm VD, lưu
chương trỡnh, dịch lỗi.
2. Soạn 1 chương trỡnh, hỏi cỏc lỗi cỳphỏp trong chương trỡnh, gọi HS dịch phỏp trong chương trỡnh, gọi HS dịch lỗi và sửa.
Program VD; Var x: Integer; Begin
Write(Nhap 1 so nguyen duong); Readln(x); Y:=sqrt(x); Write(y); End. 1. Quan sỏt và ghi nhớ. - Lưu: F2 - Dịch lỗi: ALT_F9
2. Quan sỏt và phỏt hiện lỗi để sửa lỗicho chương trỡnh. cho chương trỡnh.
Program VD; Var x: Integer; Begin
Write(‘Nhap 1 so nguyen duong’); Readln(x);
Y:=sqrt(x); Write(y); End.
15'
3. Tập thực hiện chương trỡnh và tỡm lỗi thuật toỏn để hiệu chỉnh:
a. Mục tiờu:
- HS biết cỏch thực hiện 1 chương trỡnh.
- Biết cỏch nhập DL và tỡm lỗi thuật toỏn để hiệu chỉnh.
b. Nội dung.
- Thực hiện chương trỡnh: bấm Ctrl + F9. - Xõy dựng Test.
- Nhập DL, thu kết quả, đối chứng với kết quả của test.
c. Cỏc bước tiến hành:
Hoạt động của giáo viên Hoạt động của học sinh gianthời 1. Thực hiện chương trỡnh đó được viết
ở trờn, nhập DL, giới thiệu kết quả.
- Hỏi: nhúm phớm dựng để thực hiện chương trỡnh.
2. Giới thiệu chương trỡnh giải phươngtrỡnh bậc nhất ax + b = 0. trỡnh bậc nhất ax + b = 0. Var Begin Readln(a,b); If a<>0 then Write(-b/a) Else
Write(‘Phuong trinh vo nghiem’); Readln;
End.
- Yờu cầu HS tỡm Test để chứng minh chương trỡnh này sai.
1. Quan sỏt GV thực hiện và tham khảoSGK. SGK.
- Ctrl + F9.
2. Quan sỏt yờu cầu của GV và độc lậpsuy nghĩ để tỡm test. suy nghĩ để tỡm test.
a=0 b=0 x=VSN.
15'
IV. Đỏnh giỏ cuối bài: (3')
1. Những nội dung đó học.
- Nhắc lại kiến thức trọng tõm.
2. Cõu hỏi và bài tập.
- Viết chương trỡnh nhập vào 1 số và tớnh bỡnh phương của số đú.
- Viết chương trỡnh nhập độ dài bỏn kớnh và tớnh chu vi diện tớch của hỡnh trũn tương ứng. - Làm cỏc bài tập 9, 10 SGK-T36
- Chuẩn bị bài thực hành số 1 SGK-T33.
Ngày soạn: Tiết 9 + 10:
Bài tập và thực hành 1 A. MỤC TIấU, YấU CẦU:
1. Kiến thức:
- Biết được 1 chương trỡnh Pascal hoàn chỉnh.
- 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 trỡnh.
2. Kĩ năng:
- Soạn được chương trỡnh, lưu lờn đĩa, dịch lỗi cỳ phỏp, thực hiện và tỡm lỗi thuật toỏn và hiệu chỉnh.
- Bước đầu biết phõn tớch và hoàn thành 1 chương trỡnh đơn giản trờn Turbo Pascal.
B. PHƯƠNG PHÁP VÀ PHƯƠNG TIỆN:1. Phương phỏp: 1. Phương phỏp:
Kết hợp phương phỏp giảng dạy như: truyền thống, vấn đỏp, cú hỡnh minh hoạ.
2. Phương tiện:
GV: Chuẩn bị phũng mỏy và cỏc thiết bị liờn quan HS: Thực hành và nghe giảng trờn mỏy.
C. TIẾN TRèNH LấN LỚP, NỘI DUNG BÀI GIẢNG:I. Ổn định lớp: I. Ổn định lớp:
Yờu cầu lớp trưởng bỏo cỏo sĩ số.
II. Kiểm tra bài cũ và gợi động cơ bài học:
Giới thiệu bài học.
III. Bài giảng, nội dung bài giảng:
Tiết 9: 1. Tỡm hiểu một chương trỡnh hoàn chỉnh.
a. Mục tiờu:
- HS biết được 1 chương trỡnh hoàn chỉnh. - Biết soạn 1 chương trỡnh.
- Biết lưu, biờn dịch, thực hiện chương trỡnh. - Biết tỡm lỗi và sửa lỗi.
b. Nội dung:
- Cho chương trỡnh sau: Program GPT; 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; 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 của giáo viên Hoạt động của học sinh gianthời 1. Viết chương trỡnh lờn bảng. Yờu cầu
HS thực hiện cỏc nhiệm vụ:
- Soạn chương trỡnh vào mỏy. - Lưu chương trỡnh. - Dịch lỗi cỳ phỏp. - Thực hiện chương trỡnh. - Nhập 1 2 -3. Thụng bỏo kết quả. - Trở về MH soạn thảo. - Thực hiện chương trỡnh. - Nhập DL 1 0 2. Thụng bỏo kết quả. - Hỏi: Vỡ sao cú lỗi xuất hiện?
- Sửa lại chương trỡnh khụng dựng biến d.
1. Quan sỏt bảng, tự soạn chương trỡnhvào mỏy. vào mỏy. F2 Alt + F9 Ctrl + F9 X1=1 X2=2 Enter Ctrl + F9 Thụng bỏo lỗi Do căn bậc 2 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); Writeln(‘x1=’, x1:6:2, ‘x2=’, x2:6:2 ); 45' Tiết 10: 2. Rốn luyện kĩ năng lập trỡnh: a. Mục tiờu:
- HS soạn được chương trỡnh và lưu chương trỡnh vào đĩa. Biờn dịch và thực hiện được chương trỡnh. Nhập được DL và kiểm định kết quả của chương trỡnh.
b. Nội dung:
- Viết chương trỡnh tớnh diện tớch hỡnh được tụ màu với a được nhập vào từ BP.
c. Cỏc bước tiến hành:
Hoạt động của giáo viên Hoạt động của học sinh thời
gian 1. Định hướng để HS phõn tớch bài toỏn.
- DL vào: - DL ra: - Cỏch tớnh:
2. Yờu cầu Hs soạn chương trỡnh và lưutrờn đĩa. trờn đĩa.
- Quan sỏt hướng dẫn HS trong lỳc thực hành.
3. Yờu cầu HS nhập DL và thụng bỏo kết quả.
A=3 A= -3
1. Phõn tớch yờu cầu của GV.
A S
Tớnh diện tớch hỡnh trũn cú bk a(s1) Tớnh diện tớch hỡnh vuụng cạnh a 2(s2) S:= s1-s2
2. Thực hiện cỏc yờu cầu của GV.
- Soạn chương trỡnh.
- Bấm phớm F2, lưu tờn file. - Dịch chương trỡnh Alt + F9 - Ctrl + F9 thực hiện chương trỡnh. - Thụng bỏo kết quả.
3. Nhập DL theo yờu cầu.
- Với a= 3 ta được s= 9(pi-2) = 10.26 - Với a= -3, kết quả khụng đỳng vỡ độ dài cạnh phải là một số dương.
5'
25'
5'