k:=k+[n];
Write(n:4)
End;
WriteLn
End
End.
' , . , '. ' , . - , , .
RECORD, . END.
, , , :
type Row=Record
FIO: String[20];
TEL: String[7]
End;
var str: Row;
, :
var str: Record
FIO: String[20];
TEL: String[7]
End;
, . . , ' ' , :
Str.FIO, str.TEL
' . , ' , .
, with.
³ , , , ' :
With M do OP;
- ' , - , . 䳿 , .
. , .
Case P of,
- ' . , , , . 䳿, , , . end. , :
case P: Integer of
:
Type
RecType= Record
x,y: Word;
ch: Char;
dim: Array[1..3] of Byte
End;
Const
Rec: RecType= (x: 127; y: 255;
ch: 'A';
dim: (2, 4, 8));
() , , .
|
|
|
.
, , , .
. , , , .
- . ( ) ' , - ' ( ).
. . . , ' :
'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-}.
2.13.1
, . 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, , .
2.13.2
- . , , ' .
:
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;
, - , , . " " .
:
