II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH 1 GV:Sỏch giỏo khoa, mỏy tớnh điện tử.
1.Củng cố: giảng giải thờm cỏc bài tập cho học sinh nắm lại kiến thức 2 Hướng dẫn về nhà
2. Hướng dẫn về nhà
- Tiết sau thực hành: “ Bài thực hành số 4” (tt)
Tiết 28 Ngày soạn: 06 /12 /2014
Ngày dạy : 08-10/ 12 /2014
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 CẦN ĐẠT
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Ị CỦA GIÁO VIấN VÀ HỌC SINH
1. GV:Nội dung bài thực hành, mỏy tớnh điện tử. 2. HS: Sỏch ,vở,bỳt.
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp: kiểm tra sĩ số hs 1. Ổn định lớp: kiểm tra sĩ số hs
2. Kiểm tra bài cũ 3. 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.
+ 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.
1. ễn lại cõu lệnh điềukiện: kiện:
- Lưu chương trỡnh với tờn aicaohon.pas. Dịch và sửa lỗi chương trỡnh
+ 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.
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
+ 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. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ
1. Củng cố: giảng giải thờm cỏc bài tập cho học sinh nắm lại kiến thức2. Hướng dẫn về nhà 2. Hướng dẫn về nhà
Tiết 29 Ngày soạn: 12 /12 /2014 Ngày dạy : 15-17 / 12 /2014 ễN TẬP I. MỤC TIấU: 1. Kiến thức: - Sử dụng cỏc kiến thức đĩ học để làm một số bài tập 2. Kĩ năng:
- Rốn luyện kĩ năng sử dụng cỏc cõu lệnh trong Pascal 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:Nội dung bài tập, mỏy tớnh điện tử. HS: Sỏch ,vở,bỳt.