C. TIÊN TRÌNH LEĐN LỚP:
a/ Gõ chương trình b/Lưu Pro và sửa loêi.
b/Lưu Pro và sửa loêi.
c/ Cháy Pro với boơ dữ lieơu (1.5,1.6), (1.6,1.5) và (1.6,1.6). Nxét và tìm ra choê chưa đúng (1.6,1.6). Nxét và tìm ra choê chưa đúng
- Nêu Long<Trang đúng thì “Ban Trang cao hon”. Nêu sai thì “Hai ban cao bang nhau”.
- Nêu Long>Trang là đúng thì “Ban Long cao hon” và xét đên Đk 2 Long< Trang mà sai thì “Hai ban cao bang nhau”. Đađy chính là loêi khi đưa ra kêt quạ.
Ta có theơ sửa lái như sau:
If Long> Trang then Writeln(‘Ban Long cao hon’); If Long = Trang then Writeln(‘Hai ban cao bang nhau’);
If Long <Trang then Writeln(‘Ban Trang cao hon’);
Hs: Thực hieơn gõ lái Pro và cháy lái boơ Pro tređn.
như sau:
If Long>Trang then Writeln(‘Ban Long cao hon’) else if Long<Trang then Writeln(‘Ban Trang cao hon’) else
Writeln(‘Hai ban cao bang nhau’);
d/Sửa lái cho đúng Pro.
TIÊT 31
HỐT ĐOƠNG 3: Tìm hieơu cách kêt hợp nhieău phép so sánh và giại quyêt bài toán 3
Gv: Neđu cú pháp phép And và giá trị cụa nó.
Hs: Xác định tính đúng sai cụa phép so sánh
Gv: Neđu cú pháp phép And và giá trị cụa nó.
Hs: Xác định tính đúng sai cụa phép so sánh
Gv: Giại thích cho Hs hieơu veă đieău kieơn đeơ 3 sô a,b,c là 3 cánh cụa tam giác.
Hs: Thực hieơn gõ Pro và tìm hieơu các leơnh
A.Tìm hieơu cách kêt hợp các phép so sánh a. Phép And
Cp: <SS1> and (SS2) and <SS3> ....
Giá trị cụa phép And chư đúng khi tât cạ các so sánh đeău đúng.
Vd: (2>1) and (3>=3): Đúng (2=3) and (2>1): Sai b. Phép Or
Cp: <SS1> Or (SS2) Or <SS3> ....
Giá trị cụa phép Or chư đúng khi moơt trong các SS là đúng.
Vd: (5 div 2 =1) or (5 mod 2 = 1): Đúng (5 mod 5 <>0) or (5 div 4=2): Sai
Bài 3: Sgk
Cháy thử Pro với boơ DL 3 sô a,b,c: (3,5,6), (2,6,8), (4,7,1), (3,4,5) và (6,7,8).
Lưu chương trinh : Tam_giac.Pas
HỐT ĐOƠNG 4: Viêt chương trình giại và bieơn luaơn phương trình baơc nhât bx + c=0
Hs: Neđu ra thuaơt toán đã được hĩc Gv: Nx và Y/c Hs viêt Pro
*Action Program Ptb1; Uses crt; Var b,c:Real Begin Write(‘Nhap a:’);Readln(b); Write(‘Nhap b:’);Readln(c); If b<>0 then 1.Tìm thuaơt toán Thuaơt toán:
Bước 1: Nêu b = 0 chuyeơn tới bước 3.
Bước 2: Tính nghieơm pt x= -c/b, chuyeơn sang bước 4.
Bước 3: Nêu c =0, thođng báo chương trình đã cho vođ sô nghieơm. Ngược lái (c = 0), thođng báo phương trình có vođ nghieơm.
Writeln(‘Nghiem phuong trinh la:’,-b/a:4:2) Else if c=0 then Writeln(‘Pt co vo so nghiem’)
Else writeln(‘Phuong trinh vo nghiem’); Readln;
End.
IV.Cụng cô:
- Sys lái các bài toán đã thực hieơn.
V. Daịn dò, hướng dăn hĩc sinh hĩc taơp ở nhà
- Y/c hs veă nhà hĩc bài chuaơn bị cho tiêt kieơm tra thực hành saĩp tới.
TUAĂN 16 Ngày sốn: 01/12/2008
TIÊT 32 Ngày kieơm tra: 09/12/2008