6
: .
( , ) .
. -, , . -, . -, .
, :
<> = FILE OF <>;
<> = TEXT;
<> = FILE;
<> ( )
FILE, OF (, )
<> , .
type
product = record
name: string;
code: word;
price: real;
end;
text80 = file of string[80];
var
f1: file of char;
f2: text;
f3: file;
f4: text80;
f5: file of product;
:
( FILE OF );
( TEXT);
( FILE).
f1, f4, f5 , f2 , f3 . , , . . .
. , : .
ASSIGN:
ASSIGN (<..>, < >);
<..> ( );
< > , .
, MS-DOS ( ).
, :!, @, #, $, %, ^, &, (,), ~, , _
; , , .
|
|
: / .
79 .
const
name=e:\student\2-ai-11\try.txt;
var
f: Text;
begin
assign(f,name);
...
( .), ASSIGN .
:
;
/ ; ( )
.
. , , .
RESET:
RESET(<..>);
<..> , ASSIGN .
. -, , .. 0.
, , .
REWRITE(<..>) , <..>. REWRITE : . 0.
APPEND(<..>) , . APPEND . RESET REWRITE, APPEND , .
CLOSE , , ASSIGN, . :
CLOSE(<..>)
. CLOSE . , ASSIGN.
, TEXT. (, ).
. , . () , . :
|
|
EOF(<..>): boolean TRUE, .
EOLN(<..>): boolean TRUE, .
READ (<..>, <. >)
READLN (<..>, <. >)
<. > : CHAR, STRING, .
WRITE (<..>, <. >)
WRITELN (<..>, <. >)
<. > : CHAR, STRING, .
1.
var
f: text;
s: string;
begin
assign(f,'myprog.pas');
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
end.
2.
const N = 1000;
var
f: text;
m: array[1..N] of real;
i: integer;
begin
assign(f,'prog.dat');
reset(f);
i:= 1;
while not eof(f) do
begin
read(f,m[i]); { }
i:= i+1;
end;
close(f);
3.
.
var
f: text;
s: string;
begin
assign(f,'MyText.txt');
rewrite(f);
repeat
readln(s);
if length(s)>0 then writeln(f,s);
until length(s)=0;
close(f);
end.
, . - , - .
1. .
1.1. .
1.2. X . X .
1.3. , , .
1.4. .
1.5. X . X .
1.6. .
1.7. , . , .
1.8. , , .
1.9. , . <>.
1.10. , , .
2. , .
2.1. , , . .
2.2. , , 70 .
2.3. : <> ; < >, - <>.
2.4. 70 . 70 , <>.
2.5. , .
2.6. , .
2.7. , , : 1, 2, 3, 4, ; : 2, 1, 4, 3,
|
|
2.8. : +<>+ .
2.9. . , 10 .
2.10. , 50 . 50 , .
- ?
- ?
- ?
- ? ?
- ?
- ?
- ?
- ?
- ?
- CRT?
- ?
- , .
- , ?
1. .. Turbo Pascal 7.0. . . 2000 .
2. .. Turbo Pascal: : . .: , 2005.
3. .. Turbo Pascal. .: л, 1999.