gấp gấp sáng mai em nộp bài rồi ạ CÂU HỎI: lấy ví dụ về cách sử dụng tệp văn bản trong pascal
2 câu trả lời
Type
MSN=Array[1..100] of integer; {định nghĩa mảng 100 số nguyên}
TSN= File of MSN; {định nghĩa tệp TSN có các phần tử là mảng số nguyên}
TCV=File of String[80]; {định nghĩa tệp TCV có các phần tử là các chuỗi có độ dài 80 ký tự.
Bangdiem= Record
……
End;
TBD= File of Bangdiem;
Var:
Tep1: TSN;
Tep2: TCV;
Tep3: TBD;
var f,g:text;
n:longint;
begin
assign(f,'tentep.inp');reset(f);
assign(f,'tentep.out');rewrite(g);
read(f,n) {nhập giá trị n từ file f}
write(g,n); {in giá trị của n ra file g}
close(f);close(g); {đóng tệp}
end.
