Chuyên đề Cụm Đông Hà – Cam Lộ
Năm học 2008-2009
Giáo viên thực hiện: Nguyễn Thái Đức
Cam Lộ, 03-2009
Trường THPT Cam Lộ
Bộ môn: TIN HỌC
Nêu các bước thao tác với tệp?
(Quy trình chung khi làm việc với tệp)
BÀI CŨ:
§ 16.
VÍ DỤ LÀM VIỆC VỚI TỆP
TIN HỌC 11- TIẾT 37 - PPCT 2008-2009
+ Trại hiệu trưởng có toạ độ: (0,0)
+ Trại các lớp có toạ độ: (x,y) chứa trong tệp TRAI.TXT
Tính khoảng cách từ trại hiệu trưởng đến trại mỗi lớp.
-2 5 2 2 4 3




TRAI.TXT
Ví dụ 1: SGK-87
Ví dụ 1: Xác định bài toán
Innput: tệp TRAI.TXT chứa các cặp số nguyên x,y (toạ độ trại lớp)
Output: khoảng cách (trại hiệu trưởng(0,0), trại lớp (x,y))

* Các bước thực hiện:
Gán tên tệp -> assign(f,…)
Mở tệp để đọc: -> reset(f)
Đọc dữ liệu -> read(f,..)
Xữ lí:
Tính: khoảng cách: d=sqrt(x*x+y*y)
Thông báo k/c tính được Write(d)
Đóng tệp -> close(f)
lặp chưa biết mấy lần
-> While


Sử dụng PASCAL để chạy chương trình
Ví dụ 1: Chạy chương trình
-2 5 2 2 4 3




TRAI.TXT
Program khoang_cach;
var d: real;
x,y: integer;
f: text;
Begin
assign(f, ‘C:TIN11TRAI.TXT);
reset(f);
while not eof(f) do
begin
read(f,x,y);
d:= sqrt(x*x+y*y);
writeln(‘ Khoang cach: ‘,d:5:2);
end;
close(f);
Readln;
End.
EOF(f)=
FALSE
X
Y
-2
5
2
2
4
3
TRUE
Ví dụ 1: Mô phỏng
Cho tệp SN.TXT chứa các số nguyên dương.
Viết chương trình để:
In ra màn hình các số nguyên trong tệp.
Cho biết số nguyên lớn nhất trong các số đó.
Ghi số lớn nhất đó vào tệp MAX.TXT
Ví dụ 2:
Ví dụ 2: Xác định bài toán
Innput: tệp SN.TXT chứa các số nguyên dương N
Output: + Các số nguyên trong tệp in ra màn hình
+ Số nguyên lớn nhất Max
+ Ghi Max vào tệp MAX.TXT
Các bước thực hiện:
Gán tên tệp -> assign(f,..)
Mở tệp: -> reset/rewrite(f)
Max=0
Đọc dữ liệu -> read(f,n)
Xữ lí:
+ In ra màn hình Write(n)
+ Kiểm tra lớn nhất MaxThông báo Max Write(Max)
Ghi Max vào tệp MAX.TXT Write(f,max)
Đóng tệp -> close(f)
lặp chưa biết mấy lần
-> While
Ví dụ 2: Sắp xếp lại theo đúng thứ tự của chương trình.
BEGIN
PROGRAM TIM_MAX;
MAX:=0;
RESET(Fd);
ASSIGN(Fg,`D:TIN11MAX.TXT`);
ASSIGN(Fd,`D:TIN11SN.TXT`);
READ(Fd,N);
VAR N,MAX:WORD;
Fd,Fg:TEXT;
WHILE NOT EOF(Fd) DO
BEGIN
END;
IF MAXWRITELN(`SO LON NHAT LA: `, MAX:5);
REWRITE(Fg);
CLOSE(Fd); CLOSE(Fg);
WRITE(Fg,MAX);
READLN;
END.
USES CRT;
WRITE(`CAC SO TRONG DAY LA: `);
WRITE(N:5);
PROGRAM TIM_MAX;
USES CRT;
VAR N,MAX:WORD;
Fd,Fg:TEXT;
BEGIN
ASSIGN(Fd,`D:TIN11SN.TXT`);
ASSIGN(Fg,`D:TIN11MAX.TXT`);
RESET(Fd);
REWRITE(Fg);
MAX:=0;
WRITE(` CAC SO TRONG DAY LA: `);
WHILE NOT EOF(Fd) DO
BEGIN
READ(Fd,N);
WRITE(N:5);
IF MAX END;
WRITELN(` SO LON NHAT LA: `, MAX:5);
WRITE(Fg,MAX);
CLOSE(Fd); CLOSE(Fg);
READLN;
END.

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
02
20
08
09
01
06
05
04
15
03
21
10
11
07
22
13
12
14
17
16
18
19

Ví dụ 2: Chương trình


Sử dụng PASCAL để chạy chương trình

TRẮC NGHIỆM
CỦNG CỐ:
Bài tập:
- Cho tệp TOADO.TXT chứa các điểm trên tọa độ xOy. Viết chương trình tính khoảng cách giữa điểm thứ nhất với các điểm tiếp theo trong tệp rồi lưu vào tệp KC.TXT
- Làm các bài tập trong SBT
* Tiết sau học tiết bài tập
DẶN DÒ:
Trường THPT Cam Lộ
Bộ môn: TIN HỌC