( )
. ,
1
.
. , . ; ; , , ; , , .
1. . . : / . ., . ., . . : , 2010. 192 .
2. . . 1 2 / . . : , 2006. 134 .
3. .
-
1. , .
2. , .
1. ?
2. ?
3. ?
4. ?
5. ?
6. , ?
7. , , , ?
8. : , , , ?
9. ?
, .
ϳ .
, , .
, , , , , .
File, of . ᒺ , . , . , .
,
Type complex = Record
re,im: Real
end;
comp_fil = File of complex;
Var f: comp_fil;
h: File of Integer;
f , complex, h , .
|
|
, . . , . . . . , , -. .
. filevar - , anystring - , filetype , .
Assing(Var f: filevar; s: anystring) f s. s , . - .
, Assign(h,a:myfile.dta) h myfile.dta, A.
Close(Var f:filevar) f. . .
Erase(Var f:filevar) f .
Flush(Var f:filevar) f. , . , , , . Flush , . , Close .
Read(Var f:filevar; Var a1,,an:filetype) f . , 䳿. , . , -.
Rename(Var f:filevar; s:anystring) f , s. .
Reset(Var f:filevar) f. . , -.
Rewrite(Var f:filevar) f. , . .
Seek(Var f:filevar; n:Integer) f n - . 0, 1 ..
Write(Var f:filevar; a1,.,an:filetype) f . , 䳿. ϳ . , .
|
|
Flush, Read, Seek, Write , Erase Rename . -
Eof(Var f:filevar):Boolean True, , False .
FilePos(Var f:filevar):Integer , .
FileSize(Var f:filevar):Integer .
.