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
- 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ều 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.
- 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ức
2. Hướng dẫn về nhà
Xem lại cỏc bài trước tiết sau ụn tập
--- ---
Tiết: 30 Ngày Soạn: 23/11/2011
Tuần: 15 Ngày dạy : 25/11/2011
ễ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.