tiet 39.ppt

Giáo viên thực hiện: Nguyễn Tấn Phát
Tuần: . 30. . . . .
Tiết: . .39 . . .
Ngày dạy: . . . . ./. . . ./ 2009
Tuần: . 30. . . . .
Tiết: . .39 . . .
Ngày dạy: . . . . ./. . . ./ 2009
CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP
CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP

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;
{k:integer}
- Gán tên tệp;
Begin
Clrscr;
ASSIGN(tep2, 'C:\BAITAP.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]); {readln(k);}
Write(tep2,A[i],’ ‘); {write(tep2,k);`}
End;
Write(‘Nhap n = ');Readln(n);
- §äc vµo m¶ng;
- Ghi ra tÖp BAITAP.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
-