TIết 22 - Tin học 11

GIẠO ẠN TIN HC 11 zhd1372512061.doc Ngy soản: Monday, November 19th 2007 MNG 1 CHIÃƯU BI TÁÛP I. MỦC TIÃU : 1. Kiãún thỉïc :  Cng cäú kiãún thỉïc vãư kiãøu biãún mng 1 chiãưu  Âäưng thåìi cng cäú kiãún thỉïc vãư cạc âäúi tỉåüng trong TP â hc 2. K nàng:  Hc sinh cọ thãø sỉí dủng cạch tênh biãøu thỉïc trong chỉång trinh. II. TRNG TÁM KIÃÚN THỈÏC  Cạch sỉí dủng cạ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 â ra åí nh. IV. TIÃÚN TRÇNH BI DẢY: 1. ÄØN ÂËNH LÅÏP-KIÃØM TRA SÉ SÄÚ: 2. KIÃØM TRA BI C: 3. NÄÜI DUNG BI MÅÏI: NÄÜI DUNG PHỈÅNG PHẠP GING DẢY Bi 1: Tênh nhiãût âäü trung bçnh trong nàm biãút nâ TB ca 12 thạng VAR A: ARRAY[1 12] OF REAL; Dem, I: integer; S,TB: Real; . FOR i:=0 TO 12 DO Begin Write('A[' ,i, ' ]='); Readln(A[i]); end; Dem:=0; S:=0; FOR i:=0 TO 12 DO IF a[i]>0 then Begin Dem:=Dem+1; S:=S+a[i]; End; Writeln('So phan tu duong: ' , dem); TB:=S/dem; Writeln('TB phan tu duong: ' , TB:10:2);  Hc 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, ra  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à à Dem:=0; S:=0; FOR i:=0 TO 12 DO IF a[i]>0 then Dem:=Dem+1; Writeln('So phan tu duong: ' , dem); FOR i:=0 TO 12 DO IF a[i]>0 then S:=S+a[i]; tb:=S/dem; Writeln('TB phan tu duong: ' , TB:10:2); CẠP XN TỤ dhghs@dng.vnn.vn TIÃÚT 22 GIAẽO AẽN TIN HOĩC 11 zhd1372512061.doc 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 3 = 0 then S1:=S1+a[i]; FOR i:=1 TO 100 DO IF a[i] MOD 7 = 4 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 2 pt chia 7 du 4: ',S2:15:2); Writeln('Tich pt tu 20 den 35: ',P3:12:0); Baỡi 4: Cho maớng A coù n phỏửn tổớ sọỳ thổỷc tỗm giaù trở lồùn nhỏỳt. (baỡi tỏỷp laỡm thóm) Hoỹc sinh lón baớng giaới baỡi tỏỷp GV hoaỡn thióỷn , cho õióứm Cọng vióỷc: Xaùc õởnh dổợ lióỷu vaỡo, ra Caùc bổồùc giaới thuỏỷt Kióỳn thổùc: Cuù phaùp khai baùo Cuù phaùp lóỷnh Caùch õ ỷt tón Bióỳn, h ũng 4. CUNG C: 5. DN DOè: Vóử nhaỡ laỡm caùc baỡi tỏỷp õaợ cho ồớ SGK vaỡ saùch BT CAẽP XUN TUẽ dhghs@dng.vnn.vn . TIÃÚT 22 GIAẽO AẽN TIN HOĩC 11 zhd1372512061.doc 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];. GIẠO ẠN TIN HC 11 zhd1372512061.doc Ngy soản: Monday, November 19th 2007 MNG 1 CHIÃƯU BI