Bài giảng Tin học Lớp 11 - Bài 18: Bài tập với tệp

 
 A:ARRAY[1 .. 100] of Integer; 
 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(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 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 
Readln(tep,A[i]); 
Writeln;