Length(S:String): Byte S. .
. Var L:Byte;
...
L:=Length(S);
Concat(S1,S2,,SN:String): String S1,S2,,SN , .
. Var Ssum:String[50];
...
Ssum:=Concat(S1,S2,S3);
Concat , . , Concat .
. Ssum:=S1+S2+S3;
Copy(S:String; Poz, L:Length): String;
S L , Poz. Poz>Length(S), , L , Poz S, S Poz .
. Var Ssum:String;
...
Ssum:=Copy(ABC***123, 4, 3); {Ssum=***}
Ssum:=Copy(ABC, 4, 3); {Ssum= }
Ssum:=Copy(ABC***123, 4, 11); {Ssum=***123]
Pos(S1, S:String): Byte
S, S S1. S S1, 0. Poz , S1 S , ..
Var P:Byte;
...
P:=Poz(abc, Nom abcabcabcfcd);
, 5, 8, 11.
UpCase(C:Ch): Char;
, , , .
Pred(C:Char): Char M_____ C .
Succ(C:Char): Char C .
Chr(X:Byte): Char , X.
Ord(C:Char): Byte , C.
, S S[0], :
Var S:String;
L:Byte;
...
Read(S);
L:=Ord(S[0]);
― , , . . , .
:
type = record
1: 1;
2: 2;
...
N: N;
end;
var : ;
:
var : record
1: 1;
2: 2;
...
N: N;
end;
, :
type student = record
nom: string[8]; { }
fio: string[25]; {,,}
year: word; { }
pasport: string[12]; { }
address: string[30]; { }
end;
var stud, bun: student;
. :
|
|
|
.
, :
stud.pasport stud.adress
, .
.
Stud.address:= ., . 8, . 36.;
.
.
Bun:= stud;
. . , , 20 , :
type student = record
nom: string[8]; { }
fio: string[25]; {, , }
year: word; { }
pasport: string[12]; { }
address: string[30]; { }
end;
var group: array[1..20] of student;
, , fio 10- , .. , 10- , :
group[10].fio;
. WITH, :
With Do ;
- , - , .
― (set). 256 .
, .
var :
var < _ >: set of < __ >;
, 1 (256 ). :
var s1: set of char; { 256- }
s2: set of 'a'..'z','A'..'Z'; { 52- }
s3: set of 0..10; { 11- }
s4: set of boolean; { 2- }
-
. :
[<_>]
, . , . , .
:
if c in ['a','e','i','o','u']
then writeln(' ');
if set1 < [k*2+1..n,13] then set1:=[];
