- Về nhà học bài kết hợp sách giáo khoa.
Tiết 29: Bài thực hành số 4 (tt)
SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF...THEN
I. Mục tiêu:1. Kiến thức: 1. Kiến thức:
- Luyện tập sử dụng câu lệnh If...then 2. Kĩ năng:
- Rèn kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa của thuật toán sử dụng trong chương trình
3. Thái độ:
- Thái độ học tập nghiêm túc, yêu thích môn học.
II. Chuẩn bị:
Nội dung bài thực hành, máy tính điện tử.
III. Tiến trình thực hành:
Hoạt động của GV Hoạt động của HS Nội dung
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;
End.
+ Học sinh lưu, sửa lỗi và chạy
1. Ôn lại câu lệnh điều kiện: kiện:
aicaohon.pas. Dịch và sửa lỗi chương trình
Làm bài tập 3/53
- 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
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. Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm program sapxep ; uses crt ;
var a,b : integer ; begin clrscr ; write(‘ nhap so a : ‘) ; readln(a) ; write(‘ nhap so b : ‘) ; readln(b) ; if a < b then write(a,’ ‘,b) else writeln(b,’ ‘,a) ; readln ; IV. Nhận xét (5 phút)
Giáo viên nhận xét và đánh giá tiết thực hành.
V. Dặn dò: (2 phút)
- Về nhà xem lại bài, tiết sau làm bài tập