Thao gi ảng ch m ừng ng ày nh giáo Vi ệt Nam 20-11 TỔ: TIN HỌC Giáo viên: Phan Thị Phương Tuyền M Ng ày 12 tháng 11 n ăm TÄØ CHỈÏC LÀÛP Bi Tiãút thỉï BI TÁÛP LÀÛP VÅÏI SÄÚ LÁƯƯN CHỈA BIÃÚT TRỈÅÏC I L Cụ phạp: thuút: WHILE DO ; Gii thêch: * WHILE, DO: Tỉì khoạ lãûnh * Âiãưu kiãûn: Mäüt biãøu thỉïc quan lãû hồû * Cáu lãûnh : Laì cáu lãûnh TP thuút: Så âäư khäúi: Âiãưu kiãûn Âụng Cáu lãûnh Sai thuút: Cạc bỉåïc thỉûc hiãûn lãûnh: Bỉåïc 1: Tênh giạ trë v kiãøm tra Âiãưu kiãûn Bỉåïc 2: Nóỳu ióửu kióỷn õuùng thỗ thổỷc hióỷn cỏu lóỷnh, rọửi quay lãn lải bỉåïc Bỉåïc 3: Kãút thục cáu lãûnh thuút Chụ : * Nãúu Âiãưu kiãûn ban õỏửu laỡ Sai thỗ cỏu lóỷnh seợ khọng õổồỹc thổỷc hiãûn láưn no * Nãúu Âiãưu kiãûn ln nháûn giạ trở uùng thỗ cỏu lóỷnh lỷp vọ haỷn * Traùch lỷp vọ haỷn thỗ phaới coù cỏu lóỷnh laỡm thay âäøi giạ trë ca Âiãưu kiãûn II CẠC BI TOẠN: Bi 1: Nháûp tỉì bn phêm hai säú ngun dỉång A v âỉa kãút qu ỉåïc säú chung låïn nháút  Phán têch bi toạn: Âải lỉåüng vo/ra: Input : Output: Hai säú A,B USCLN(A,B) 2.Täø chỉïc dỉỵ liãûu: Biãún: A,B: Säú nguyãn 3.Så âäö khäúi: Bàõt âáöu Nháûp A,B Sai AB Âuïng A := A - B Âụng A>B USCLN L A Kãút thục Sai B := B - A Chổồng trỗnh: PROGRAM USCLN; USES CRT; VAR A , B : WORD; BEGIN CLRSCR; WRITE('NHAP SO NGUYEN DUONG A:'); READLN(A); WRITE('NHAP SO NGUYEN DUONG B:'); READLN(B); WHILE AB DO IF A>B THEN A:=A-B ELSE B:=B-A; WRITELN('UOC SO CHUNG LON NHAT LA:',A); READLN END 5 CHẢY THỈÍ CHặNG TRầNH: II.CAẽC BAèI TOAẽN: Baỡi Tờnh tọứng: S = 1+ 1/3 + 1/5+ + 1/(2n - 1) Cho âãún 1/(2n-1) < E * E laì mäüt säú vä cng bẹ nháûp tỉì bn phêm  Phán têch bi toạn: Âải lỉåüng vo/ra: Input: Nháûp säú E vä cng bẹ Output: Täøng S 2.Täø chỉïc dỉỵ liãûu: Biãú n: E,S: säú thỉûc 3.Så âäư khäúi: Bắt đầu Nhập E S:=1; I:=2 1/(2*I –1)>=E I:=I+1 Đúng S:=S+1/(2 * I-1) In S Kt thỳc Sai 4.Chổồng trỗnh: PROGRAM TINH_TONG; USES CRT; VAR E, S: REAL; I:INTEGER; BEGIN CLRSCR; WRITELN('NHAP SO E:’ ); READLN(E); I:=2; S:=1; WHILE (1/(2*I-1))>=E DO BEGIN S:=S+1/(2*I-1); I:=I+1; END; WRITELN('TONG S = ',S:8:2); READLN END 5 Chaỷy thổớ chổồng trỗnh: II.CAẽC BAèI TOAẽN: Baỡi Nháûp vo säú tỉû nhiãn N v xem cọ phi l säú ngun täú hay khäng  Phán têch bi toạn: Âải lỉåüng vo/ra: Input: Nháûp säú tỉû nhiãn N Kiãøm tra säú N cọ phi l säú NT? Output: 2.Täø chỉïc dỉỵ liãûu: Biãú n: N, i: Säú ngun dỉång 3.Så âäư khäúi: àõt âáưu B Nháûp N I:=2 Sai N Mod I0 Âuïng Âuïng I =N Sai I:=I+1 N l säú NT N khäng NT Kãútthục 4.Chổồng trỗnh: PROGRAM KT_SONT; USES CRT; VAR N,I : INTEGER; BEGIN WRITE('NHAP SO TU NHIEN N: '); READLN(N); I:=2; WHILE N MOD I 0 DO I:=I+1; IF I=N THEN WRITELN('SO:', N, ' LA SO NGUYEN TO') ELSE WRITELN('SO:',N, ' KHONG PHAI LA SO NGUYEN TO'); READLN; END 5 Chảy thỉí chổồng trỗnh: Thao gi ng ch o m ng ng ày nh giáo Vi ệt Nam 20-11 TỔ: TIN HỌC Giáo viên: Phan Thị Phương Tuyền M Ng ày 12 tháng 11 n ăm ... thỉï BI TÁÛP LÀÛP VÅÏI SÄÚ LÁƯƯN CHỈA BIÃÚT TRỈÅÏC I L Cụ phạp: thuút: WHILE DO ; Gii thêch: * WHILE, DO: Tỉì khoạ lãûnh * Âiãưu kiãûn: Mäüt biãøu thỉïc quan lãû hồû... CLRSCR; WRITE(''NHAP SO NGUYEN DUONG A:''); READLN(A); WRITE(''NHAP SO NGUYEN DUONG B:''); READLN(B); WHILE AB DO IF A>B THEN A:=A-B ELSE B:=B-A; WRITELN(''UOC SO CHUNG LON NHAT LA:'',A); READLN END... USES CRT; VAR E, S: REAL; I:INTEGER; BEGIN CLRSCR; WRITELN(''NHAP SO E:’ ); READLN(E); I:=2; S:=1; WHILE (1/(2*I-1))>=E DO BEGIN S:=S+1/(2*I-1); I:=I+1; END; WRITELN(''TONG S = '',S:8:2); READLN END