TIET 10-11 (OK)

Ngày soạn : Tiết :
Ngày dạy : Lớp :
BÀI TẬP VÀ THỰC HÀNH 1
(tiết 2)
I. MỤC TIÊU
1. Kiến thức
- Biết viết một chương trình Pascal hoàn chỉnh đơn giản.
- Biết sử dụng một số dịch vụ chủ yếu của Pascal trong soạn thảo, lưu, dịch và thực hiện chương trình.
2. Kĩ năng
- Kỹ năng làm việc với Pascal: soạn thảo, dịch, phát hiện lỗi, chỉnh sửa.
3. Thái độ
- Giúp các em có thái độ yêu thích, say mê hơn khi được thực hành với Pascal.
II. PHƯƠNG PHÁP, PHƯƠNG TIỆN DẠY HỌC
1. Chuẩn bị của giáo viên
- Phòng máy vi tính, máy chiếu projector để hướng dẫn.
2. Chuẩn bị của học sinh
- Sách giáo khoa, sách bài tập và bài tập đã viết ở nhà.
III. NỘI DUNG BÀI GIẢNG
1. Ổn định tổ chức lớp
- Ổn định lớp.
- Chỉnh đốn trang phục.
- Sĩ số:.........Vắng:......
2. Đặt vấn đề
3. Kiểm tra bài cũ
Câu 1: Nêu cách ghi lưu chương trình Pascal vào đĩa, cách biên dịch chương trình, cách chạy chương trình, đóng cửa sổ chương trình, thoát khỏi chương trình.
Học sinh: Lên bảng trả lời.
- Cách ghi lưu: Ấn phím F2, chọn vị trí ghi lưu, gõ tên tệp cần lưu và ấn Enter.
- Biên dịch chương trình: Alt + F9 hoặc F9.
- Chạy chương trình: Ctrl + F9
- Đóng cửa sổ chương trình: Ctrl + F3
- Thoát khỏi chương trình: Alt + X
- Nhận xét, đánh giá, cho điểm.
4. Nội dung bài mới


Hoạt động của Giáo viên
Tg
Hoạt động của Học sinh

( Hoạt động 1 Khởi động máy tính và chương trình Pascal
- Yêu cầu các em bật máy tính.
- Hướng dẫn các em khởi động chương trình Pascal.
- Quan sát, hướng dẫn.

- Bật máy tính.
- Khởi động chương trình Pascal bằng cách nhắp đúp chuột vào biểu tượng Pascal trên màn hình nền Desktop.

( Hoạt động 2 Nội dung thực hành
- Đưa ra nội dung chương trình thực hành (Trình chiếu Slide 1 với nội dung chương trình).
program Giai_PTB2;
uses crt;
var a,b,c,delta,x1,x2: Real;
begin
clrscr;
writeln(`*************`);
write(`Nhap vao a = `); Readln(a);
write(`Nhap vao b = `); readln(b);
write(`Nhap vao c = `); readln(c);
delta:= sqr(b)-4*a*c;
x1:=(-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
Writeln(‘Nghiem la: ‘);
writeln(‘x1 = ‘,x1:5:2);
writeln(x2 = ‘,x2:5:2);
readln
end.
- Quan sát các em soạn thảo chương trình và chỉ ra các lỗi mà các em hay gặp.
- Nhắc các em ghi lưu khi soạn thảo được vài dòng.
- Khi cơ bản các em đã soạn thảo xong chương trình yêu cầu các em biên dịch chương trình.

* Nhận xét các lỗi các em hay gặp khi soạn thảo.
* Giả sử với bộ a, b, c nào đó mà delta <0 thì sao?
- Để giải quyết được vấn đề đó thì sang chương III ta sẽ có cách khắc phục.

- Sau khi gõ được vài chữ thì ghi lưu (nhấn F2) tệp tin với tên là PTB2 (Chú ý tên không dài quá 8 ký tự).

- Khi gõ xong cần tiến hành biên dịch chương trình (Nhấn Alt + F9). Chương trình biên dịch sẽ thông báo lỗi (nếu có), khi đó các em sẽ tiến hành sửa lỗi.
- Nhấn Ctrl + F9 để thực hiện chương trình:
+) Nhập a, b, c bằng 1, -3, 2..
+) Quan sát kết quả hiển thị trên màn hình.
x1 = 1.00
x2 = 2.00
Ấn Enter để quay lại chương trình.
- Ctrl + F9 để thực hiện lại chương trình và nhập với bộ dữ liệu khác.
+) Nhập a, b, c bằng 1, 0, -2
+) Quan sát kết quả hiển thị trên màn hình:
x1 = -1.41
x2 = 1.41

* Suy nghĩ, trả lời câu hỏi.
- Khi đó biểu thức sqrt(delta) sẽ không có nghĩa do vậy bài toán sẽ không giải quyết được.