.


:




:

































 

 

 

 


N 6.




. - , . . 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.  
     
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       

 

 





:


: 2015-10-27; !; : 881 |


:

:

, ,
==> ...

788 - | 797 -


© 2015-2024 lektsii.org - -

: 0.024 .