Bài 16: Ví dụ làm việc với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Abcxyz

Đưa ra các câu lệnh sau vào những vị trí cần thiết nhằm đổi chương trình trên để có được chương trình đọc dữ liệu từ bàn phím và ghi dữ liệu vào tệp. Chương trình Var s:string; a:byte; Begin readln(s); a:=length(s); Write(a); readln; End. Câu lệnh f1:text; Assign(f1,'c:\ghixau1.txt'); Rewrite (f1); Write(f1,a); Close(f1); Mong mọi người giúp ạ!Thanks!

Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:05

var s:string;

f1:text;

a:byte;

begin

assign(f1,'c:\ghixau1.txt'); rewrite(f1);

readln(s);

writeln(f1,s);

close(f1);

End.


Các câu hỏi tương tự
Thu Phương
Xem chi tiết
Huệ Bùi Thị Kim
Xem chi tiết
luu thao
Xem chi tiết
Minh
Xem chi tiết
NguyenThiChongDinh
Xem chi tiết
Xinh Xinh
Xem chi tiết
Lovanlinh
Xem chi tiết
Trần Vi Sa
Xem chi tiết
Lê Thị Hồng Trang
Xem chi tiết