Viết các câu lệnh để ghi dữ liệu vào tệp KQ.TXT 2 biến C, V (sử dụng biến tệp f).
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
17 tháng 3 2017
Assign(f2,’ketqua.txt’);
Rewrite(f2);
Write(f2,T,S);
Close(f2);
17 tháng 8 2017
Assign(f1,’dulieu.txt’);
Reset(f1);
Read(f1,a,b);
Close(f1);
ML
24 tháng 4 2020
Program hotrotinhoc_hoc24;
const fi='BT.TXT';
fo='KQ.TXT';
var f: text;
x,y,z: integer;
t: longint;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,x,y,z);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
t:=x+y+z;
write(f,t);
close(f);
end;
begin
ip;
out;
end.
Assign(f,’KQ.TXT’);
Rewrite(f);
Write(f,C,V);
Close(f);