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ả.
Nội dung trích xuất từ tài liệu:
Bài giảng Điện tử Tin học lớp 11: Bài 18Bµi 18 Gi¸o ¸n ®iÖn tö tin häc líp 11 Mé t s è bµi to ¸n víi tÖpBµi 1: §äc vµo mét d·y n sè nguyªn (n- NhËp sè l-îng phÇn tö trong Write(‘Nhap n = );Readln(n); m¶ng; For i:=1 to n do- §äc vµo m¶ng; Begin- Ghi ra tÖp DULIEU.INP; Write(Doc so thu ,i,=); Readln(A[i]); Write(tep2,A[i]); End; - §ãng tÖp. Close(tep2); Readln; END.Nhap vao bao nhieu so : 6Nhap so thu 1 = 5Nhap so thu 2 = 7Nhap so thu 3 = 20Nhap so thu 4 = 15Nhap so thu 5 = 1Nhap so thu 6 = 8-NhÊn F3 ®Ó më tÖpBAITAP.INP xemnéi dung.Néi dung tÖpBAITAP.INPBµi 2:Më tÖp BAITAP.INP, in d·y sè trong tÖp ra mµn h×nh. TÝnh tængcña d·y sè ®ã. C¸cbíc: ThÓhiÖnb»ngpascal Program Bai2; Uses crt; - Khai b¸o; Var tep: TEXT; A:ARRAY[1 .. 100] of Integer; S,i,n:Integer; Begin Clrscr; - G¸n tªn tÖp; ASSIGN(tep, D:TPBAITAP.INP’); - Më tÖp ra ®Ó ®äc; RESET(tep);- G¸n tæng cña d·y = 0; S:=0;- D·y sè nguyªn kh«ng biÕt bao nhiªu sè, nh-ng vÉn ®äc ra WHILE NOT(EOF(tep)) DO ®-îc b»ng c¸ch dïng hµm Begin EOF(tªn biÕn tÖp); Readln(tep,A[i]); Write(A[i]:5);- §äc d÷ liÖu tõ file S:=S+A[i]; BAITAP.INP; End;- In ra mµn h×nh d·y sè; Writeln;- TÝnh tæng; Writeln(Tong cua day so la : ,S);- §ãng tÖp. Close(tep); Readln; END.