Bµi
16

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

- Khai báo;

- Gán tên tệp;
- Mở tệp ra để
đọc;

Thể hiện bằng
pascal
Program Bai2;
Uses crt;
Var
tep: TEXT;
A:ARRAY[1 .. 100] of Integer;
S,i,n:Integer;
Begin
Clrscr;
ASSIGN(tep, 'D:\TP\BAITAP.INP);
RESET(tep);


- Gán tổng của dãy =
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);
- Đọc dữ liệu từ file
BAITAP.INP;