Program VD_tep;
Var F1,F2: Text;
X,y: byte;
Begin
Assign(F1, 'D:\1B1\dulieu.txt');
Assign(F2, 'D:\11B1\ketqua.txt');
Reset(F1); Rewrite(F2);
Readln(F1, x, y);
S:=x+y; P:=x*y;
Writeln(F2, S, P);
Close (F1); Close(F2);
End.
a, Xác định câu lệnh khai báo 2 biến tệp ?
b, Biến F1 gán cho tệp nào?
c, Biến F2 gán cho tệp nào?
d, Dùng tệp 'D:\11B1\dulieu.txt' để đọc dữ liệu hay ghi dữ liệu?
e, Dùng tệp 'D:\11B1\ketqua.txt' để đọc dữ liệu hay ghi dữ kiệu?
f, Nêu ý nghĩa của chương trình.
Loga
Sinh Học lớp 12
