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Ụ
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ẽ