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ảng A gồm 100 phần tử kiểu integer. Đoạn lệnh nào ghi 100 số đó ra tệp văn bản tên là 'A TXT' (ghi trên một dòng, các số này cách nhau đúng một dấu cách)?
A.
assign(f,'A.TXT');
reset(f);
for i:=1 to 100 do read(f,a[i],' ');
close(f);
B.
assign(f,'A.TXT');
reset(f);
for i:=1 to 100 do write(f,a[i],' ');
close(f);
C.
assign(f,'A.TXT');
rewrite(f);
for i:=1 to 100 do read(f,a[i],' ');
close(f);
D.
assign(f,'A.TXT');
rewrite(f);
for i:=1 to 100 do write(f,a[i],' ');
close(f);
Lời giải của giáo viên
ToanVN.com
A reset(f); sai vì đề bài ghi 100 số đó ra tệp văn bản nên ta phải mở tệp để ghi không phải để đọc .
B sai khi thủ tục mở tệp để đọc
C sai phải sử dụng lệnh Write(< biến tệp >,< danh sách các biến >); không phải lệnh read
Đáp án D
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 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 : 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 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?
Để 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à:
Trong chế độ đồ họa của Pascal, muốn di chuyển con trỏ đến vị trí điểm có tọa độ (x,y), ta phải gọi thực hiện thủ tục nào sau đây?
Để đọc dữ liệu từ tệp văn bản, ta có thể sử dụng thủ tục nào?
