V. Dặn dũ: (2phỳt) Về nhà học bài, kết hợp SGK.
Tiết 32: 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:
T/g Hoạt động của thầy Hoạt động của trũ Nội dung
19p + 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.
+ Học sinh chỳ ý lắng nghe.
+ Viết và gừ chương trỡnh vào mỏy.
Program Ai_cao_hon;
1. ễn lại cõu lệnh điềukiện: kiện:
19p
- Lưu chương trỡnh với tờn aicaohon.pas. Dịch và sửa lỗi chương trỡnh
+ Hoạt động 2: 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
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 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 ;