9.1. CHAR STRING
Turbo Pascal : char ;
String .
char . 255. , . (, Java) char , , . . - . , , , , .
: =, , <, >, <=, >=, .
. , , . . , (. 2). , ( , ).
: chr(x) ;
ordfch) - ch; pred(ch) ; succ(ch) ;
upcase(ch) . .
:
ord('A')=65
(128)=''
pred('B'}='A>
CJ succ(T') = 'flr
upcase('n')='N'
. ( ) I 255. .
Type
= string [ ];
Var
,
;
:
var
,
string[MaKc. ];
var
,...: string;
, 255 .
.
:
const stradres = '. , 35'; { }
sadr: string[12] = ' . ' { , ]
type str!25 = string [125];
var strl:str!25; { }
stl: string; { = 255 |
st2,st3: string[50];
strnazv: string[280]; { , 255 }
|
|
.
Turbo Pascal . +l ; , . 0, 1, 2 . .
, sadr string [12] (. 9.1).
9.1.
13 , 4 , . . 8 , . "" , "", "", . . .
( ~^)
255 , . . ( , , , 255).
array [0.. n] of char
() . , , .
/.
, readln(stl); writeln(st2>;
, . length, (. . 9.3).
, , , . . , - (. 9.9). - .
, , ( 9.1). "" (, , ). , . , , . , . .
9.1.
var s:string;
i: integer; begin
write(' ');readln(s);
for i:=length(s) ciownto 1 do write (s[i]);
for i:=l to length(s)-l do
if (s[i]) = ' ') and (s[i+l]<>' ') then writeln
else write(s[i]); readln; end
, . ( 9.2) ( , . . ). (. 13.3) .
|
|
;.......... -.................................:................ ;"".............;'-'................ '........... """'.'..............................................................,,,.,....................................................... j
^ 9.2.
var k,i:integer;{ k , i )
s:string;
begin
writeln(' :']; readln(s);
k:=l; i:=0;
while (k<=length(s)) and (i>=0) do
begin
{ i<0, : ')' '(' }
if s[k]-'(' then i:=i+l;
if s[k]='} ' then i:=i-l,-
k:=k+l; ehd;
if i=0 then writeln(' .')
{ i>0, }
else writeln{' '};
readln * *
end.
() . , , , .
9.2.1. (+)
.
:
: 'Turbo' + ' Pascal' + '7.0'
: Turbo Pascal 7.0'
, , : " ", .
j
"+" , Turbo Pascal . "+" , . . .
.
: strl:= '; str2:= strl + ' -';
( 9.3). , '*' . , .
[ 9.3. '
!...-..;.-...:.........-.;.!.'..:.:....:... :..:.'...... -...
var s:string;
procedure dopstr(var s:string; n:integer);.
begin
while length(s)<n do s:=s+'*'; end; begin
writeln(' :');readln(s};
dopstr(s,80); writeln(s); readln end.
s+' *' ' *' +s, , . dopstr : , , (, , ).
, . . . , . , , , !
:
const si:string[13]='Turbo Pascal';
var s2:string[5];
begin
s2:=sl;...
s2 'Turbo', . . 'Turbo Pascal1 , s2. , .
|
|
{$R+}, . . !
($v-). {$v+}, ( , ) . , , . . , , .
=, <>, >, <, >=, <= . , , . . , .
:
: :
' '=' .. ' false
''<' ..' true
'program1 >' PROGRAM1 true
. :
; ; .
, (. . 4.2.3), string. , , .
( 9.4). , , () .
I 9.4. ,
const m=4; n=3;
a: array [1..m] of string=('1, '', '', '' b:array [l..n] of string= ('', ' ', '');
var crarray [1..m+n] of string;
k, i, j: integer; ( }
begin
.
for k:=l to m+n do
{ i b[j]<a[i] }
if (i>ra) or (b[j]<a[ij) then
begin
c[k]:=b[j]; j:=j+l; end else begin
c[k]:=a[i]; i:=i+l; end;
writelnf ' :');
for k:=l to m+n do write (c[k],' '); readln end.