1.
. , , . , * + ! .
2.
. , , . , ( ), . , .
3.
. , , . .
4.
. , , . .
5.
. , , . , .
6.
. , , . , .
7.
. , , . .
8.
. , , . .
9.
. , , . .
10.
. , , . .
11.
. , , . , .
12.
. , , . , ( ).
13.
. , , . .
|
|
14.
. , , . , .
15.
. , , . , , .
16.
. , , . .
17.
. , , . : , .. , .
18.
. , , . , , .
19.
. , , . .
20.
. , , . .
- .
, , :
1. ( );
2. ( );
3. .
:
Assign(var f; String) | f - , |
Reset(var f [: File; RecSize: Word]) | - f |
Rewrite(var f: File; [; RecSize: Word]) | - f |
Close(var f) | - f |
Eof(var f):Boolean | true, f false, f |
Erase (var f) | , - f |
Rename (var f; NewName:String) | , f |
, :
FileSize(var f): Longlnt | f. |
FilePos(var f): Longlnt | , f. |
Seek (var f; n: Longlnt) | f. |
Truncate(var f) | f |
|
|
1. . .
: . 7.1.
. 7.1. 1
Turbo Pascal :
Program IntFile;
Uses Crt;
Var f: file of Integer;
i,j,s,k: Integer;
st: String;
Begin
ClrScr; { }
Write(' >>');
Readln(st);
Assign(f, st);
Rewrite(f);
Write(' ! ');
Writeln(' >>')
Repeat
{$I-}; { -}
Read(j);
{$I+}
i:=IOResult; {i=0 -}
If i=0 then Write(f,j);
Until i<>0;
Writeln(' =', Filesize(f));
k:=0; s:=0;
Seek(f,0); { }
While not(Eof(f)) do
begin
Read(f,j);
Write(j, ' ');
If j>0 then s:=s+j;
If j<0 then k:=k+1;
End;
Writeln;
Writeln(' = ', s);
Writeln(' = ', k);
Close(f);
End.
2. f. g f .
: . 7.2.
Turbo Pascal :
Program Filef_to_g;
Uses Crt;
Var f,g: File of Char;
ch: Char;
n,i: Word;
Begin
ClrScr;
Assign(f,'file1.dat');
{$I-}; { -}
Reset(f);
{$I+}
{ , }
If IOResult<>0 then Rewrite(f);
{ , }
If FileSize(f)=0 then begin
Writeln(' ! !');
Write('( )');
Write(' ');
Repeat
{$I-};
Readln(ch);
{$I+};
i:=IOResult;
If i=0 then Write(f,ch);
Until i<>0;
End;
. 7.2. 2
Assign(g,'file2.dat');
Rewrite(g);
n:=FileSize(f);
Repeat
Dec(n);
Seek(f,n);
Read(f,ch);
Write(g,ch);
Until n=0;
Close(f);
Close(g);
End.
f g. Seek .
3. .
Turbo Pascal :
Procedure Wr_array;
Var i,j: Integer;
Begin
Assign(f,'array.dat');
{$I-}
Reset(f);
{$I+}
If IOResult=0
then
WriteLn(' ')
else
begin
Rewrite(f); {
}
For i:=l to n do
For j:=l to n do
A[i,j]:=i*j;
Write(f,A); { }
Close(f);
WriteLn(' ');
End;
End;