max:=a; if a < b then max:=b; Lưu ý: Trước từ khoá Else không có dấu ;
- Dạng nào thuận tiện hơn?
If a > b then max:= a; If a < b then max:= b; Hoặc: If a > b then max:=a Else max:=b; Suy nghĩ và trả lời. -> tuỳ trường hợp cụ thể. đặc biệt)
IF <điều kiện> THEN <câu lệnh>;
4. Hoạt động 4: Câu lệnh ghép
Hoạt động của Giáo Viên Hđ của HS Nd ghi bảng
1. Nêu vđ: Sau then, sau else phải cómột câu lệnh. Nhưng thực tế trong một câu lệnh. Nhưng thực tế trong các trường hợp phức tạp đòi hỏi phải là nhiều câu lệnh.
NNLT cho phép gộp dãy các lệnh thành một câu lệnh ghép
2. Y/cầu hs n/cứu sgk cho biết cấutrúc câu lệnh ghép trong Pascal trúc câu lệnh ghép trong Pascal
1. Chú ý lắng nghe2. N/cứu sgk và trả lời 2. N/cứu sgk và trả lời Begin <các lệnh cần ghép>; End; Câu lệnh ghép trong Pascal: Begin <các lệnh cần ghép>; End;
5. Hoạt động 5: Rèn luyện kĩ năng vận dụng lệnh If
a. Nội dung:
Vd1: Viết chương trình nhập vào độ dài 2 cạnh của một hình chữ nhật, tính chu vi, diện tích của hcn đó.
Vd2: Tìm nghiệm của pt bậc hai: ax2+bx+c=0
b. Cách tiến hành
Hoạt động của Giáo Viên Hđ của HS Nội dung bài giảng
1. Nêu nội dung, mục đích yêu cầucủa vd1 của vd1
Chtrình này các em đã viết, hãy cho biếtcó hạn chế nào trong chtrình của em không?
- Hãy nêu ra hướng giải quyết của các em .
- Y/cầu hs về nhà hoàn thiện chtrình.
2. Nêu nội dung, mục đích yêu cầucủa bài tập vd2. của bài tập vd2.
- Hãy nêu các bước chính để trả lời nghiệm pt bậc hai?
1. Chú ý dẫn dắt của gvKhi nhập độ dài âm thì cho Khi nhập độ dài âm thì cho ra dtích, chu vi âm. Điều này không có trong thực tế - Dùng câu lệnh rẽ nhánh để kiểm tra giá trị độ dài các cạnh. Nếu độ dài dương thì tính dtích và chu vi, ngược lại thì thông báo độ dài Sai.
2. Ghi đề bài, chú ý mụcđích, y/cầu của bài tập . đích, y/cầu của bài tập .
+ Tính delta
+ Nếu delta<0 thì pt vô nghiệm + Nếu delta >=0 thì kết luận pt có nghiệm: x1=(-b+sqrt(delta))/(2*a) Vd1: Viết chương trình nhập vào độ dài 2 cạnh của một hình chữ nhật, tính chu vi, diện tích của hcn đó. Vd2: Tìm nghiệm của pt bậc hai: ax2+bx+c=0 Program ptbac2; Var a, b, c, d, x1, x2: real; Begin