Bài 16. Ví dụ làm việc với tệp

Giâo viín: Cao thănh trung
T?: toân tin
CHĂO M?NG CÂC TH?Y C� GIÂO V? D? GI? M�N TIN H?C L?P 11A2
�N T?P KI?N TH?C CU

Cđu 1 : L?i �ch khi s? d?ng bi?n ki?u t?p?

A. Dữ liệu được lưu trữ lâu dài


B. Lượng dữ liệu lưu trữ lớn


C. Dễ dàng khai báo


D. A và B


E. A và C

ĐÁP ÁN
�N T?P KI?N TH?C CU

Cđu 2 : Khai bâo ki?u d? li?u t?p van b?n ta d�ng khai bâo năo sau dđy?

A. Var : File;


B. Var : Text;


C. Type : File;


D. Type : String;

ĐÁP ÁN
�N T?P KI?N TH?C CU

Cđu 3 : D? gân tín t?p TRAI.TXT trong cho bi?n F d? m? t?p d?c d? li?u ta d�ng l?nh năo sau dđy?

A. Var F = ‘TRAI.TXT’ ;


B. Assign(‘TRAI.TXT’, F);


C. Assign(F, ‘TRAI.TXT’);


D. Const F = ‘TRAI.TXT’;

ĐÁP ÁN
�N T?P KI?N TH?C CU

Cđu 4 : Trong Pascal m? t?p d? d?c d? li?u ta s? d?ng th? t?c năo?

A. Reset();


B. Rewrite();


C. Reset();


D. Rewrite(
ĐÁP ÁN
�N T?P KI?N TH?C CU

Cđu 5 : Quy tr�nh thao tâc trín t?p theo th? t? lă?

A. Gán tên tệp; Mở tệp; Đóng tệp; Đọc/Ghi dữ liệu;


B. Mở tệp; Gán tên tệp; Đọc/Ghi dữ liệu; Đóng tệp;


C. Mở tệp; Đọc/Ghi dữ liệu; Gán tên tệp; Đóng tệp;


D. Gán tên tệp; Mở tệp; Đọc/Ghi dữ liệu; Đóng tệp;

ĐÁP ÁN
�N T?P KI?N TH?C CU

Cđu 6 : Cho t?p DL.TXT c� 3 d�ng: d�ng 1 ch?a 3 s?: 1 2 3; d�ng 2 ch?a 3 s?: 4 5 6; d�ng 3 ch?a 3 s?: 7 8 9 vă chuong tr�nh nhu h�nh bín. Giâ tr? c?a a,b,c,d sau khi th?c hi?n chuong tr�nh lă?

A. a=1, b=2, c=3, d=4


D. a=1, b=4, c=5, d=7


C. a=1, b=2, c=4, d=5

B. a=1, b=2, c=4, d=7

ĐÁP ÁN
Program VD;
Var f: Text;
a,b,c,d: integer;
Begin
Assign(f, `DL.TXT`); Reset(f);
Read(f, a); Readln(f,b);
Readln(f,c); Read(f,d);
Close(f);
Readln
End.
Ti?t 37
BĂI 16:
V� D? LĂM VI?C V?I T?P
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
V� D? 1:
T�nh kho?ng câch gi?a câc tr?i
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
Tr?i th?y Hi?u tru?ng c� to? d?: (0,0)
Tr?i câc l?p c� to? d?: (x,y) ch?a trong t?p TRAI.TXT
T�nh kho?ng câch t? tr?i hi?u tru?ng d?n tr?i m?i l?p.
-2 5 2 2 4 3



TRAI.TXT
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
Khai bâo
G?n tín t?p
M? t?p d? d?c
D?c d? li?u
X? l�:
- T�nh: kho?ng câch
- Th�ng bâo kho?ng câch t�nh du?c
D�ng t?p
Câc bu?c th?c hi?n:
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
Program khoang_cach;
Var d: real;
x,y: integer;
f: text;
Begin
Assign(f, `TRAI.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.
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
V� D? 2:
T�nh di?n tr? tuong duong
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
- V?i 3 di?n tr? R1, R2, R3 t?o ra 5 m?ch di?n c� di?n tr? tuong duong khâc nhau tuong ?ng v?i 5 câch m?c.
- Giâ tr? R1, R2, R3 cho trong t?p Resist.dat g?m nhi?u d�ng, m?i d�ng 3 s? th?c R1, R2, R3.
- Ghi ra t?p Resist.equ, m?i d�ng ghi nam di?n tr? tuong duong tuong ?ng v?i R1, R2, R3 dê d?c.
4 5 6
1 3 6

Resist.dat
1.62 8.22 7.40 6.73 15.00
0.67 6.75 3.86 3.00 10.00

Resist.equ
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
Khai bâo
G?n tín t?p
M? t?p d? d?c
D?c d? li?u
X? l�:
- T�nh: Di?n tr? tuong duong c?a 5 so d?
- Ghi câc di?n tr? tuong duong văo t?p
D�ng t?p
Câc bu?c th?c hi?n:
Ti?t 37
BĂI 16: V� D? LĂM VI?C V?I T?P
Assign(,);
Rewrite();
Reset();
Write(,);
Read(,);
Close();
(2) M? t?p d? ghi
(3) M? t?p d? d?c
(4) Ghi t?p
(5) D?c t?p
(6) D�ng t?p
(1) G?n tín t?p
C?NG C?
BĂI H?C K?T TH�C
XIN C?M ON!
Cao Thănh Trung
Friday, March 25, 2016