Giáo viên thực hiện: Nguyễn Tấn Phát Tuần: . 30. . . . . Tiết: . .39 . . . Ngày dạy: . . . . ./. . . ./ 2009 Tuần: . 30. . . . . Tiết: . .39 . . . Ngày dạy: . . . . ./. . . ./ 2009 CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP 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 BAITAP.INP - Khai báo; Program bai1; Uses crt; Var tep2: TEXT; A:ARRAY[1 100] of Integer; i,n:Integer; {k:integer} - Gán tên tệp; Begin Clrscr; ASSIGN(tep2, 'C:\BAITAP.INP); - 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]); {readln(k);} Write(tep2,A[i],’ ‘); {write(tep2,k);`} End; Write(‘Nhap n = ');Readln(n); - §äc vµo m¶ng; - Ghi ra tÖp BAITAP.INP; - §ã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 BAITAP.INP xem néi dung. Néi dung tÖp BAITAP.INP - Khai báo; Program Bai2; Uses crt; Var tep: TEXT; S,i,n:Integer; - Gán tên tệp; Begin Clrscr; ASSIGN(tep, 'D:\TP\BAITAP.INP); - Mở tệp ra để đọc; RESET(tep); Bài 2: Mở tệp BAITAP.INP, 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(i:5); S:=S+i; End; readln(tep); 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 BAITAP.INP; - 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 WHILE NOT EOLN(Tep) DO Begin Read(tep,i); Writeln; . Nguyễn Tấn Phát Tuần: . 30. . . . . Tiết: . .39 . . . Ngày dạy: . . . . ./. . . ./ 2009 Tuần: . 30. . . . . Tiết: . .39 . . . Ngày dạy: . . . . ./. . . ./ 2009