Bài giảng Điện tử Tin học lớp 11: Bài 18

Bài giảng Điện tử Tin học lớp 11 - Bài 18: Bài tập với tệp cung cấp cho các em một số bài tập về tệp và khai báo tệp để luyện tập. Chúc các em thực hành hiệu quả. | Bµi 18 bµi tËp víi tÖp Gi¸o ¸n ®iÖn tö tin häc líp 11 Mét sè bµi to¸n víi tÖp Bµi 1: §äc vµo mét d·y n sè nguyªn (n<=100), ghi d·y sè ®ã vµo tÖp cã tªn - Khai b¸o; Program bai1; Uses crt; Var tep2: TEXT; A:ARRAY[1 100] of Integer; i,n:Integer; - G¸n tªn tÖp; Begin Clrscr; ASSIGN(tep2, 'C:\’); - Më tÖp ra ®Ó ghi; REWRITE (tep2); C¸c b­íc: ThÓ hiÖn b»ng pascal - NhËp sè l­îng phÇn tö trong m¶ng; For i:=1 to n do Begin Write('Doc so thu ',i,'='); Readln(A[i]); Write(tep2,A[i]); End; Write(‘Nhap n = ');Readln(n); - §äc vµo m¶ng; - Ghi ra tÖp ; - §ãng tÖp. Close(tep2); Readln; END. Nhap vao bao nhieu so : 6 Nhap so thu 1 = 5 Nhap so thu 2 = 7 Nhap so thu 3 = 20 Nhap so thu 4 = 15 Nhap so thu 5 = 1 Nhap so thu 6 = 8 - NhÊn F3 ®Ó më tÖp xem néi dung. Néi dung tÖp - Khai b¸o; Program Bai2; Uses crt; Var tep: TEXT; A:ARRAY[1 100] of Integer; S,i,n:Integer; - G¸n tªn tÖp; Begin Clrscr; ASSIGN(tep, 'D:\TP\’); - Më tÖp ra ®Ó ®äc; RESET(tep); Bµi 2: Më tÖp , in d·y sè trong tÖp ra mµn h×nh. TÝnh tæng cña d·y sè ®ã. C¸c b­íc: ThÓ hiÖn b»ng pascal - G¸n tæng cña d·y = 0; Write(A[i]:5); S:=S+A[i]; End; S:=0; - D·y sè nguyªn kh«ng biÕt bao nhiªu sè, nh­ng vÉn ®äc ra ®­îc b»ng c¸ch dïng hµm EOF(tªn biÕn tÖp); - §ãng tÖp. Close(tep); Readln; END. - §äc d÷ liÖu tõ file ; - In ra mµn h×nh d·y sè; - TÝnh tæng; Writeln('Tong cua day so la : ',S); WHILE NOT(EOF(tep)) DO Begin Readln(tep,A[i]); Writeln; | Bµi 18 bµi tËp víi tÖp Gi¸o ¸n ®iÖn tö tin häc líp 11 Mét sè bµi to¸n víi tÖp Bµi 1: §äc vµo mét d·y n sè nguyªn (n<=100), ghi d·y sè ®ã vµo tÖp cã tªn - Khai b¸o; Program bai1; Uses crt; Var tep2: TEXT; A:ARRAY[1 100] of Integer; i,n:Integer; - G¸n tªn tÖp; Begin Clrscr; ASSIGN(tep2, 'C:\’); - Më tÖp ra ®Ó ghi; REWRITE (tep2); C¸c b­íc: ThÓ hiÖn b»ng pascal - NhËp sè l­îng phÇn tö trong m¶ng; For i:=1 to n do Begin Write('Doc so thu ',i,'='); Readln(A[i]); Write(tep2,A[i]); End; Write(‘Nhap n = ');Readln(n); - §äc vµo m¶ng; - Ghi ra tÖp ; - §ãng tÖp. Close(tep2); Readln; END. Nhap vao bao nhieu so : 6 Nhap so thu 1 = 5 Nhap so thu 2 = 7 Nhap so thu 3 = 20 Nhap so thu 4 = 15 Nhap so thu 5 = 1 Nhap so thu 6 = 8 - NhÊn F3 ®Ó më tÖp xem néi dung. Néi dung tÖp - Khai b¸o; Program Bai2; Uses crt; Var tep: TEXT; A:ARRAY[1 100] of Integer; S,i,n:Integer; - G¸n tªn tÖp; Begin Clrscr; ASSIGN(tep, 'D:\TP\’); - Më tÖp ra ®Ó ®äc; RESET(tep); Bµi 2: Më tÖp , in d·y sè trong tÖp ra mµn h×nh. TÝnh tæng cña d·y sè ®ã. C¸c b­íc: ThÓ hiÖn b»ng pascal - G¸n tæng cña d·y = 0; Write(A[i]:5); S:=S+A[i]; End; S:=0; - D·y sè nguyªn kh«ng biÕt bao nhiªu sè, nh­ng vÉn ®äc ra ®­îc b»ng c¸ch dïng hµm EOF(tªn biÕn tÖp); - §ãng tÖp. Close(tep); Readln; END. - §äc d÷ liÖu tõ file ; - In ra mµn h×nh d·y sè; - TÝnh tæng; Writeln('Tong cua day so la : ',S); WHILE NOT(EOF(tep)) DO Begin Readln(tep,A[i]); .