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.
để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh:
để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh:
Program HOC24;
const fi='dulieuvao.txt';
do='dulieura.txt';
var x,y,z: integer;
t: longint;
f: text;
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+x; //(1)
write(f,t);
close(f);
end;
begin
ip;
out;
end.
Chú ý:
Đề bạn ghi là T=x+y+x; nếu sai va đề đúng là T=x+y+z thi ban ghi như sau: t:=x+y+z; .Lưu ý thay cái này vào phần trước //(1). Rồi bạn có thể xóa //(1) đi.
Giả sử trên đĩa tồn tại một tệp F chứa các số nguyên có tên KQ.DAT, để đọc dữ liệu từ tệp, ta lần lượt thực hiện các thao tác:
A. Assign(F,'KQ.DAT');
Reset(F);
Close(F);
B. Reset(F);
Read(F,x);
Assign(F,'KQ.DAT');
Close(F);
C. Assign(F,'KQ.DAT');
Rewrite(F);
Read(F,x);
Close(F);
D. Assign(F,'KQ.DAT');
Reset(F);
Readln(F,x);
Close(F);
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.
C