Ngy soản: Monday, November 19th 2007 TIÃÚT 22 MNG CHIÃƯU BI TÁÛP I MỦC TIÃU : Kiãún thỉïc : Cng cäú kiãún thỉïc vãư kiãøu biãún mng chiãưu Âäư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 II TRNG TÁM KIÃÚN THỈÏC Caùch sổớ duỷng caùc cỏu lóỷnh vóử lỏỷp trỗnh õỷc biãût l cáu lãûnh 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 õaợ ồớ nhaỡ IV TIN TRầNH BAèI DAY: ÄØN ÂËNH LÅÏP-KIÃØM TRA SÉ SÄÚ: KIÃØM TRA BAèI CUẻ: NĩI DUNG BAèI MẽI: PHặNG PHAẽP GIANG NÄÜI DUNG DẢY Hc sinh lãn bng gii bi tỏỷp Baỡi 1: Tờnh nhióỷt õọỹ trung bỗnh GV hoaìn thiãûn , cho âiãøm nàm biãút nâ TB ca 12 thạng Cäng viãûc: Xạc âënh dỉỵ liãûu vo, VAR A: ARRAY[1 12] OF REAL; Cạc bỉåïc gii thût Dem, I: integer; S,TB: Real; Kiãún thỉïc: Cụ phạp khai bạo Cụ phạp lãûnh FOR i:=0 TO 12 DO Caïch âàût tãn Biãún, hàòng Begin Write('A[' ,i, ' ]='); Readln(A[i]); Dem:=0; S:=0; FOR i:=0 TO 12 DO end; Dem:=0; S:=0; IF a[i]>0 then Dem:=Dem+1; FOR i:=0 TO 12 DO Writeln('So phan tu duong: ' , dem); IF a[i]>0 then Begin FOR i:=0 TO 12 DO Dem:=Dem+1; IF a[i]>0 then S:=S+a[i]; tb:=S/dem; S:=S+a[i]; Writeln('TB phan tu duong: ' , End; TB:10:2); Writeln('So phan tu duong: ' , dem); TB:=S/dem; Writeln('TB phan tu duong: ' , TB:10:2); Baìi 2: VAR F: ARRAY[1 10] OF INTEGER; I: integer; F[1]:=1; F[2]:=1; FOR i:=3 TO 10 DO f[i]:=f[i-1]+f[i-2]; FOR i:=1 TO 10 DO Write(F[i]:5); Baìi 3: VAR A: ARRAY[1 100] OF Integer; I: integer; S1,s2,p3: real; FOR i:=1 TO 100 DO a[i]:=i*i+2; S1:=0; s2:=0; p3:=1; FOR i:=1 TO 100 DO IF a[i] MOD = then S1:=S1+a[i]; FOR i:=1 TO 100 DO IF a[i] MOD = then S2:=S2+SQRT(a[i]); FOR i:=20 TO 35 DO P3:=p3*a[i]; Writeln('Täøng pt chia het cho 3: ',S1:12:0); Writeln('Täøng can bac pt chia du 4: ',S2:15:2); Writeln('Tich pt tu 20 den 35: ',P3:12:0); Hoüc sinh lãn baíng 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 Bi 4: Cho mng A cọ n pháưn tỉí sọỳ thổỷc tỗm giaù trở lồùn nhỏỳt (baỡi tỏỷp laỡm thãm) CNG CÄÚ: DÀÛN D: Vãư nh lm cạc bi táûp â cho åí SGK v BT