GIẠO ẠN TIN HC 11 szp1372512051.doc Ngy soản: Monday, October 22th, 2007 Bi 2 Cáu lãûnh làûp FOR I. MỦC TIÃU: 1. Kiãún thỉïc : Nàõm vỉỵng cụ phạp, cạch thỉûc hiãûn ca cáu lãûnh làûp FOR. 2. K nàng: Hc sinh cọ thãø sỉí dủng lãûnh FOR trong láûp trçnh. 3. Thại âäü: Hc sinh têch cỉûc ch âäüng, nghiãm tục, chênh xạc trong nghiãn cỉïu khoa hc. 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: Cụ phạp, så âäư khäúi v cạch thỉûc hiãûn cáu lãûnh làûp WHILE 3. NÄÜI DUNG BI MÅÏI: 3.1. Âàût váún âãư: Nhỉỵng hiãûn tỉåüng làûp âi làûp lải våïi säú láưn âënh trỉåïc trong chỉång trçnh ngän ngỉỵ Pascal thãú no? 3.2. Triãøn khai bi: NÄÜI DUNG PHỈÅNG PHẠP GING DẢY I. BI TOẠN: Li sút k=0.01, säú tiãưn (ban âáưu): A Gåíi trong N thạng. Hi tiãưn cáưn rụt ra? 1. Dỉỵ liãûu vo ra: Input : Väún A, Säú thạng N, K Output : Säú tiãưn (A sau N thạng) 2. Täø chỉïc dỉỵ liãûu: Hàòng: K=0.01 Biãún: A: Säú thỉûc; N,T: Säú ngun 3. tỉåíng gii thût Väún thạng sau A:= A + A*K Làûp lải N láưn tênh (tỉì T:=1 âãún N) II. CÁU LÃÛNH LÀÛP FOR 1. Cụ phạp : FOR <Biãún âãúm>:=<V1> TO <V2> DO S <Cáu lãûnh >[;] Trong âọ: For, to,do: Tỉì khoạ V1, V2: Cạc giạ trë Ngun, Char Biãún âãúm: Kiãøu Ngun, Char CẠP XN TỤ dhghs@dng.vnn.vn TIÃÚT 15 Biãún<=V2 Cáu lãûnh Biãún := V1 Biãưn:=Biãún + 1 Biãún<V2 GIẠO ẠN TIN HC 11 szp1372512051.doc 2. Så âäư khäúi: 3. Thỉûc hiãûn lãûnh: B1: Gạn Biãún âãúm:= V1 B2: Kiãøm tra Biãún âãúm <= V2 B3: Nãúu Âụng thç : Thỉûc hiãûn <Cáu lãûnh> B4: Nãúu Biãún âãúm<V2 thç: 1) Tàng Biãún âãúm:= Biãún âãúm + 1 2) Quay vãư bỉåïc 2 B4: Kãút thục lãûnh FOR 4. Vê dủ: 5. Ghi chụ: Thỉûc hiãûn cäng viãûc <Cáu lãûnh> trong mäüt säú láưn làûp hỉỵu hản. Säú láưn làûp = <V2> - <V1>+1 <Bt1> l giạ trë âáưu , <Bt2> l giạ trë cúi ca biãún âãúm Biãún âãúm phi cọ kiãøu säú ngun Integer hồûc Char III. CHỈÅNG TRÇNH: IV. VÊ DỦ ỈÏNG DỦNG Bi 1: Tênh täøng S = 1+2 + 3 + . + n N nháûp vo tỉì bn phêm. PROGRAM VD40; VAR N,S,I: integer; BEGIN WRITELN( Nhap säú N: ); ‘ ’ READLN(N); S:=0; For I:=1 TO N DO S:=S+i; WRITE( Täøng S = , s); ‘ ‘ READLN; END. Vê dủ: FOR T:=1 TO N DO A:=A+A*K; FOR CHU:='A' TO 'Z' DO WRITE(CHU:2); Bi 2: Tçm nghiãûm ngun dỉång ca phỉång trçnh 2x+y=10 PROGRAM VD; VAR X,Y: integer; BEGIN FOR X:=0 TO 5 DO FOR Y:=0 TO 10 DO IF 2*X+Y=10 THEN Begin writeln( x= ,x); ‘ ‘ writeln( y= ,y);‘ ‘ writeln( ****** );‘ ‘ End; READLN; END. 4. CNG CÄÚ: Cáúu trục ca cáu lãûnh FOR 5. DÀÛN D: Bi táûp vãư nh: Bi táûp WHILE viãút thnh cáu lãûnh FOR Bi 1: Âäøi tiãưn: Bao nhiãu cạch âäøi 20 âäưng ra cạc tiãưn cọ mãûnh giạ 5,2,1 Bi 2: G + chọ = 36, chán g + chán chọ = 100 Bi 3: In ra cạc kê tỉû chỉỵ hoa tỉì 'A' âãún 'Z' CẠP XN TỤ dhghs@dng.vnn.vn . Char CẠP XN TỤ dhghs@dng.vnn.vn TIÃÚT 15 Biãún<=V2 Cáu lãûnh Biãún := V1 Biãưn:=Biãún + 1 Biãún<V2 GIẠO ẠN TIN HC 11 szp1372512051.doc 2. Så âäư khäúi:. GIẠO ẠN TIN HC 11 szp1372512051.doc Ngy soản: Monday, October 22th, 2007 Bi 2 Cáu lãûnh