📄 2字符串.mht
字号:
<TD class=3Dcommon borderColor=3D#006600 bgColor=3D#ffffff =
colSpan=3D11>
<DIV align=3Dcenter>
<H3 =
class=3Dstyle1>=D7=D6=B7=FB=D3=EB=D7=D6=B7=FB=B4=AE=B4=A6=C0=ED =
</H3></DIV>
=
<P>=D2=BB=A1=A2=D7=D6=B7=FB=D3=EB=D7=D6=B7=FB=B4=AE=C0=E0=D0=CD=B5=C4=CA=B9=
=D3=C3</P>
<P>Var =D7=D6=B7=FB=B1=E4=C1=BF=C3=FB=A3=BAchar=A3=BB</P>
=
<P>=D7=D6=B7=FB=C0=E0=D0=CD=CA=C7=D2=BB=B8=F6=D3=D0=D0=F2=C0=E0=D0=CD=A3=AC=
=D7=D6=B7=FB=B5=C4=B4=F3=D0=A1=CB=B3=D0=F2=B0=B4ASCII=C2=EB=B5=C4=B4=F3=D0=
=A1=BE=F6=B6=A8=A1=A3=CF=E0=B9=D8=B5=C4=BA=AF=CA=FD=D3=D0succ=A1=A2pred=A1=
=A2ord=A1=A2chr=B5=C8=A1=A3</P><PRE>VAR A:CHAR;</PRE>
<P>BEGIN</P>
<P>READLN(A);</P>
<P>WRITELN('A:',A);</P>
<P>WRITELN('SUCC(A):',SUCC(A));</P>
<P>WRITELN('PRED(A):',PRED(A));</P>
<P>WRITELN('ORD(A):',ORD(A));</P>
<P>WRITELN('CHR(ORD(A)):',CHR(ORD(A)));</P>
<P>END.<BR></P>
=
<P>=C0=FD=A3=BA=B0=B4=D7=D6=C4=B8=B1=ED=CB=B3=D0=F2=BA=CD=C4=E6=D0=F2=C3=BF=
=B8=F4=D2=BB=B8=F6=D7=D6=C4=B8=B4=F2=D3=A1=A1=A3=BC=B4=B4=F2=D3=A1=B3=F6=A3=
=BA</P>
<P>a c e g i k m o q s u w y</P>
<P>z x r v t p n l j h f d b</P>
<P>for i:=3D1 to 13 do write(chr(63+2*i):4);writeln;</P>
<P>for i:=3D1 to 13 do write(chr(92-2*i):4);writeln</P>
<H3 class=3Dstyle1 align=3Dcenter></H3>
<H3 class=3Dstyle1 align=3Dcenter>=D7=D6=B7=FB=B4=AE</H3>
<P>=A1=BC=D3=EF=B7=A8=B7=D6=CE=F6=A1=BD</P>
=
<P>=D7=D6=B7=FB=B4=AE=D3=C3=D3=DA=B4=E6=B7=C5=D5=FB=C5=FA=B5=C4=D7=D6=B7=FB=
=CA=FD=BE=DD=A1=A3=CD=A8=B3=A3=B1=E0=B3=CC=D6=D0=CA=B9=D3=C3=D7=D6=B7=FB=B4=
=AE=B4=E6=B7=C5=D7=D6=B7=FB=BB=AF=C1=CB=B5=C4=CA=FD=D7=D6=CA=FD=BE=DD=A1=A3=
=C8=E7=B8=DF=BE=AB=B6=C8=D4=CB=CB=E3=CA=B1=B4=E6=B7=C5=B2=D9=D7=F7=CA=FD=BA=
=CD=D4=CB=CB=E3=BD=E1=B9=FB=A1=A3=D7=D6=B7=FB=B4=AE=BF=C9=D2=D4=BF=B4=D7=F7=
=CA=C7=CC=D8=CA=E2=B5=C4=D7=D6=B7=FB=B4=AE=CA=FD=D7=E9=C0=B4=B4=A6=C0=ED=A1=
=A3=B5=B1=C8=BB=A3=AC=CB=FC=D2=B2=D3=D0=D7=D4=D2=D1=B5=C4=CC=D8=B5=E3=A1=A3=
=CF=C2=C3=E6=CA=C7=D7=D6=B7=FB=B4=AE=B6=A8=D2=E5=B5=C4=B8=F1=CA=BD=A3=BA<=
BR>var=20
s:string; s1:string[15]; =A1=A1s[1] s[2] =A1=AD s[255] =
=A1=A1s[0]=20
=
=A1=A1ord(s[0])<BR>=D7=D6=B7=FB=B4=AE=B6=A8=D2=E5=CA=B1=A3=AC=C8=E7=B2=BB=
=D6=B8=B6=A8=B3=A4=B6=C8=A3=AC=D4=F2=B0=B4=B8=C3=C0=E0=D0=CD=B5=C4=D7=EE=B4=
=F3=B3=A4=B6=C8=A3=A8255=B8=F6=D7=D6=B7=FB=A3=A9=B7=D6=C5=E4=BF=D5=BC=E4=A3=
=AC=CA=B9=D3=C3=CA=B1=D7=EE=B4=F3=BF=C9=D3=C3=B3=A4=B6=C8=CE=AA255=B8=F6=A3=
=BB=C8=E7=B9=FB=D4=DA=D6=D0=C0=A8=BA=C5=D6=D0=B8=F8=B3=F6=D2=BB=B8=F6=BE=DF=
=CC=E5=B5=C4=D6=B5=A3=A81=A1=AA255=D6=AE=BC=E4=A3=A9=A3=AC=D4=F2=B0=B4=D5=
=E2=B8=F6=D6=B5=B5=C4=B4=F3=D0=A1=B7=D6=C5=E4=BF=D5=BC=E4=A1=A3=CA=B9=D3=C3=
=CA=B1=A3=AC=D7=EE=B4=F3=B5=C4=BF=C9=D3=C3=B3=A4=B6=C8=BC=B4=CE=AA=B8=C3=D6=
=B5=A1=A3</P>
=
<P>1=A1=A2=D7=D6=B7=FB=B4=AE=B5=C4=CA=E4=C8=EB=A1=A2=CA=E4=B3=F6=A3=BA<BR=
>=D7=D6=B7=FB=B4=AE=C0=E0=D0=CD=BC=C8=BF=C9=B0=B4=CA=FD=D7=E9=B7=BD=CA=BD=
=CA=E4=C8=EB=A1=A2=CA=E4=B3=F6=A3=AC=D2=B2=BF=C9=D6=B1=BD=D3=CA=E4=C8=EB=A1=
=A2=CA=E4=B3=F6=A3=BAreadln(s)=A3=BBwriteln(s)=A3=BB=B6=E0=B8=F6=D7=D6=B7=
=FB=B4=AE=CA=E4=C8=EB=CA=B1=D2=D4=BB=D8=B3=B5=D7=F7=CE=AA=CA=FD=BE=DD=BC=E4=
=B5=C4=B7=D6=B8=F4=B7=FB=A3=BB=C3=BF=B8=F6readln=D3=EF=BE=E4=D6=BB=C4=DC=B6=
=C1=C8=EB=D2=BB=B8=F6=D7=D6=B7=FB=B4=AE=A1=A3</P>
=
<P>2=A1=A2=D3=D0=B9=D8=D7=D6=B7=FB=B4=AE=B5=C4=B2=D9=D7=F7=A3=BA</P>
<TABLE cellSpacing=3D0 cellPadding=3D0>
<TBODY>
<TR>
<TD width=3D588>
<TABLE borderColor=3D#006600 cellSpacing=3D0 =
cellPadding=3D0=20
border=3D1>
<TBODY>
<TR>
<TD width=3D"19%">
<P align=3Dcenter>=B2=D9=D7=F7 </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=C0=E0=D0=CD </P></TD>
<TD width=3D"14%">
<P align=3Dcenter>=D7=F7=D3=C3 </P></TD>
<TD width=3D"10%">
<P align=3Dcenter>=B7=B5=BB=D8=D6=B5 </P></TD>
<TD width=3D"47%">
<P align=3Dcenter>=C0=FD=D7=D3 </P></TD></TR>
<TR>
<TD width=3D"19%">
<P align=3Dleft>length(s) </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=BA=AF=CA=FD </P></TD>
<TD width=3D"14%">
<P align=3Dleft>=C7=F3=D7=D6=B7=FB=B4=AE =
s=B5=C4=B3=A4=B6=C8 </P></TD>
<TD width=3D"10%">
<P align=3Dleft>=D5=FB=D0=CD </P></TD>
<TD width=3D"47%">
<P =
align=3Dleft>s:=3D'123456789';<BR>l:=3Dlength(s);{l =B5=C4=D6=B5=CE=AA=20
=
9}<BR>=D7=D6=B7=FB=B4=AE=B5=C4=B3=A4=B6=C8=B4=E6=B7=C5=D4=DA =
s[0]=D6=D0=A3=AC ord(s[0])=B5=C4=D6=B5=D3=EB =
length(s)=B5=C4=D6=B5=CF=E0=CD=AC=A1=A3=20
</P></TD></TR>
<TR>
<TD width=3D"19%">
<P align=3Dleft>copy =A3=A8 s,w,k) </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=BA=AF=CA=FD </P></TD>
<TD width=3D"14%">
<P align=3Dleft>=B8=B4=D6=C6 s=D6=D0=B4=D3 =
w=BF=AA=CA=BC=B5=C4 k=CE=BB </P></TD>
<TD width=3D"10%">
<P align=3Dleft>=D7=D6=B7=FB=B4=AE </P></TD>
<TD width=3D"47%">
<P =
align=3Dleft>s:=3D'123456789';<BR>s1:=3Dcopy(s,3,5);{s1 =
=B5=C4=D6=B5=CA=C7=20
'34567'} </P></TD></TR>
<TR>
<TD width=3D"19%">
<P align=3Dleft>val(s,k,code) </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=B9=FD=B3=CC </P></TD>
<TD width=3D"14%">
<P align=3Dleft>=BD=AB=D7=D6=B7=FB=B4=AE =
s=D7=AA=CE=AA=CA=FD=D6=B5=A3=AC=B4=E6=D4=DA k=D6=D0=A3=BB =
code=CA=C7=B4=ED=CE=F3=B4=FA=C2=EB </P></TD>
<TD width=3D"10%">
<P align=3Dleft> </P></TD>
<TD width=3D"47%">
<P align=3Dleft>var=20
=
s:string;k,code:integer;<BR>begin<BR>s:=3D'1234';<BR>val(s,k,code);=20
<BR>write(k);{k=3D1234} </P></TD></TR>
<TR>
<TD width=3D"19%">
<P align=3Dleft>str(i,s) </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=B9=FD=B3=CC </P></TD>
<TD width=3D"14%">
<P align=3Dleft>=BD=AB=CA=FD=D6=B5 =
i=D7=AA=CE=AA=D7=D6=B7=FB=B4=AE s </P></TD>
<TD width=3D"10%">
<P align=3Dleft> </P></TD>
<TD width=3D"47%">
<P=20
=
align=3Dleft>i:=3D1234;<BR>str(i,s);<BR>write(s);{s=3D'1234'}=20
</P></TD></TR>
<TR>
<TD width=3D"19%">
<P align=3Dleft>Delete(s,w,k) </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=B9=FD=B3=CC </P></TD>
<TD width=3D"14%">
<P align=3Dleft>=D4=DA =
s=D6=D0=C9=BE=B3=FD=B4=D3=B5=DA w=CE=BB=BF=AA=CA=BC=B5=C4 =
k=B8=F6=D7=D6=B7=FB </P></TD>
<TD width=3D"10%">
<P align=3Dleft> </P></TD>
<TD width=3D"47%">
<P align=3Dleft>s :=3D 'Honest Abe=20
Lincoln';<BR>Delete(s,8,4);<BR>Writeln(s); { =
'Honest=20
Lincoln' } </P></TD></TR>
<TR>
<TD width=3D"19%">
<P align=3Dleft>Insert(s1, S, w) </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=B9=FD=B3=CC </P></TD>
<TD width=3D"14%">
<P align=3Dleft>=BD=AB s1=B2=E5=B5=BD =
s=D6=D0=B5=DA w=CE=BB </P></TD>
<TD width=3D"10%">
<P align=3Dleft> </P></TD>
<TD width=3D"47%">
<P align=3Dleft>S :=3D 'Honest =
Lincoln';<BR>Insert('Abe ',=20
S, 8); { 'Honest Abe Lincoln' } </P></TD></TR>
<TR>
<TD width=3D"19%">
<P align=3Dleft>Pos(c, S) </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=BA=AF=CA=FD </P></TD>
<TD width=3D"14%">
<P align=3Dleft>=C7=F3=D7=D6=B7=FB c=D4=DA =
s=D6=D0=B5=C4=CE=BB=D6=C3 </P></TD>
<TD width=3D"10%">
<P align=3Dleft>=D5=FB=D0=CD </P></TD>
<TD width=3D"47%">
<P align=3Dleft>S :=3D ' 123.5';<BR>i :=3DPos(' =
', S);{i =B5=C4=D6=B5=CE=AA=20
1} </P></TD></TR>
<TR>
<TD width=3D"19%">
<P align=3Dleft>+ </P></TD>
<TD width=3D"9%">
<P align=3Dcenter>=D4=CB=CB=E3=B7=FB </P></TD>
<TD width=3D"14%">
<P =
align=3Dleft>=BD=AB=C1=BD=B8=F6=D7=D6=B7=FB=B4=AE=C1=AC=BD=D3=C6=F0=C0=B4=
</P></TD>
<TD width=3D"10%">
<P align=3Dleft> </P></TD>
<TD width=3D"47%">
<P=20
=
align=3Dleft>s1:=3D'1234';<BR>s2:=3D'5678';<BR>s:=3Ds1+s2;{'12345678'}=20
=
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><PRE>[=C0=FD6=A1=A2=
3]=B0=D126=B8=F6=D3=A2=D3=EF=D7=D6=C4=B8=D5=FD=CF=F2=A1=A2=C4=E6=CF=F2=B4=
=F2=D3=A1=B3=F6=C0=B4=A1=A3
<SPAN class=3Dprogram_text>Const =
s:string[26]=3D=A1=AFabcdefghijklmnopqrstuvwxyz=A1=AF;
Var t:string[26];
I:integer;
Begin
t:=3D=A1=AF =A1=AE; =
{=B9=B226=B8=F6=BF=D5=B8=F1}
For I:=3D1 to 26 do begin
T[I]:=3Ds[27-I];
End;
Writeln(s);
Writeln(t);
End.</SPAN>
[=C0=FD6=A1=A24]=D5=D2=B3=F6=CB=F9=D3=D0=B5=C4=CB=C4=CE=BB=BB=D8=CE=C4=CA=
=FD=A3=BA=A3=A8=BB=D8=CE=C4=CA=FD=BE=CD=CA=C7=D2=BB=B8=F6=CA=FD=B4=D3=D7=F3=
=CD=F9=D3=D2=B6=C1=D3=EB=B4=D3=D3=D2=CD=F9=D7=F3=B6=C1=B6=BC=CA=C7=CD=AC=D2=
=BB=B8=F6=CA=FD=A3=A9
<SPAN class=3Dprogram_text>var s:string[4];
n:integer;
begin
for n:=3D1000 to 9999 do begin
str(n,s);
if (s[1]=3Ds[4]) and (s[2]=3Ds[3]) then write(n:6);
end;
end.
=BB=F2=D5=DF=D3=C3=C8=E7=CF=C2=B3=CC=D0=F2=A3=BA
var n:integer;
s,t:string;
begin
for n:=3D10 to 99 do begin
str(n,s);
t:=3Ds+s[2]+s[1];
write(s:6);
end;
end.</SPAN>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -