字符與字符串ppt課件(2)-wenkub.com
2025-04-25 23:40 本頁(yè)面
【正文】 k:=k+1。doFori:=1doFori:=x+1doForBeginFillchar(a,sizeof(a),true)。of95435樣例輸入；32以下 n行，每行 4個(gè)數(shù)： x1,y1,x2,y2。write(c[m+1])。elsethenifmdofora[m]:=copy(s,1,p1)。begintoend。k:=k+1。39。+39。length(s)m:=0。integer。char。string。s:string。編成實(shí)現(xiàn)：同時(shí)含有多個(gè) +、 )dec(s)。delete(n,i,1)。doi:=1。readln(n)。begin樣例：輸入： 123006 2輸出： 100642876000546723971045400028762121457894每一次刪除的一個(gè)數(shù)字都是從首位開始的最長(zhǎng)連續(xù)上升序列的最末位數(shù)字。end.刪數(shù)問(wèn)題 鍵盤輸入一個(gè)正整數(shù)Ｎ，去掉其中任意Ｓ個(gè)數(shù)字后剩下的數(shù)字按原左右次序?qū)⒔M成一個(gè)新的正整數(shù)。else)then39。:writeln(ab)。+39。val(copy(s,k+1,length(s)k),b,c)。then939。toreadln(s)。beginend.方法二編程完成 30000以內(nèi)的正整數(shù)的 +、 、 *、 /一種運(yùn)算，只含一個(gè)運(yùn)算符號(hào)。ab:=a+b。dofork1,s)。s:string。a,b,k,c,n,i:integer。end.過(guò)程： val(s,a,c)中， c只能是整型數(shù)，如果轉(zhuǎn)化成功 :c=0。ab:=a+b。beginab:longint。3） 求 a+b的值。)。)i=jj:=j1。whilei,j,k:integer。no39。yes39。ifbeginifdoforn:=lenbeginn,i,len:integer。end。)or(a[i,1]=39。toreadln(a[i])。{輸入單詞 }dofor{輸入單詞個(gè)數(shù) }a:array[1..100] for i:=1 to k do s:=s+ord(n[i])48。 s,k,i:integer。兩種方法：i:=ord(a)48。write(a[i])。to輸出： writeln(a)。a[3]:=b。}字符串的有關(guān)操作字符串使用中的有關(guān)說(shuō)明和注意事項(xiàng) :字符串的輸入和輸出 :輸入 :字符串是以回車作為的結(jié)束標(biāo)志 .所以輸入必須 readln(s)； 每個(gè) readln語(yǔ)句只能讀入一個(gè)字符串。Honest,Lincoln39。 S}Insert(s1,39。Lincoln39。:=123439。{k=1234}str(i,s) 過(guò) 程 123439。var{39。s2:=39。 將兩個(gè)字符串 連 接起來(lái) :=Pos(‘639。}Pos(c,{l的 值為 9}Copy(s,w,k) 函數(shù) length(s) 函數(shù) 類 型 例如： VAR var 其中： n是定義的字符串長(zhǎng)度，必須是 0~255之間的自然整數(shù)，第 0號(hào)單元中存放串的實(shí)際長(zhǎng)度，程序運(yùn)行時(shí)由系統(tǒng)自動(dòng)提供，第 1~n號(hào)單元中存放串的字符，若將 string[n]寫成 string， 則默認(rèn) n值為 255。Freepascal中新增加的字符串類型：ansistring。 Var： a： stri
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1