.


:




:

































 

 

 

 





( )

. ,

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 .

.





:


: 2016-10-27; !; : 420 |


:

:

,
==> ...

1543 - | 1520 -


© 2015-2024 lektsii.org - -

: 0.011 .