Tiãút 13: Tiãút 13: §10 CÁÚU TRỤC LÀÛP §10 CÁÚU TRỤC LÀÛP (T1) (T1) *Nháûn xẹt: Bi 1: Säú láưn làûp chỉ a biãút trỉ åïc,nhỉ ng viãûc cäüng vo täøng kãút thục khi 1/n<E Bi 2:Säú láưn làûp l 100 v viãûc cäüng vo täøng kãút thục khi â thỉ ûc hiãûn viãûc cäüng 100 láưn -Cáúu trục làûp phán thnh 2 loải: +làûp våïi s äú láưn chỉ a biãút trỉ åïc +làûp våïi s äú láưn biãút trỉ åïc -Cạc NNLT âãưu cọ cáu lãûnh âãø mä t cáúu trục làûp. Tióỳt13: Tióỳt13: Đ10CUTRUẽCLP Đ10CUTRUẽCLP (T1) (T1) 1.LP: 2.LP VẽI S LệN CHặA BIT TRặẽC VAè CU LNH WHILE-DO: a/Baỡi toaùn: *Xaùc õởnh baỡi toaùn: Input: s ọỳ E Output: Tọứng S *Tọứ chổ ùc dổ ợ lióỷu: . 1 . 3 1 2 1 1 +++++= n S Cho õóỳn khi 1/n < E, E laỡ s ọỳ thổ ỷc vọ cuỡng nhoớ nhỏỷp vaỡo tổ ỡ baỡn phờm Tờnh vaỡ õổ a kóỳt quaớ ra maỡn hỗnh tọứng: Bióỳn E,S:real,n:byte 3.Thuỏỷt toaùn: S Kóỳt thuùc Kóỳt thuùc Bừt õỏửu Bừt õỏửu Nhỏỷp E Nhỏỷp E S :=0; n := 1; S :=0; n := 1; 1/n>=E 1/n>=E S:= S+ 1/n; n:=n+1; S:= S+ 1/n; n:=n+1; In tọứng S In tọứng S * Cáúu trục: WHILE <Âiãưu kiãûn> DO <Cáu lãûnh cáưn làûp>; Tiãút 13: Tiãút 13: §10 CÁÚU TRỤC §10 CÁÚU TRỤC LÀÛP (T1) LÀÛP (T1) B/Cáu lãûnh While-Do: * Gii thêch: -WHILE, DO : tỉ ì khoạ -<Âiãưu kiãûn>: Âiãưu kiãûn âãø làûp lải: Biãøu thỉ ïc logic -<Cáu lãûnh cáưn làûp> l mäüt cáu lãûnh âån hồûc ghẹp *Sỉ û thỉ ûc hiãûn: *Så âäư thỉ ûc hiãûn: b1:Tênh giạ trë ca <âiãưu kiãûn> S  Cáu lãûnh cáưn làûp Cáu lãûnh cáưn làûp Âiãưu kiãûn Âiãưu kiãûn b2:Nãúu <âiãưu kiãûn> cọ giạ trë âụng thç thỉ ûc hiãûn <cáu lãûnh cáưn làûp>, quay lải b1 S  Cáu lãûnh cáön làûp Cáu lãûnh cáön làûp Âiãöu kiãûn Âiãöu kiãûn Tiãút 13: Tiãút 13: §10 CÁÚU TRUÏC §10 CÁÚU TRUÏC LÀÛP (T1) LÀÛP (T1) *Vê duû: -Âiãöu kiãûn âãø làûp: 1/n >=E -Lãûnh cáön làûp: S:=S+1/n n:=n+1 While 1/n >= E do Begin S:=S+1/n n:=n+1 end; 3.Thuỏỷt toaùn: S Kóỳt thuùc Kóỳt thuùc Bừt õỏửu Bừt õỏửu Nhỏỷp E Nhỏỷp E S :=0; n := 1; S :=0; n := 1; 1/n>=E 1/n>=E S:= S+ 1/n; n:=n+1; S:= S+ 1/n; n:=n+1; In tọứng S In tọứng S S Cỏu lóỷnh cỏửn lỷp Cỏu lóỷnh cỏửn lỷp ióửu kióỷn ióửu kióỷn Tióỳt13: Tióỳt13: Đ10CUTRUẽC Đ10CUTRUẽC LP(T1) LP(T1) Program TINHTONG1; VAR E,S: REAL; N: BYTE; BEGIN WRITE(HAY NHAP VAO GIA TRI CHO E); READLN(E); S:=0; N:=1 While 1/n >= E do Begin S:=S+1/n; n:=n+1; end; WRITELN(TONG CAN TIM LA, S:6:2); READLN; END. C/Chổ ồng trỗnh cho baỡi toaùn 1: Thuỏỷt toaùn baỡi tỗm USCLN: Kóỳt thuùc Kóỳt thuùc S Bừt õỏửu Bừt õỏửu Nhỏỷp A,B Nhỏỷp A,B In USCLN laỡ A In USCLN laỡ A A<>B A<>B A:=A - B A:=A - B S A>B A>B B:=B - A B:=B - A Cáu1: haîy cho biãút kãút quaí cuía âoaûn chæ ång trçnh s au: . A:=5; B:=7; WHILE A>B DO B:=B+2; B:=B-2; WRITE(‘B=‘, B); . A.7 B. 5 C.11 D.9 Cáu 2: haîy cho biãút kãút quaí cuía âoaûn chæ ång trçnh s au: . A:=6; B:=4; WHILE A<>B DO IF A>B THEN A:=A-B ELSE B:=B-A; WRITE(‘B=‘, B); . A. 2 B. 6 C. 4 D. 0 [...]...CÁÚU TRUÏC LÀÛP LÀÛP VÅÏI S ÄÚ LÁÖN CHÆA BIÃÚT TRÆÅÏC LÀÛP VÅÏI S ÄÚ LÁÖN BIÃÚT TRÆÅÏC CÁU LÃÛNH WHILE – D0 CÁU LÃÛNH FORDO S CÁÚU TRUÏC: WHILE DO ; Âiãö u kiãûn  Cáu lãûnh c áö n làûp . WHILE – D0 CÁU LÃÛNH WHILE – D0 CÁU LÃÛNH FOR- DO CÁU LÃÛNH FOR- DO CÁÚU TRUÏC: WHILE <ÂIÃÖU KIÃÛN> DO <cáu lãûnh cáön làûp>; CÁÚU TRUÏC: WHILE. WHILE A>B DO B:=B+2; B:=B-2; WRITE(‘B=‘, B); . A.7 B. 5 C.11 D.9 Cáu 2: haîy cho biãút kãút quaí cuía âoaûn chæ ång trçnh s au: . A:=6; B:=4; WHILE