Soạn thảo dịch, thực hiện và hiệu
chỉnh chương trình

I. Mục tiêu.
1. Kiến thức.
- Biết được các bước để hoàn thành một chương trình.
- Biết các file chương trình cơ bản của Turbo Pascal 7.0
2. kĩ năng.
- Biết khởi động và thoát hệ soạn thảo Turbo Pascal.
- Soạn được một chương trình vào máy.
- Dịch được chương trình đê phát hiện lỗi cú pháp.
- Thực hiện được chương trình để nhập dữ liệu và thu kết quả, tìm lỗi
thuật toán và sửa lỗi.
II. đồ dùng dạy học.
1. Chuẩn bị của giáo viên
- máy vi tính có cài phần mềm Turbo Pascal 7.0, máy chiếu Projector,
máy chiếu vật thể.
2. Chuẩn bị của học sinh.
- Sách giáo khoa.
III. Hoạt động dạy – học .
1. Hoạt động 1: Làm quen với Turbo Pascal 7.0
a. Mục tiêu:
- Biết được các file chương trình cơ bản của Turbo Pascal 7.0. Biết cách
khởi động và thoát Turbo Pascal 7.0.
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 bấm biểu tượng Turbo Pascal)
c. Các bước tiến hành:
hướng dẫn của giáo viên Hoạt động của học sinh
1. Đặt vấn đề: Để sử dụng được
2. Hoạt động 2: Tập soạn thảo chương trình và dịch lỗi cú pháp.
a. Mục tiêu:
- Học sinh biết cách tạo và lưu một 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 trê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:

hướng dẫn của giáo viên Hoạt động của học sinh
1. Soạn một chương trình làm ví dụ,
lưu chương trình, dịch lỗi.
- Dùng máy chiếu vật thể để minh
họa thap tác lưu file chương trình và
biên dịch.

2. Soạn một chương trình, hỏi các
lỗi cú pháp trong chương trình, gọi
học sinh dịch lỗi và sửa.
Program vd1
var x:integer;
Begin
Write(‘Nhap mot so nguyen
duong);
readln(x);
1. Quan sát và ghi nhớ.


c. Các bước tiến hành: hướng dẫn của giáo viên Hoạt động của học sinh
1. Thực hiện chương trình đã được 1. Quan sát giáo viên thực hiện và
viết ở trên, nhập dữ liệu, giới thiệu
kết quả.
- Dùng máy chiếu vật thể để minh
hạo thao tác thực hiện chương trình.
- Hỏi : Nhóm phím dùng để thực
hiện chương trình?
- Yêu cầu học sinh nhập dữ liệu và
thực hiện chương trình.
2. Giới thiệu chương trình giải
phương trình ax+b=0.
Var
Begin
Readln(a, b);
If a<>0 then write(-b/a)
else write(“PTVN”);
Readln;
End.
- Yêu cầu học sinh tìm test để
chứng minh chương trình này sai.
tham khảo sách giáo khoa. CTRL_F9