Lý Thuyết Lớp 12
Lý thuyết lớp 11
Lý thuyết lớp 10
Lý thuyết lớp 9
Lý thuyết lớp 8
Lý thuyết lớp 7
Lý thuyết lớp 6
Lý thuyết lớp 5
Lý thuyết lớp 4
Lý thuyết lớp 3
Lý thuyết lớp 2
Lý thuyết lớp 1
Thi vào lớp 10
Đại học
Thư viện câu hỏi
Thi Online
Hỏi bàiCho một tệp văn bản có tên là 'ATXT’ có duy nhất một dòng chứa 5 số nguyên (các số này cách nhau ít nhất một dấu cách). Đoạn lênh nào đọc 5 số từ tệp vào mảng số nguyên A và ghi 5 số đó ra màn hình?
A.
assign(f, 'A.TXT');
reset (f);
for i:=1 to 5 do read (f,a[i]);
close(f);
for i:=1 to 5 do write(a[i],' ');
B.
assign(f,'A TXT);
reset (f);
for i:=1 to 5 do read (f,a[i]);
close(f);
for i:=1 to 5 do read (a[i],' ');
C.
assign(f, 'A.TXT');
reset (f);
for i:=1 to 5 do write(f,a[i]);
close(f);
for i:=1 to 5 do write(a[i],' ');
D.
assign(f, 'A.TXT');
reset (f);
for i:=1 to 5 do write(f,a[i]);
close(f);
for i:=1 to 5 do read(a[i],' ');
Lời giải của giáo viên
ToanVN.com
+ Câu lệnh dùng thủ tục để đọc:
Read(< biến tệp >,< danh sách các biến >); Readln(< biến tệp >,< danh sách các biến >);
+ Câu lệnh dùng thủ tục để ghi là:
Write(< biến tệp >,< danh sách kết quả >); Writeln(< biến tệp >,< danh sách kết quả >);
B sai. Vì sử dụng cả 2 lệnh đọc
C sai. Vì sử dụng cả 2 lệnh ghi
D sai. Vì đề bài yêu cầu đọc 5 số vào mảng sau đó mới ghi ra màn hình nên thứ tự câu lệnh: lệnh đọc trước lệnh ghi sau.
Đáp án A
CÂU HỎI CÙNG CHỦ ĐỀ
Xét chương trình sau:
var i : longint;
f : text;
BEGIN
assign (f, 'A.txt');
rewrite(f);
i:=123456;
writeln(f, i);
write (f, -789);
close(f);
END
Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?
Xét chương trình sau:
var a : real;
f :text;
BEGIN
assign (f, 'A txt'); rewrite(f);
a:=12.345;
writeln(f, a)
close(f);
END
Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?
Xét chương trình sau:
Var f: text;
begin
Assign (f, 'ABC.txt');
Rewrite(f);
write (f, 105+304-234);
close(f);
end.
Sau khi thực hiện chương trình, tệp ABC.txt có nội dung như thế nào?
Xét chương trình sau:
var a, b : longint;
f :text;
BEGIN
assign (f, 'A.txt');
rewrite(f);
a:=123456; b:=456;
write (f, a-b);
close(f);
END.
Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?
Xét chương trình sau:
var a : Real ;
f :text;
BEGIN
assign (f, 'A.txt'); rewrite();
a:=12.345;
writeln(f, a: 6:3);
close(f);
END
Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?
Xét chương trình sau:
var a,b longint;
f :text:
BEGIN
assign (f, 'A txt');
rewrite (f);
a:=123456;
b: =456;
writeln(f, a,b);
writeln(f, b, a);
close(f);
END
Sau khi thực hiện chương trình, tệp A.txt có nội dung như thế nào?
Khi tiến hành mở tệp để ghi và tìm thấy tệp thì sẽ ra sao?
Để ghi dữ liệu vào tệp văn bản, ta có thể sử dụng thủ tục nào?
Để gán tệp KETQUA.TXT cho biến tệp f ta sử dụng câu lệnh nào?
Cho chương trình sau:
Program Chuong_Trinh;
Var a, b, S : byte;
Procedure TD(Var x : byte ; y : byte);
Var i : byte;
Begin
i := 5;
writeln(x,‘ ’, y);
x := x + i ;
y := y + i ;
S := x + y ;
Writeln(x,‘ ’, y);
End;
Begin
Write(‘nhập a và b : ’);
Readln(a, b);
TD(a,b);
Writeln(a,‘ ’, b, ‘ ’, S);
Readln;
End.
Trong chương trình trên có các tham số thực sự là:
Nếu hàm eof (< biến tệp >) cho giá trị bằng TRUE thì con trỏ tệp nằm ở vị trí nào?
