|
. 4
30. () , , . . , , , - . . , , , . - . ( ) , - ( ). . . . , : 'A:LAB1.DAT' 'c:\ABC150\pr.pas' 'lab3.pas'. MS-DOS - . TURBO PASCAL , - MS-DOS, : 'CON', 'LPT1', 'PRN', 'COM1', 'AUX', 'NUL'. TURBO PASCAL -. . - , . , . . , , , . - . . TURBO PASCAL : , , . - Text, : var tStory: Text; : var fComp: File of T; T - . : type M= array[1..500] of Longint; var f1: File of Real; f2: File of Integer; fLi: File of M; File: var f: File; , , - . , - , . - - . TURBO PASCAL , : Assign, Reset, Rewrite, Close, Rename, Erase, Eof,IOResult. Assign(var f; FileName: String) f , FileName. Reset(var f) f - , , . Reset - . Rewrite(var f) f - ( ). - . Close(var f) . Close . - Close , - , . . EOF(var f): Boolean TRUE, . , - . Rename(var f; NewName: String) , f. - . Erase(var f) , - f. - Erase . IOResult: Integer , - . - 0. IOResult - , - . IOResult - - - {$I-}. 31. , . ext: var TF1, TF2: Text; , - . , . EOLn(var T:Text):Boolean, - . TRUE, , FALSE, . , , - : ReadLn(T) - ; WriteLn(T) - , -, . - . Read(T,X1,X2,...XK) begin Read(T,X1); Read(T,X2);........... Read(T,XK) end; - , 1, 2,... - , , . . Write(T,X1,X2,...XK) begin Write(T,X1); Write(T,X2);........... Write(T,XK) end; - , 1,2,... , , , -. - . INPUT, OUTPUT. - - , - - INPUT, OUTPUT. : - - ; - Reset, Rewrite Close - ; - INPUT, OUTPUT EOLn . TURBO PASCAL , , SetTextBuf, Append, Flush, SeekEOLn,SeekEOF. SetTextBuf(var f: Text; var Buf; BufSize: Word) - f. 128 . . . - Buf. - BufSize, -, Buf. Append(var f: Text) . . Flush(var f: Text) . - . SeekEOLn(var f: Text): Boolean True, . SeekEOF(var f: Text): Boolean True, , . 32. - - . - , , - . : type M= File Of T; - , - . : type FIO= String[20]; SPISOK=File of FIO; var STUD, PREP: SPISOK; STUD, PREP - , . : var fsimv: File of Char; fr: File of Real; , - - , , . " " . : Reset, Rewrite, Read, Write, Close. - : Read(f,X); Write(f,X); f - , - , , , , , . Read(f,X) - X. Read(f,X) - X. Write(f,X) X - . X . - : Read(f,X1,X2,...XK) Write(f,X1,X2,...XK) f - , 1, 2,... - , f. 33. . - BlokRead BlockWrite. , Reset Rewrite. , - . var f: File; Assign. Reset Rewrite, Close. 128. TURBO PASCAL - , Reset(var f: File; BufSize: Word) Rewrite(var f: File; BufSize: Word) BufSize , - . BufSize - 1, - 64 . BlockRead(var f: File; var X; Count: Word; var QuantBlock: Word); X , Count, . Count 1. , 64 . QuantBlock (-), BlockRead. - QuantBlock = Count, - QuantBlock . , QuantBlock . BlockWrite(var f: File; var X; Count: Word; var QuantBlock: Word); X - , Count, . QuantBlock (-), BlockWrite. 34. , -. , ( ) , -1 . +1. , () () . , - , - . - . TURBO PASCAL -, , . - , - . , - - . , . n , - 1 1 n. , - , 0 1, 1 - 2 , , n n. - FileSize, FilePos, Seek Truncate. FileSize(var f): Longint f. FilePos(var f): Longint f. - . 0. -, 1. 1, 2. - FilePos FileSize. Seek(var f; N: Longint) (). N , , - . , 4, N, 3. Seek - . Truncate(var f) - () . . ID.DAT, - - . 200. , , - , , - RD.DAT. Program F; var rArg, rF: Array[1..200] of Real; inf: Text; outf: File of Real; n, l: Integer; begin Assign(inf,'ID.DAT'); Assign(outf,'RD.DAT'); Reset(inf); Rewrite(outf); n:=0; while not EOF(inf) do begin n:=n+1; ReadLn(inf,rArg[n],rF[n]) end; for l:=1 to n do begin WriteLn(l:2,rArg[l]:8:2,rF[l]:8:2); Write(outf,rArg[l], rF[l]); end; close(outf) end. 35. . MS - DOS . - 64 . - - . TURBO PASCAL Pointer - . - Pointer var p: Pointer; - 4 , , -, - . . type NameType= ^T; var p: NameType; p - , NameType. - : var p: ^T; , . p - - , p^ - . NIL, , . NIL . , . - , Addr(X), @ X, @ - - , X - , . -.
: 2016-12-31; !; : 350 |
:
:
1546 -  | 1342 - 
© 2015-2024 lektsii.org - - |
