Организация внешних файлов и работа с ними
.
. ,
. , .
,
.
.
( ).
,
, .
, , .
(
) .
.
PASKALe
( ). , ..
, ,
.
. ,
,
PASKAL.
PASKAL
.
,
.
,
VAR,
TYPE.
:
VAR : FILE OF ;
***
VAR
FT:FILE OF CHAR; (* *)
FINP:FILE OF REAL; (* *)
M:FILE OF INTEGER; (* *)
.
FILE OF CHAR
TEXT.
FT :
VAR FT:TEXT;
,
TYPE
. :
TYPE = FILE OF ;
VAR : ;
*** FT :
TYPE T=FILE OF CHAR;
VAR FT:T;
- .
3 :
, , .
.
,
.
.
:
(RESET), (`READ),
(CLOSE).
, ,
.
:
RESET ( 1);
. . .
READ ( 1,);
. . .
CLOSE ( 1);
- .
PASCAL ( ) RESET
:
RESET ( 1; 2; 3; 4).
1 - ,
. ; 2 -
() , ; 3 -
. 3 ,
DAT(). ,
DAT; 4 - ,
, ,
. , ,
.
READ. ;
,
.
.
.. , PASKALe
. EOF(
) , ,
- .
EOF ,
, :
WHILE NOT EOF (F1) DO
BEGIN . . .
END
F1,
, begin-end.
.
:
WHILE NOT EOLN ( 1) DO,
- READLN ( 1).
*** 1.1. D1.DAT,
:
0.54 1.7 4.56 0.2
1.32 1.524 18 0.92
7.7
.
Program A21(INPUT, OUTPUT);
VAR
F1:TEXT; (* *)
L1:Integer; (* *)
X; Real; (**)
SUM: Real; (**)
Begin
SUM: = 0;
RESET (F1; D1; DAT; L1)
WHILE NOT EOF (F1) DO
Begin
WHILE NOT EOLN (F1) DO
Begin
READ (F1, X);
SUM: = SUM + X
end;
Readln (F1)
end;
WRITE ('=; SUM:8:3);
CLOSE (F1)
end.
= 42.124
1.1: F1 - ,
D1.DAT.
RESET.
F1.
READ (F1,X) ( )
. CLOSE (F1)
.
.
.
, .. .
:
(REWRITE);
(WRITE);
(CLOSE).
, ,
.
:
REWRITE ( 1);
. . .
WRITE ( 1, );
. . .
CLOSE ( 1);
WRITE. :
WRITE ()
,
WRITE ( 1, )
, .
*** 1.2.
: =510, =16.2.
D2.DAN =510
=16.2.
program A21A (INPUT, OUTPUT);
VAR
F2 : text; (* *)
L2 : Integer; (* *)
A : Integer; (* *)
B : Real; (* *)
Begin
L2 : =1; A : = 510; B : = 16.2;
REWRITE (F2, 'D2', 'DAN', L2);
WRITE (F2, 'A=', A:3,' ':5, 'B=', B:4:1);
CLOSE (F2)
end.
. REWRITE
. - D2.DAN.
WRITE . CLOSE
. 1
, L2 1.
.
:
, -
.
, .
*** 1.3.
program A22 (INPUT,OUTPUT);
TYPE T = TEXT; (* - *)
VAR
T1, T2 : T; (* *)
S : CHAR; (* *)
R : Integer; (* *)
begin
RESET(T1, 'FINP'); (* *)
REWRITE (T2, 'FOUT'); (* *)
READ (T1, S); (* *)
. . . . . . . . . . . . . (* S, R*)
WRITE (T2, R); (* R *)
CLOSE (T2); (* *)
CLOSE (T1); (* *)
end.
.
, ,
, .
, .
:
.
DAN:
-------------------------------------------------------
""
- 12
-------------------------------------------------------
.. : 5
.. : 4
.. : 5
.. : 4
.. : 3
.. : 4
REZ,
.
-------------------------------------------------------
""
- 12
-------------------------------------------------------
.. : 5
.. : 4
.. : 5
.. : 4
.. : 3
.. : 4
* * * * * * * * * * * * * * * * * * * * * * * *
: 4.17.
: 6
