, .
Length
Length () , .
.
var
word: string;
begin
write (, , : );
readln (word);
writeln ( , length(word): 3, !)
end.
, .
Upcase
Upcase . , .
.
var
word: string;
i: byte;
begin
word:= Microsoft;
for i:= 1 to length (word) do word [i]:= upcase (word[i]);
writeln (word); { MICROSOFT}
end.
, , .
Copy
opy . copy, : 1) , ; 2) , ; 3) .
.
var
ws: string [79];
w1,w2,w3: string [20];
begin
ws:= ;
w1:= copy (ws, 1, 4); writeln (w1);
w2:= copy (ws, 5, 4); writeln (w2);
w3:= copy (ws, 10, 3); writeln (w3);
end.
:
, . , .
Pos
Pos . , , . , .
var
ws: string [79];
sw: string [20];
p: byte;
begin
ws:= ;
sw:= ; p:= Pos (sw,ws); writeln(p);
sw:= ; p:= Pos (sw,ws); writeln(p);
sw:= ; p:= Pos (sw,ws); writeln(p);
end.
:
Pos , . .
|
|
Insert Delete
Insert - , . Insert (w1, ws, 4); w1 ws 4 .
Delete , . Delete (ws, 2, 3); ws , .
var
ws: string [79];
sw: string [20];
begin
ws:= ; writeln (ws);
delete (ws, 1, 7); writeln (ws);
delete (ws, 3, 2); writeln (ws);
sw:= Ò; insert(sw, ws, 1); writeln (ws);
sw:= ; insert(sw, ws, 3); writeln (ws);
end.
:
Insert Delete .
Str
Str (x [:width [:decimals]], st) st. width decimals, , . Width , , decimals ( , ).
var
y: integer; x: real; st: string [8];
begin
y:= 45; str(y, st); writeln (st);
y:= 45; str(y:3, st); writeln (st);
y:= -2; str(y:5, st); writeln (st);
x:= 45.678;
str(x:7, st); writeln (st);
str(x:10, st); writeln (st);
str(x:6:2, st); writeln (st);
str(x:8:3, st); writeln (st);
end.
:
_45
_ _ _-2
_4.6+01
_4.568+
_45.68
_ _45.678
Val
val (st, x, code) st , . code , , , st, , . st .
var
x: real; y: integer; st: string;
begin
st:= 45.678'; val(st,x,y); writeln (x:6:3, ,y);
x:= 0;
st:= 3,1415; val(st,x,y); writeln (x:6:3, ,y);
{ - }
st:= 45.678; val(st,x,y); writeln (x:6:3, ,y);
st:= 45.6 ; val(st,x,y); writeln (x:6:3, ,y);
end.
:
45.678 0
0.000 2
45.678 0
0.000 5