Trong PASCAL, cú pháp khai báo biến tệp văn bản là:
A. Var <tên tệp> : Text;
B. Var <tên tệp> : String;
C. Var <tên biến tệp> : String;
D. Var <tên biến tệp> : Text;
Câu lệnh mở biến tệp f1 để đọc dữ liệu có dạng:
A. reset(f1);
B. rewrite(f1);
C. read(f1);
D. write(f1);
Câu lệnh mở biến tệp f1 để đọc dữ liệu có dạng:
A. reset(f1);
B. rewrite(f1);
C. read(f1);
D. write(f1);
Viết các câu lệnh để đọc dữ liệu từ tệp “dulieu.txt” 2 biến a, b (sử dụng biến tệp f1).
Assign(f1,’dulieu.txt’);
Reset(f1);
Read(f1,a,b);
Close(f1);
Đúng 0
Bình luận (0)
Viết các câu lệnh để đọc dữ liệu từ tệp “DL.TXT” 2 biến x1, x2 (sử dụng biến tệp f).
Assign(f,’DL.TXT’);
Reset(f);
Read(f,x1,x2);
Close(f);
Đúng 0
Bình luận (0)
Trong PASCAL, để khai báo biến tệp văn bản ta phải sử dụng cú pháp:
A. Var <tên biến tệp> : Text;
B. Var <tên tệp> : Text;
C. Var <tên tệp> : String;
D. Var <tên biến tệp> : String;
Cho tệp BT.TXT chứa 3 số nguyên liên tiếp trên 1 dòng. Viết chương trình đọc dữ liệu từ tệp BT.TXT, tính tổng các số trên cùng 1 dòng; ghi tổng của các dòng vào tệp KQ.txt
HƯỚNG DẪN
Các bước thực hiện bài toán ?
1. Gắn tệp BT.TXT, KQ.TXT vào các biến tệp
2. Mở tệp BT.TXT để đọc và mở tệp KQ.TXT để ghi
3. Nếu chưa cuối tệp BT.TXT thì thực hiện
3.1. Đọc dữ liệu từ tệp gắn vào biến x, y, z
3.2. tß x+y+z
3.3. Ghi t vào tệp KQ.TXT trên 1 dòng
4. Đóng các tệp
Đọc tiếp
Cho tệp BT.TXT chứa 3 số nguyên liên tiếp trên 1 dòng. Viết chương trình đọc dữ liệu từ tệp BT.TXT, tính tổng các số trên cùng 1 dòng; ghi tổng của các dòng vào tệp KQ.txt
HƯỚNG DẪN
Các bước thực hiện bài toán ?
1. Gắn tệp BT.TXT, KQ.TXT vào các biến tệp
2. Mở tệp BT.TXT để đọc và mở tệp KQ.TXT để ghi
3. Nếu chưa cuối tệp BT.TXT thì thực hiện
3.1. Đọc dữ liệu từ tệp gắn vào biến x, y, z
3.2. tß x+y+z
3.3. Ghi t vào tệp KQ.TXT trên 1 dòng
4. Đóng các tệp
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.
Đúng 0
Bình luận (0)
bài 1: viết các câu lệnh để ghi dữ liệu là 2 biến T , S từ chương trình vào tệp dulieu.txt (sử dụng biến tệp f2)
bài 2: viết các câu lệnh để đọc dữ liệu từ tệp dau.txt ra 2 biến a,b của chương trình ( sử dụng biến tệp f1 )
Bài 1:
assign(f2,'dulieu.txt');
reset(f2);
readln(f2,T,S);
close(f2);
Bài 2:
assign(f1,'dau.txt');
reset(f1);
read(f1,a,b);
close(f1);
Đúng 0
Bình luận (0)
Hãy ghép chức năng của các thủ tục chuẩn
Tên thủ tục chuẩn
Chức năng
1. Thủ tục read(danh sách biến);
a. Nhập dự liệu từ bàn phím vào cho danh sach biến
2. Thủ tục read(biến tệp,danh sách biến);
b. Đọc dữ liệu từ tệp ra danh sách biến
3. Thủ tục write(biến tệp,danh sách kết quả);
c. Ghi ( đưa ) dạn sách kết quả vào tệp
4. Thủ tục write(danh sách kết quả);
d. Đưa ra màn hình danh sách kết quả
5. Thủ tục close(biến tệp);...
Đọc tiếp
Hãy ghép chức năng của các thủ tục chuẩn
| Tên thủ tục chuẩn | Chức năng |
| 1. Thủ tục read(<danh sách biến>); | a. Nhập dự liệu từ bàn phím vào cho danh sach biến |
| 2. Thủ tục read(<biến tệp>,<danh sách biến>); | b. Đọc dữ liệu từ tệp ra danh sách biến |
| 3. Thủ tục write(<biến tệp>,<danh sách kết quả>); | c. Ghi ( đưa ) dạn sách kết quả vào tệp |
| 4. Thủ tục write(<danh sách kết quả>); | d. Đưa ra màn hình danh sách kết quả |
| 5. Thủ tục close(<biến tệp>); | e. Đóng tệp đã mở |
| 6. Thủ tục assign(<biến tệp>,<tên tệp>); | f. Gắn tên tệp với đại diện của nó(là 1 biến tệp) |
| 7. Thủ tục reset(<biến tệp>); | g. Mở tệp để đọc dữ liệu ra |
| 8. Thủ tục rewrite(<biến tệp>) | h. Mở tệp để ghi dữ liệu vào |
Câu1: sử dụng nnlt pascal viết ct nhập vào 1 xâu, ghi xâu vừa nhập vào tệp ketqua.txt
Câu2: đọc ct sau và trả lời câu hỏi;
Program giaiptbac1;
Var f1,f2: text;
a, b: integer;
x : real;
Begin
assign(f1 , input.txt); reset(f1);
assign(f2 , output.txt); rewrite(f2);
while not eof(f1) do
Begin
read(f1,a,b);
x:-b/a;
writeln(f2, nghiem la: , x:7:1);
End;
Close(f1);
Close(f2);...
Đọc tiếp
Câu1: sử dụng nnlt pascal viết ct nhập vào 1 xâu, ghi xâu vừa nhập vào tệp ketqua.txt
Câu2: đọc ct sau và trả lời câu hỏi;
Program giaiptbac1;
Var f1,f2: text;
a, b: integer;
x : real;
Begin
assign(f1 ,' input.txt'); reset(f1);
assign(f2 ,' output.txt); rewrite(f2);
while not eof(f1) do
Begin
read(f1,a,b);
x:=-b/a;
writeln(f2,' nghiem la:' , x:7:1);
End;
Close(f1);
Close(f2);
End.
a, ct sử dụng bao nhiêu tệp, biến tệp, kể tên
b, Tệp input.txt, output.txt được gắn cho những biến tệp nào? Nó dùng để đọc hay ghi dữ liệu?
c, chỉ ra câu lệnh gắn tên tệp, mở tệp của tệp input.txt và output.txt. Câu lệnh đọc tệp? Câu lệnh ghi tệp?
d, điều kiện để tham chiếu đến tất cả các cặp số nguyên trong tệp input.txt
e, ct sử dụng bao nhiêu câu lệnh đóng tệp? Không đóng tệp được không? Vì sao?
Câu 2:
a) Chương trình có 2 tệp và 2 biến tệp
- 2 tệp đó là : input.txt và output.txt
- 2 biến tệp đó là: f1 và f2
b)
- Tệp input.txt được gắn cho biến tệp là f1 .Nó dùng để đọc dữ liệu
-Tệp output.txt được gắn cho biết tệp là f2. Nó dùng để ghi dữ liệu
c)
Câu lệnh gắn tập và mở tệp của input.txt và output.txt là : assign(f1 ,' input.txt'); và assign(f2 ,' output.txt);
Câu lệnh đọc tệp là: reset(f1);
Câu lệnh để ghi tệp là: rewrite(f2);
d) Điều kiện để tham chiếu đến tất cả các cặp số nguyên trong tệp input.txt là phải có biến tệp f1 ở trước mọi câu lệnh đọc dữ liệu.
e) Chương trình có 2 lệnh đóng tệp. Không thể không đóng tệp , vì nếu không đóng thì dữ liệu đã thực hiện không thể lưu lại .
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var s,k,tam:string;
dem,i:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
dem:= 1;
for i:=2 to length(s) do
begin
if s[i]=s[i-1] then inc(dem);
if s[i]<>s[i-1] then
begin
str(dem,tam);
if dem>1 then k:=k+tam+s[i-1]
else k:=k+ s[i-1];
dem:= 1;
end;
if i=length(s) then
begin
str(dem,tam);
if dem >1 then k:=k+tam+s[i]
else k:=k+s[i];
end;
end;
for i:=1 to length(k) do
write(k[i]);
readln;
end.
Đúng 0
Bình luận (0)