- , . :
1. .
2. , , , , .
3. ( ).
, . . , , . , .
.
.
: ( ) . , toy
Type toy=record name:string[20];
Price:real;
ageLset of 9..18; { }
end;
. . . ,
<_>+
<_>*
<_>
Var < >:file of
< >;
Assign (f,< >);
Reset (f) . , . .
Rewrite (f) . , . . , .
Close (f) .
, .
Eof(f:file):Boolean
Filepos(f:file):longint . , N , N.
Filesize(f:file):longint f .
Seek(f:file,n:longint) N. , N , .
Truncate(f:file) . , .
|
|
. .
- , . :
1. .
2. , , , , .
3. ( ).
. .
Var f1,f2:text; { }
g: file of < __>; { }
in,out:file; { }
:
1.
Assign(f, );
Assign (f, input.txt);
Assign(f,output.txt);
2. .
Reset(f) . reset . .
Rewrite(f) . , . , .
Append(f) , . , . , .
Close(f) .
Read (f,a,b,c) f a,b,c. .
Writeln(f,a,b,c) .
: , .
,
:
Eof(f) true, . , .
Seekeof(f) true , ( ).
Eoln(f) true, .
Seekeoln(f) true,
: . , .
.. read, , : , .
, .
seekeolf seekeoln, .. . seekeolf seekeoln , eof eoln. .