Bài 18
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 BAITAP.INP
- 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:DULIEU.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]);
Write(tep2,A[i]);
End;
Write(‘Nhap n = `);Readln(n);
- Đọc vào mảng;
- Ghi ra tệp DULIEU.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;
A:ARRAY[1 .. 100] of Integer;
S,i,n:Integer;

- Gán tên tệp;
Begin
Clrscr;
ASSIGN(tep, `D:TPBAITAP.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? dú.
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?, nhung v?n d?c ra du?c b?ng cỏch dựng h�m EOF(tờn bi?n t?p);
- Đóng tệp.
Close(tep);
Readln;
END.
- D?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;