1
. .
-
- ( ).
- , ( ).
:
Ø
- , . :
VAR <1>: FILE OF <>; |
<> - .
Ø
- , . :
VAR <2>: TEXT; |
Ø
- , , . :
VAR <3>: FILE; |
TYPE F1=TEXT; F2=FILE OF INTEGER; { , INTEGER} F3=FILE; VAR A0:F1; A1: TEXT; { } A2:F2; { INTEGER} A3:F3; { } |
Ø
Ø
Ø ()
Ø /
Ø
.
TYPE FINT=FILE OF INTEGER; { , INTEGER } VAR F1: FILE OF REAL; { REAL} F2:FINT; { INTEGER} |
Ø ASSIGN (<>,<>)
- <> , <>. assign , .
ASSIGN(F1,FFF.DAT); ASSIGN(F2,INT.DAT); |
REWRITE(<>)
- , ( ). , . , .
RESET(<>)
- /, ( ). , /.
{$I-} { / } RESET(A2); { } {$I+} { / } IF IORESULT<>0 THEN { } { } ELSE { } |
2.1.4 /
|
|
/ .
Ø READ(<>,<.>)
<> <. > - .
Ø WRITE(<>,<.>)
<> <. > - /
Ø CLOSE(<>)
- .
/ , . , .
:
Ø ERASE(<>)
.
Ø RENAME(<>,< >)
.
Ø IORESULT
WORD; -, , 0.
Ø EOF(<>)
BOOLEAN; true, , false.
Ø FLUSH(<>)
, ,
Ø CHDIR(<>)
Ø MKDIR(<>)
Ø RMDIR(<>)
Ø GETDIR(<>,<>)
,
DOS.TPU , , ..
, , ( 0)
Ø SEEK (<>,<N>)
N.
Ø FILEPOS(<>)
longint; (.. , ).
Ø FILESIZE(<>)
longint; .
Ø TRUNCATE(<>)
( ).
PROCEDURE CREATE(NAME:STRING); VAR F:FILE OF INTEGER; { } X:INTEGER; BEGIN ASSIGN (F,NAME); { NAME} {$I-} REWRITE(F); { ()} {$I+} IF IORESULT=0 THEN { } BEGIN WRITELN(VVEDITE CHISLA (OSTANOVKA 0):); READ(X); WHILE X<>0 DO { } BEGIN WRITE (F,X); READ(X); END; CLOSE(F); { } END; END; |
|
|
PROCEDURE PRINT(NAME:STRING); VAR F:FILE OF INTEGER; { } X:INTEGER; BEGIN ASSIGN (F,NAME); { NAME} {$I-} RESET(F); { } {$I+} IF IORESULT=0 THEN { } BEGIN WHILE NOT (EOF(F)) DO { } BEGIN { } READ(F,X); WRITE(X:6); END; WRITELN; CLOSE(F); { } END; END; |
PROCEDURE SGAT(NAME:STRING); VAR F:FILE OF INTEGER; { } X,K,S:INTEGER; BEGIN S:=0; { } ASSIGN (F,NAME); { NAME } {$I-} RESET(F); { /} {$I+} IF IORESULT=0 THEN { } BEGIN WHILE NOT (EOF(F)) DO { } BEGIN READ(F,X); { } IF X=0 THEN { } S:=S+1 ELSE BEGIN K:= FILEPOS (F); { k , } SEEK(F,K-1-S); { } WRITE (F,X); { } SEEK (F,K); { } END; END; SEEK (F, FILEPOS (F)-S); { } TRUNCATE (F); { } CLOSE(F); { , } END; END; |
,
BEGIN CREATE(FILE1.TXT); { } PRINT(FILE1.TXT); { } SGAT(FILE1.TXT); { } PRINT('FILE1.TXT'); { } READLN; END. |
- - :
1. ;
2. ;
3. (), .
- - , (). .
f, . : f. . . | |
f, . : f. N. , N . | |
f, . : f. . . | |
f, ( ). : f. . . | |
f, X1,X2,Xn, : Xi=(i-0.1)/(sqr(i)*i+abs(tg2*i)) (i=1,2,N). e>0. h f, : abs(Xi)<e | |
f, . : . N ( ). | |
f, . : . N | |
f, ( ). : . N | |
f, . : . g, , f g | |
f, . g : g f f i (i=1,2,). g | |
f, . : . . | |
f, . : . . | |
f, . . g. f. |
|
|