Tiãút 37: Chotháưy mỉìng qu cä â âãún dỉû tiãút hc häm ! TiãútKIÃØM TRA BI C 37: Tiãút 37: Lã Nguùn Thụy Hàòng Giạo viãn: Låïp: 11B1 Tiãút 37: HOẢT ÂÄÜNG NHỌM Bi táûp 1: Viãút chỉång trçnh nháûp tỉì bn phêm 10 säú ngun Ghi giạ trë ca 10 säú ngun vỉìa nháûp vo tãûp DATA.INP Bi táûp 2: Cho tãûp säú ngun DATA.INP Viãút chỉång trçnh âc dỉỵ liãûu tỉì tãûp trãn v in mn hçnh cạc säú tãûp Tiãút 37: HOẢT ÂÄÜNG NHỌM Bi 1: Viãút chỉång Bi 2: Cho tãûp säú trçnh nháûp tỉì bn ngun DATA.INP phêm 10 säú ngun Viãút chỉång trçnh Ghi giạ trë ca 10 âc dỉỵ liãûu tỉì säú ngun vỉìa tãûp trãn v in nháûp vo tãûp mn hçnh cạc säú HỈÅÏNG DATA.INP tãûp DÁÙN no cn - Nháûp giạ trë láưn Chỉìng lỉåüt cho 10 säú chỉa kãút thục tãûp ngun lỉu vo biãún n - Nháûp säú no ghi thç cn thỉûc hiãûn cäng viãûc: - Âc dỉỵ liãûu tỉì tãûp v in mn Tiãút 37: HOẢT ÂÄÜNG NHỌM NHỌM 2, NHỌM 1, Bi táûp 1: Viãút chỉång trçnh nháûp tỉì bn phêm 10 säú ngun Ghi giạ trë ca 10 säú ngun vỉìa nháûp vo tãûp DATA.INP Bi táûp 2: Cho tãûp säú ngun DATA.INP Viãút chỉång trçnh âc dỉỵ liãûu tỉì tãûp trãn v in mn hçnh cạc säú tãûp Tiãút 37: Bi táûp 1: Viãút chỉång trçnh nháûp tỉì bn phêm 10 säú ngun Ghi giạ trë ca 10 säú ngun vỉìa nháûp vo tãûp DATA.INP •Täø chỉïc dỉỵ liãûu: Bi táûp 2: Cho tãûp säú ngun DATA.INP Viãút chỉång trçnh âc dỉỵ liãûu tỉì tãûp trãn v in mn hçnh cạc säú tãûp •Täø chỉïc dỉỵ liãûu: -Biãún tãûp f -Biãún tãûp f -Biãún ngun n (lỉu giạ trë säú nháûp vo) -Biãún ngun n (lỉu giạ trë säú âỉåüc âc tỉì tãûp) -Biãún ngun i Tiãút 37: Bi táûp 1: Viãút chỉång trçnh nháûp tỉì bn phêm 10 säú ngun Ghi giạ trë ca 10 säú ngun baitap1; vỉìa nháûp vo Program tãûp DATA.INP Var n : integer; i : byte; f : text; begin assign(f,’DATA.INP’); rewrite(f); for i:= to 10 begin readln(n); write(f,n:5); end; close(f); end Bi táûp 2: Cho tãûp säú ngun DATA.INP Viãút chỉång trçnh âc dỉỵ liãûu tỉì tãûp trãn v in mn hçnh cạc säú Program baitap2; trongn: tãûp Var integer; f : text; begin assign(f,’DATA.INP’); reset(f); while not eof(f) begin read(f,n); write(n); end; close(f); end Tiãút 37: Bi táûp 3: Viãút chỉång trçnh âc dỉỵ liãûu tỉì tãûp säú ngun DATA.INP Tảo tãûp SOCHAN.TXT gäưm cạc säú chàơn cọ tãûp DATA.INP * tỉåíng: -Måí tãûp DATA.INP âãø âc dỉỵ liãûu -Måí tãûp SOCHAN.TXT âãø ghi dỉỵ liãûu -Âc dỉỵ liãûu tỉì tãûp DATA.INP: Kiãøm tra säú vỉìa âc âỉåüc, nãúu l säú chàơn thç âọ vo tãûp SOCHAN.TXT *ghi Täøsäú chỉïc dỉỵ liãûu: -Biãún tãûp f, g -Biãún n Tiãút 37: * Chỉång trçnh: Program baitap3; Var n,S,dem: integer; f,g : text; begin assign(f,’DATA.INP’); reset(f); assign(g,’SOCHAN.TXT’); rewrite(g); while not eof(f) begin read(f,n); If n mod = then write(g, n:3); end; close(f); close(g); end CÁU HI CNG CÄÚ Tiãút 37: Tiãút 37: BI TÁÛP VÃƯ NH Bäø sung bi táûp 3: Tênh täøng cạc säú chàơn v täøng cạc säú l tãûp DATA.INP, ghi kãút qu vo tãûp KQ.DAT Tiãút 37: ... DATA.INP Vi út chỉång trçnh âc dỉỵ liãûu tỉì tãûp trãn v in mn hçnh cạc säú tãûp Tiãút 37: HOẢT ÂÄÜNG NHỌM Bi 1: Vi út chỉång Bi 2: Cho tãûp säú trçnh nháûp tỉì bn ngun DATA.INP phêm 10 säú ngun Vi út...TiãútKIÃØM TRA BI C 37: Tiãút 37: Lã Nguùn Thụy Hàòng Giạo vi n: Låïp: 11B1 Tiãút 37: HOẢT ÂÄÜNG NHỌM Bi táûp 1: Vi út chỉång trçnh nháûp tỉì bn phêm 10 säú ngun Ghi giạ trë ca 10 säú... biãún n - Nháûp säú no ghi thç cn thỉûc hiãûn cäng vi ûc: - Âc dỉỵ liãûu tỉì tãûp v in mn Tiãút 37: HOẢT ÂÄÜNG NHỌM NHỌM 2, NHỌM 1, Bi táûp 1: Vi út chỉång trçnh nháûp tỉì bn phêm 10 säú ngun Ghi