25
Turbo Pascal: /.
, . 2- file of. of , integer, real, char, string .. ( ) , .
:
:
Type
__=File of _;
Var
_: __;
:
Var
_: File of _;
.
, :
Type
Sved=record
Fio:String;
Nom:String[10];
b1,b2,b3:Byte;
end;
Var
Fv:File of Sved; { }
Rv:Sved; { }
, :
Var
F:File of Integer;
( ). .
2 :
1.
2.
.
. Seek.
Rewrite (_) .
Reset (_) . , Reset, Write .
Read (_, ___) .
Write (_, ___) .
Seek (_, _) . .
FileSize (_)
Longint, .
FilePos (_)
Longint, , -
-.
1. (Assign).
2. (Rewrite)
3. (Write)
4. (Close).
1. (Assign).
2. (Reset)
3. (Read)
4. (Close).
, :
|
|
1. .
2. .
3. .
4. .
1. (Assign).
2. (Reset)
3. Seek(_,FileSize(_))
4. (Write)
5. (Close).
1. (Assign).
2. (Reset)
3. Seek(_,_)
4. (Read)
5. Seek(_,_)
6. (Write)
7. (Close).
:
X M. X Y , . Y.
M = (0,1; 5,6; 0.8; 2,4; 7,3; 6,8; 0,5; 2,3;)
:
M - -;
x, y - , ;
n - ;
i - .
:
-, .
.
X . . .
X , Y . 1. X, . , Y. , 1. X , .
Y . , . .
const M: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);
var
x,y: file of real;
n: real;
i: byte;
begin
assign(x,'x.dat');
assign(y,'y.dat');
rewrite(x);
for i:=1 to 8 do
write(x, M[i]);
close(x);
reset(x);
rewrite(y);
i:= 1;
while not EOF(x) do begin
read(x, n);
if not odd(i) then
write(y, n);
i:= i + 1;
end;
close(x);
close(y);
reset(y);
while not EOF(y) do begin
read(y, n);
write(n:5:1);
end;
writeln;
close(y);
end.
: 5.6 2.4 6.8 2.3