TIÃÚT 16 Ngy soản: Monday October 29th 2007 CÁU LÃÛNH LÀÛP BI TÁÛP I MỦC TIÃU: Kiãún thỉïc : Cng cäú kiãún thỉïc vãư cáu lãûnh WHILE, FOR Âäưng thåìi cng cäú kiãún thỉïc vãư cạc âäúi tỉåüng TP â hc K nàng: Hc sinh cọ thãø sỉí dủng cạch biãøu thỉïc chỉång trinh Thại âäü: Hc sinh têch cỉûc ch âäüng, nghiãm tục, chênh xạc nghiãn cỉïu khoa hc II TRNG TÁM KIÃÚN THỈÏC Cạch sỉí dủng caùc cỏu lóỷnh vóử lỏỷp trỗnh õỷc bióỷt laỡ cỏu lãûnh While, For III CHØN BË GIẠO CỦ: Giạo viãn : Chn bi táûp, cạc bi táûp måí räüng náng cao Hc sinh: Lm cạc bi táûp â åí nh IV TIÃÚN TRÇNH BI DẢY: ÄØN ÂËNH LÅÏP-KIÃØM TRA SÉ SÄÚ: KIÃØM TRA BI C: NÄÜI DUNG BI MÅÏI: 3.1 Âàût váún âãư: Luûn táûp cáu lãûnh làûp våïi säú láưn âënh trỉåïc 3.2 Triãøn khai bi: HOẢT ÂÄÜNG CA THÁƯY NÄÜI DUNG KIÃÚN THỈÏC V TR I L THUÚT: Hc sinh lãn bng gii bi táûp WHILE DO GV hoaìn thiãûn , cho âiãøm Cäng viãûc: FOR biãún:= GT1 TO GT2 DO Xạc âënh dỉỵ liãûu vo, Cạc bỉåïc gii thût FOR biãún:= GT1 DOWNTO GT2 Kiãún thỉïc: Cụ phạp khai bạo DO Cụ phạp lãûnh II BI TÁÛP: Cạch âàût tãn Biãún, hàịng Bi 1: Tỗm USCLN cuớa sọỳ nguyón dổồng M, N (trang 47 - SGK) Dỉỵ liãûu vo ra: Vo : Säú M, N Ra : USCLN Täø chæïc dỉỵ liãûu: N,M : Säú ngun; Gii thût: Chỉỵa lải så âäư khäúi cho ph håüp våïi cáu lãûnh WHILE Chổồng trỗnh: (HOĩC SINH xem saùch) Baỡi 2: Dỉûa vo Vê dủ - trang 46 - SGK täøng 1 S= + + + 2∗ i täøng dỉìng ai=1/(2*i) < 0.001 Baìi 3: Baìi - trang 51 - SGK Gaì + chọ = 36 2*g + 4*chọ = 100 TỈÅÍNG FOR dog:=1 TO 24 DO BEGIN cock:=36-DOG; IF (2*cock + 4*dog = 100) THEN Begin writeln('So ga:', cock); writeln('So cho:', dog); End; END; Baỡi 4: Tỗm sọỳ coù chỉỵ säú m chia cho dỉ v täøng cạc chỉỵ säú = 20 Hỉåïng dáùn: abc Gi säú âọ l = 100*a+10*b+c (100*a+10*b+c) MOD = vaì a + b + c =20 Hoüc sinh lãn bng gii bi táûp GV hon thiãûn , cho âiãøm Cäng viãûc: Xạc âënh dỉỵ liãûu vo, Cạc bỉåïc gii thût Kiãún thỉïc: Cụ phạp khai bạo Cụ phạp lãûnh Cạch âàût tãn Biãún, hàòng FOR cock:=1 TO 35 DO FOR dog:=1 TO 24 DO IF (2*cock + 4*dog = 100) and (cock+dog=36) THEN Begin writeln('So ga:', cock); writeln('So cho:', dog); End; FOR a:=1 TO DO FOR b:=0 TO DO FOR c:=0 TO DO IF ((100*a+10*b+c) MOD = 2) ANDì (a + b + c =20) THEN writeln('So: ',a,b,c); Baìi 5: Baìi säú - trang 51 SGK Hæåïng dáùn: B1: Nháûp CHA,CON B2: Nam:=0; B3: Trong CHA < 2*CON làûp laûi: a Cha := cha+1; b Con:= +1; c: Nam:= Nam +1 B4 In säú: Nam B5: Kãút thục CNG CÄÚ: DÀÛN D: Vãư nh lm cạc bi táûp â cho åí SGK v BT