Thường thì trong file sẽ có dữ liệu là giá trị ta cần nhận. Ví dụ: với đề bài đọc n từ file teptin.txt và xuất ra màn hình thì file teptin.txt có dạng:
**teptin.txt**
* n *
* *
*************
Chương trình:
uses crt; var f:text; n:longint; begin clrscr; assign(f,’teptin.txt’);reset(f); readln(f,n); writeln(n); close(f); end.
Còn bạn muốn có nhiều text n thì chỉ việt việc thêm số lương text vào đầu thôi:
**teptin.txt**
* t(số text) *
* t số n… *
************
Khi đó chương trình là:
uses crt; var f:text; n:longint; begin clrscr; assign(f,’teptin.txt’);reset(f); readln(f,t); for i:=1 to t Do begin readln(f,n); writeln(n); end; close(f); end.
Sửa lại tên File sau đấy chèn sô và đấy là đc ạ …..
vote 5 sao và ctl hay nhất
Thường thì trong file sẽ có dữ liệu là giá trị ta cần nhận. Ví dụ: với đề bài đọc n từ file teptin.txt và xuất ra màn hình thì file teptin.txt có dạng:
**teptin.txt**
* n *
* *
*************
Chương trình:
uses crt;
var f:text; n:longint;
begin
clrscr;
assign(f,’teptin.txt’);reset(f);
readln(f,n);
writeln(n);
close(f);
end.
///////////////////////////////////////////////////////////////////////////////////
Còn bạn muốn có nhiều text n thì chỉ việt việc thêm số lương text vào đầu thôi:
**teptin.txt**
* t(số text) *
* t số n… *
************
Khi đó chương trình là:
uses crt;
var f:text; n:longint;
begin
clrscr;
assign(f,’teptin.txt’);reset(f);
readln(f,t);
for i:=1 to t Do
begin
readln(f,n);
writeln(n);
end;
close(f);
end.