Cho mình xin một số chương trình pascal kiểu dữ liệu tệp phổ biến chương trình cơ bản nha. Có cách giải luôn á
Cho mình xin một số chương trình pascal kiểu dữ liệu tệp phổ biến chương trình cơ bản nha. Có cách giải luôn á
By Piper
By Piper
Cho mình xin một số chương trình pascal kiểu dữ liệu tệp phổ biến chương trình cơ bản nha. Có cách giải luôn á
Cấu trúc:
assign(<tên biến tệp>,<tên tệp>); Mở tệp
Close(<tên biến tệp>); Đóng tệp
VD:
Chương trình đọc dữ liệu tệp (đọc một biến n từ tệp):
uses crt;
var f:text; // Khai bao bien tep
n:longint;
begin
clrscr;
assign(f,’input.pas’);reset(f); // Mo tep
readln(f,n); // Doc bien n tu tep
write(n);
close(f); //Dong tep
readln
end.
Chương trình ghi dữ liệu vao tệp (ghi một biến n vào tệp):
uses crt;
var f:text; // Khai bao bien tep
n:longint;
begin
clrscr;
assign(f,’output.pas’);rewrite(f); // Mo tep
write(‘n=’);readln(n);
write(f,n); // Ghi bien n vao tep
close(f); //Dong tep
readln
end.
vd: đọc từ tệp ‘data.inp’ hai số nguyên (trên cùng một dòng), xuất hai số này ra màn hình.
var f: text;
a, b: integer;
Begin
Assign(f, ‘data.inp’); reset(f);
Read(f, a, b);
Writeln(‘a = ‘, a);
Writeln(‘b = ‘, b);
Readln
End.
__________________________
vd: nhập hai số thực từ bàn phím, ghi vào tệp ‘data.out’ tổng hai số đó.
var f: text;
a, b: real;
begin
Assign(f, ‘data.out’); rewrite(f);
Write(‘nhap hai so thuc: ‘); readln(a, b);
Write(f, a+b);
Close(f);
End.