8
:
: () .
: . .
̲: .
: : , : Turbo Pascal 6.0.
ʲ Ͳ ²Ҳ
, :
- ASCII;
- . #13 ( 13 CR). ³ ᒺ #10 ( 10 LF);
- ^Z ( 26);
- , () ;
.
3.
| Assign(F, Str) | . |
| Rewrite(F) | ³ . |
| Reset(F) | ³ . |
| Append(F) | ³ . |
| Close(F) | . |
| Read(F, Ch) | Ch F. |
| Write(F, Ch) | Ch F. |
| Readln(F, Str) | F Str. |
| Writeln(F, Str) | Str F. |
| Eoln(F) | |
| SeekEoln(F) | TRUE, , () (#9), FALSE |
| SeekEof(F) | TRUE, , , () . |
:
1) ( ):
Var F: Text;
. .
2) ϳ .
Assign(Var _: _; _: String);
. Assign(f, ABC.txt); Assign(f, c:\DOC\klm.doc);
Readln(Filname); Assign(f, Filname);
3) ϳ , . :
) Reset(Var _: Text); ;
) Rewrite(Var _: Text); . . , ;
|
|
|
) Append(Var _: Text); .
. Rewrite(f); Reset(f); Append(f);
1) :
Read(Var _: Text; 1 [, 2,, N]: Char); ;
Readln(Var _: Text; 1: String); ;
Readln(Var _: Text); . , , . :
St:= 0; { }
While not EOF(F) do
begin
ReadLn(F); { }
St:= St +1
end;
Write( , St:4, );
2) :
Write(Var _: Text; 1 [, 2,, N]: Char); ;
Writeln(Var _: Text; 1: String); ;
Writeln(Var _: Text); . , . -. , , , 5 -. ³ :
for i:=1 to 5 do WriteLn(F);
F: WriteLn; 쳺 Output . , 7 , :
for i:=1 to 7 do WriteLn
3) :
EOLn(Var _: Text): Boolean; TRUE, , FALSE
EOF(Var _: Text): Boolean; TRUE, , FALSE .
4) ϳ .
Close(Var _: Text);
:
1) ;
2) (Assign);
3) (Rewrite);
4) (, );
5) (Writeln);
6) (Close).
4) 5) .
:
1) (Assign);
2) (Reset);
3) (Readln);
4) (, );
5) (Close).
3) 4) .
:
1) (Assign);
2) (Append);
3) (Writeln);
4) (Close).
3) .
Ҳ ϲ ί
1. , , , ( .).
|
|
|
2. .
3. .
:
1. .
2. Turbo Pascal.
3. ( ) . ( ).
1
1. , . i , , i i .
2
1. f. g f, 30 .
3
1. , . , , i ii.
4
1. f. f, s.
5
1. f. g f, , .
6
1. , . i i 'm'.
7
1. f. g f, 40 .
8
1. f. g, . .
9
1. , . , i.
10
1. f. g f, .
4. - . .
5. .
Ҳί
1. ?
2. -? .
3. ?
4. ?
5. ?
6. ?
7. ?
8. ?
9. ?
˲
- .. . . .: , 1988. 224 .
- .., .., .. . .: , 1988. 320 .
3. . . .: , 1982.
- ., . : . .: , 1982.
- .., .. ( ). . . .: .. , 2004.
6. .. . .: , 1989. 160 .
²
1. . , , .
2. ( ).
3. .
