. - , . . Pascal . , , . , .. , , .
, , :
< > file of <> |
:
Var FT: File of Char;
FileInp: File of Real;
FileOut: Text;
: , . , .
Ha:
Program File_Example;
Var F1: File of Integer { }
F2: Text { }
R: Integer;
st: String;
....
Begin
Assign(F1, 'FileInp.dat');
Assign(F2, 'FileOut.dat');
Reset(F1); { F1 }
Rewrite(F2); { F2 }
........
Read(F1,R); { F1 }
........
Writeln(F2, St); { F2 }
........
Close(F1); { }
Close(F2);
end.
.
. , .
.
1. F. G, F () ().
2. F, . G, F .
3. F, . . F , . H, F G , G .
4. F, . . F , . H, F G , G , .
5. F, . . F , . H, F G , G : , , , .. (, 4).
|
|
6. F. , 100. 50 . G : 1- , 51- , 2- , 52- ,...50- , 100- , ( ) 101- , 151- , 102- , 152- ,..., 150- , 200- ..
7. , , : , ,.... .
8. , , : , ,.... ..
9. , 5000 . . 100 .
10. F1 F2. F1 . . F2 40 , . : , - . F1 . G.
11. ( ), . F, . , , - .
12. ( ), . F, . , .
13. ( ), . F, . : .
14. , . 40 . ( ).
15. , . 50 . , 50 .
16. F, . 0. : 10 , 10 .. F G , G : , ..
16. F, . 0. : 10 , 10 .. F G , G : , .. (, 40).
|
|
17. F, . G 20 , - 20 .. 20 , G F, .
18. . .
19. . , . , .
21. F, G. , F G. , , F G . , N (N>0) ( ) , N+1.
N 1.
| N 2. .
| N 3. .
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
N4.
| N 5.
| N 6.
|