Các bài tập về tệp

Làm việc với File trong Pascal

Var f:text;
m,n:integer;
Begin
Assign(f,`son.inf`); Reset(f);
Readln(f,m,n);
Close(f);
Writeln(m:4,n:4);
Readln;
End.

Var f:text;
m,n:integer;
Begin
assign(f,`sod.inf`);reset(f);
Readln(f,m);
Readln(f,n);
close(f);
Writeln(m);
Writeln(n);
Readln;
End.


Var f: text;
n, i, j, jmax,atg,: integer;
a: array[1..100] of integer;
Begin
assign(f, `data.txt`); reset(f);
Readln(f, n);
For i:=1 to n do Readln(f,a[i]);
close(f);
For i:=1 to n-1 do
Begin
jmax:=i;
For j:=i to n do
If (a[j]>a[jmax]) then j:=jmax;
atg:=a[i];
a[i]:=a[jmax];
a[jmax]:=atg;
End;
For i:=1 to n do Writeln(a[i]);
Readln;
End.

Var f:text;
n,i:integer;
a:array[1..100] of integer;
Begin
assign(f,`data.txt`); reset(f);
Readln(f,n);
For i:=1 to n do Read(f,a[i]);
For i:=1 to n do Write(a[i]:8);
Readln;
End.


Var f:text;
n,i:integer;
a:array[1..100] of integer;
Begin
assign(f,`data.txt`); reset(f);
i:=1;
Repeat
Readln(f,a[i]);
inc(i);
Until seekEof(f);
n:=i-1;
For i:=1 to n do Writeln(a[i]);
Readln;
End.


Var f:text;
n,i:integer;
a:array[1..100] of integer;
Begin
assign(f,`data.txt`); reset(f);
i:=1;
Repeat
Read(f,a[i]); inc(i);
Until Eoln(f);
n:=i-1;
For i:=1 to n do Write(a[i]:8);
Readln;
End.