III/ Chuẩn bị: 1. Chuẩn bị của GV: Chia nhúm HS, phũng mỏy,
2. Chuẩn bị của HS: Đọc trước bài ở nhà.
IV/ Hoạt động dạy học:
1/ Kiểm tra bài cũ:
?Cấu trỳc rẽ nhỏnh được sử dụng để làm gỡ?
? Trong lập trỡnh điều kiện trong cấu trỳc rẽ nhỏnh thường biểu diễn bằng những phộp nào?
(GV gọi HS lờn bảng trỡnh bày, gọi HS khỏc nhận xột) 2/ Bài mới:
Hoạt động của thầy Hoạt động của trũ Nội dung
+ Hoạt động 1: Làm bài
tập 2/53
- Viết chương trỡnh nhập chiều cao của hai bạn Long và Trang, in ra màn kết quả so sỏnh chiều cao của 2 bạn.
- Yờu cầu học sinh viết và gừ chương trỡnh vào mỏy.
- Lưu chương trỡnh với tờn
+ Học sinh chỳ ý lắng nghe.
+ Viết và gừ chương trỡnh vào mỏy.
Program Ai_cao_hon; Var long, trang: real; Begin
Writeln(‘ nhap chieu cao cua Long’); Readln(long); Writeln(‘nhap chieu cao cua Trang’); Readln(trang); If long>trang then
Writeln(‘bạn Long cao hon’);
If Long<trang then
Writeln(‘ban Trang cao hon’) else
Writeln(‘hai ban bang nhau’);
Readln;
1. Bài tập 2:
* Gừ chương trỡnh sau:
Program Ai_cao_hon; Var Long, Trang: real; Begin
Writeln(‘ nhap chieu cao cua Long’); Readln(Long); Writeln(‘nhap chieu cao
cua Trang’);
Readln(Trang);
If Long > Trang then
Writeln(‘bạn Long cao hon’);
If Long < Trang then
Writeln(‘ban Trang cao hon’) else
Writeln(‘hai ban bang nhau’);
Readln; End.
aicaohon.pas. Dịch và sửa lỗi chương trỡnh
+ Hoạt động 2: Làm bài
tập 3/54
- Dưới đõy là chương trỡnh nhập ba số dương a, b, c từ bàn phớm, kiểm tra và in ra màn hỡnh kết quả kiểm tra ba số đú cú thể là độ dài cỏc cạnh của một tam giỏc hay khụng.
- Tỡm hiểu ý nghĩa của cỏc cõu lệnh trong chương trỡnh.
- Dịch và chạy chương trỡnh
End.
+ Học sinh lưu, sửa lỗi và chạy chương trỡnh theo yờu cầu của giỏo viờn.
+ Gừ chương trỡnh vào mỏy.
Program
ba_canh_tam_giac; Var a,b,c: real; Begin
Write(‘nhap ba so a, b và c:’);
Readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
Writeln(‘a,b,c là ba cạnh của tam giỏc’) else
Writeln(‘a,b,c khong la ba canh cua tam giac’);
Readln; End.
+ Học sinh tỡm hiểu ý nghĩa của cỏc cõu lệnh trong chương trỡnh theo yờu cầu của giỏo viờn.
+ Nhấn F9 để dịch và nhấn Ctrl + F9 để chạy chương trỡnh. 2. Bài tập 3: * Gừ chương trỡnh sau: Program ba_canh_tam_giac; Var a,b,c: real; Begin
Write(‘nhap ba so a, b và c:’);
Readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
Writeln(‘a,b,c la ba cạnh cua tam giac:’) else
Writeln(‘a,b,c khong la ba canh cua tam giac.’);
Readln; End.
4. Củng cố (5 phỳt)
Giỏo viờn nhận xột và đỏnh giỏ tiết thực hành.
5. Dặn dũ: (2 phỳt)
- Về nhà xem lại bài, tiết sau làm bài tập
6. Rỳt kinh nghiệm
Tuần :
17 Ngày soạn:
Tiết: 33 Ngày giảng:
KIỂM TRA THỰC HÀNH 1 TIẾT
I/ Mục tiờu:
Đỏnh giỏ kiến thức của học sinh về: - Một số kiểu dữ liệu chuẩn. - Cỏch khai bỏo biến.
- Biểu thức quan hệ
- Cõu lệnh vào ra đơn giản.
- Cõu lệnh điều kiện: Dạng thiếu và đủ.