3. c , . :
Var S: String[20]; i:integer;
Begin
Write('Vvedite slovo:'); Readln(S);
For i:=1 to Length(S)-1 do Write(S[i],' ');
Writeln(S[Length(S)]);
End.
2. Concat(s1,[s2,...,sn]:string):string - () . () , "+".
-,
4. S1-S4:
S1:='com'; S2:='put'; S3:='er';
S4:=S1+S2+S3;
S4 computer .
, : , "" .
3. Copy(s:string; index:integer; count:integer):string - , s, index count .
5. S:= 'Computer';
S1:= copy(S, 1, 3); { S1 ' Com '}
S1:= copy(S, 4, 8); { S1 ' puter '}
4. Delete(var s:string; index,count:integer) - - s count , index.
6. s:= 'Computer'; delete(s,5,4); { s 'Comp' }
5. Insert(source:string; var s:string;index:integer) - source s, index .
7. s:= 'Cor';
insert('mpute',s,3); { s 'Computer' }
6. Pos(substr,s:string):byte - s substr. . , 0.
8. s:= 'Computer';
x1:= pos('put', s); {x1 4}
x2:= pos('Pascal', s); {x2 0}
7. Str(X: ; var st:string) - X , st.
8. Val(st:string; x: ; var code:integer) - st , x, , . st ( ) , , code . , . code 0, .
, char:
|
|
Chr(n: byte): char n byte ( char).
Ord(ch: char): byte - ch ( char) ( byte).
UpCase(c: char): char; - , .
, Chr Ord , .. Ch Num :
Chr(Ord(Ch))=Ch, Ord(Chr(Num))= Num.
9. , 32 255, 0 31 :
var i: byte;
begin
for i:=32 to 255 do writeln(' Symbol of',i:4, ' = ',Chr(i))
End.
, . . .
.
1. har String?
2. String :
) 1 , ) 4 , ) 2 , ) 100 , ) 300 ?
3. ?
4. :
Ch:Char; Str: String[10];
begin Str:=ABCDEF;
WriteLn(' Ch=', Ch) :
) Ch=Str[3], ) Ch=Str[6], ) Ch=Str[11], ) Ch=Str[13]?
5. Length()?
6. Concat,Copy,Delete, Insert,Pos?
7. Str Val?
8. Chr, Ord, UpCase?
9. , :
var Str_1, Str_2, Str_3:string[10];
Begin
Str_1:='Computer';
Str_2:= copy(Str_1, 1, 4);
Str_3:=Str_2;
insert('any', Str_3,5);