例字符串函數(shù)調(diào)用示例

例：字符串函數(shù)調(diào)用示例

programsamplefun;

const

tur='turbo';

pas='pascal';

var

st:string[60];

p:byte;

begin

st:=concat(tur,pas,'isbetterthan','stand',pas,'.');

writeln(st);

writeln(length(st));

st:=copy(st,29,15);

writeln(st);

p:=pos(pas,st);

writeln(p);

p:=pos(tur,st);

writeln(p);

end.

任意輸入一個(gè)句子（以‘.’號(hào)結(jié)束，長(zhǎng)度在255以內(nèi)）和一個(gè)單詞（長(zhǎng)度小于等于8），統(tǒng)計(jì)該單詞在句子中出現(xiàn)的次數(shù)分析：用字符串變量s存放讀如的句子，S1存放要查找的單詞，另用變量K統(tǒng)計(jì)單詞出現(xiàn)的次數(shù)。開始時(shí)置K為0，并調(diào)用pos函數(shù)找出第一個(gè)單詞在句子中的位置，若返回值不為0，則再調(diào)用delete過程將這個(gè)單詞在句子中刪除，k加1，然后再調(diào)用pos函數(shù)……，若返回值為0，則表示句子中已無這個(gè)單詞，循環(huán)結(jié)束。Vars,s1:string;t,k:integer;Begin

Writeln(‘pleaseinputs’);readln(s);

Writeln(‘pleaseinputs1’);readln(s1);k:=0;Repeatt:=pos(s1,s);Ift<>0thenBeginDelete(s,t,length(s1));k:=k+1;End;Untilt=0;

Writeln(k);End.輸入一個(gè)英語短句，以‘.’結(jié)束，求出其中最長(zhǎng)單詞的長(zhǎng)度Vars:string;ch:string[1];I,max,l:integer;Beginmax:=0;

l:=0;

readln(s);

fori:=0tolength(s)dobegin

ch:=copy(s,I,1);if(ch<>’‘)and(ch<>’.’)thenl:=l+1elseifl>maxthenbeginmax:=l;l:=0endelsel:=0;end;Writeln(max);End.統(tǒng)計(jì)輸入的n個(gè)英語單詞中以“con”開頭的單詞個(gè)數(shù)以及字母“e”出現(xiàn)的頻率。Varwd:string[30];i,j,l,n,count,e,sum:integer;Begin

readln(n);count:=0;e:=0;sum:=0;fori:=1tondobegin

readln(wd)l:=length(wd);ifcopy(wd,1,3)=‘con’thencount:=count+1forj:=1toldoifwd[j]=‘e’thene:=e+1;sum:=sum+l;end;

writeln(count);

writeln(e/sum*100:5:2,’%’);

readln;End.例：字符串過程調(diào)用示例

programguocheng;

const

typedstring:string='turbopascalisbetterthanstandardpascal.';

total:real=388.4;

var

totalstring:string[60];

integervalue:integer;

realvalue:real;

status:integer;

begin

delete(typedstring,13,40);

writeln(typedstring);

insert('using',typedstring,1);

writeln(typedstring);

str(total:8:2,totalstring);

writeln(totalstring);

str(total,totalstring);

writeln(totalstring);

val('-33',integervalue,status);

writeln(integervalue,'':2,status);

val('-33.99',realvalue,status);

writeln(realvalue:6:2,'':2,status);

end.

例3、

對(duì)給定的10個(gè)國(guó)家名，按其字母的順序輸出。constname:array[1..10]ofstring[20]=('China','France','Canada','Australia','Spain','American','Sweden','Poland','Turkey','Japan');vari,j:integer;

t:string[20];Beginfori:=1to9doforj:=i+1to10do

ifname[i]>name[j]thenbegin

t:=name[i];name[i]:=name[i];name[i]:=tend;

fori:=1to10dowritelname[i]);end.例4、有一個(gè)四位數(shù)①它是一個(gè)完全平方數(shù)②千位數(shù)和百位數(shù)相等，十位數(shù)和個(gè)位數(shù)相等。求這個(gè)四位數(shù)。

varm,n:integer;st:string[4];beginforn=32to99dobeginm:=n*n;str(m,st);if(copy(st,1,1)=copy(st,2,1))and(copy(st,3,1)=copy(st,4,1))thenwriteln(m)endend.例7.23對(duì)輸入的一句子實(shí)現(xiàn)查找且置換的功能。

分析:程序中,輸入要查找的字符串及要置換的字符串,充分用上了字符串處理的標(biāo)準(zhǔn)過程delete、insert及標(biāo)準(zhǔn)函數(shù)pos。

程序如下:

programexp7_23;

var

s1,s,o:string;

i:integer;

begin

write('Thetext:');

readln(s1);

write('Find:');readln(s);

write('Replace:');readln(o);

i:=pos(s,s1);

whilei<>0dobegin

delete(s1,i,length(s));

insert(o,s1,i);

i:=pos(s,s1);

end;

writeln(s1);

readln;

end.

字符串應(yīng)用輸入一行字符，包含若干個(gè)單詞。約定相鄰的兩個(gè)單詞用空格隔開，編程統(tǒng)計(jì)單詞的個(gè)數(shù)。分析：先將所有字符存儲(chǔ)在一個(gè)字符串st中，然后通過對(duì)st的掃描及對(duì)空格字符的判斷進(jìn)行統(tǒng)計(jì)單詞。參考程序programcheck;var

st:string;i,l,num:integer;begin

writeln('inputthecharactors:');

readln(st);l:=length(st);i:=1;num:=0;whilei<ldobeginwhilest[i]=''doi:=i+1;ifi<=lthennum:=num+1;while(st[i]<>'')and(i<l)doi:=i+1;end;writeln('total:',num:3);end.字符串應(yīng)用輸入兩個(gè)整數(shù)x,y，輸出它們的和。（0≤x,y≤10100)分析：處理的數(shù)據(jù)x,y的范圍遠(yuǎn)遠(yuǎn)超過了整數(shù)、實(shí)數(shù)所能承受的最大范圍，只能采用字符串進(jìn)行處理。參考程序programsum;var

st:string;x,y:array[0..101]ofinteger;i,l1,l2:integer;beginfori:=0to101dobeginx[i]:=0;y[i]:=0;end;write('x=');readln(st);l1:=length(st);fori:=l1downto1dox[l1-i]:=ord(st[i])-ord('0');write('y=');readln(st);l2:=length(st);fori:=l2downto1doy[l2-i]:=ord(st[i])-ord('0');ifl1<l2th