Bài giảng điện tử tin học 11 bai18

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<=100), ghi dãy
số đó vào tệp có tên BAITAP.INP
Thể hiện bằng
pascal

Các bớc:

- Khai báo;

Program bai1;
Uses crt;
Var
tep2: TEXT;
A:ARRAY[1 .. 100] of Integer;
i,n:Integer;
Begin
Clrscr;

- Gán tên tệp;

ASSIGN(tep2, 'C:\BAITAP.INP);

- Mở tệp ra để
ghi;

REWRITE (tep2);


- NhËp sè lîng phÇn tö
trong m¶ng;
- §äc vµo m¶ng;
Ghi
ra
DULIEU.INP;

- §ãng tÖp.

tÖp

Write(‘Nhap n = ');Readln(n);
For i:=1 to n do
Begin
Write('Doc so thu ',i,'=');
Readln(A[i]);
Write(tep2,A[i]);
End;
Close(tep2);
Readln;
END.



Nhap vao bao nhieu so :

5
7
20
15
Nhap so thu 5 = 1
Nhap so thu 6 = 8
Nhap so thu 1 =
Nhap so thu 2 =
Nhap so thu 3 =
Nhap so thu 4 =

-

6


NhÊn F3 ®Ó më
tÖp BAITAP.INP
xem néi dung.

Néi dung
BAITAP.INP

tÖp


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:

- 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;

In ra màn hình dãy
số;
-

Tính tổng;
Đóng tệp.

S:=0;
WHILE NOT(EOF(tep)) DO
Begin
Readln(tep,A[i]);
Write(A[i]:5);
S:=S+A[i];
End;
Writeln;
Writeln('Tong cua day so la : ',S);
Close(tep);
Readln;
END.