IV. Tiến trỡnh dạy và học: 1 Ổn định lớp:
6. Rỳt kinh nghiệm
... ...
Tuần: 16 Ngày soạn: 2/12/2012
Tiết: 32 Ngày giảng: 6/12/2012
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:
- 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ị:
- GV: SGK, giỏo ỏn, tài liệu tham khảo
- Chuẩn bị phũng thực hành đủ số mỏy hoạt động tốt - HS: Học kỹ lý thuyết, đọc trước bài thực hành
III. Phương phỏp:
- Phõn nhúm Hs thực hành.
- Đặt vấn đề, đưa ra yờu cầu để học sinh trao đổi và thực hành trờn mỏy.
- Gv quan sỏt, hướng dẫn cỏc núm thực hành, nhận xột cụng việc của từng nhúm.
IV. Tiến trỡnh dạy và học:1. Ổn định lớp 1. Ổn định lớp
2. Phõn việc cho từng nhúm thực hành.3. Bài mới: 3. Bài mới:
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; Var long, trang: real; Begin
Writeln(‘ nhap chieu cao cua Long’); Readln(long);
Writeln(‘nhap chieu cao cua Trang’); Readln(trang);
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’);
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/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
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.
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. 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.