字符与字符串练习    热      【字体：小 大】
字符与字符串练习
作者：仔仔    文章来源：本站原创    点击数：    更新时间：2006-9-26
字符与字符串练习   一、看程序写结果 1. var ch:string; 　　i:byte; begin 　readln(ch); 　for i:=1 to ord(ch[0]) do 　　write(ch[i]:2); 　writeln end. 输入：My name is Tom. output: 2. var i:integer; begin 　for i:=1 to 13 do write(chr(63+2*i):4); 　writeln; 　for i:=1 to 13 do write(chr(92-2*i):4); 　writeln end. 输出： 3. VAR A:CHAR; BEGIN 　READLN(A); 　WRITELN("A:",A); 　WRITELN("SUCC(A):",SUCC(A)); 　WRITELN("PRED(A):",PRED(A)); 　WRITELN("ORD(A):",ORD(A)); 　WRITELN("CHR(ORD(A)):",CHR(ORD(A))); 　WRITELN("CHR(ORD(A)+2):",CHR(ORD(A)+2)); END. 输入：e  输出： 　 　 4. var s:integer; ch:char; 　　count:array["a".."z"] of integer; begin 　for ch:="a" to "z" do count[ch]:=0; 　　read(ch); 　while ch<>"!" do 　begin 　　if (ch>="a")and(ch<="z") then 　　　count[ch]:=count[ch]+1; 　　read(ch) 　end; 　s:=0; 　for ch:="b" to "z" do s:=s+count[ch]; 　writeln(s) end. 输入：We are proud OF OUR COUNTRY!　 输出： 　 5. var a:array[1..100] of string[20]; 　　s:string;temp:string[20]; 　　i,j,k,n:integer; begin 　readln(n);readln(s);i:=1;j:=0;k:=0; 　while i<=length(s) do 　　if s[i] in ["0".."9"] then 　　 begin 　　　j:=1; 　　　while s[i] in ["0".."9"] do 　　　begin 　　　　temp[j]:=s[i]; 　　　　inc(j);inc(i)｛inc(i)相当于i:=i+1} 　　　end; 　　　temp[0]:=chr(j-1); 　　　k:=k+1; 　　　a[k]:=temp 　　 end 　 else 　while s[i]=" " do inc(i); 　for i:=1 to n-1 do 　　for j:=i+1 to n do 　　　if (a[i]+a[j])<(a[j]+a[i]) then 　　　　begin 　　　　　temp:=a[i];a[i]:=a[j]; 　　　　　a[j]:=temp 　　　 end; 　for i:=1 to n do write(a[i]); 　writeln end. 输入：4 81　792　39　79 输出： 　 二、编写程序 1、读入一串字符，以句号结束，然后让其倒序输出。 如输入：I am a student. 输出：tneduts a ma I 2、读入一串数字，以句号结束，请统计其中‘0’到‘9’的各个数字的个数。 如输入：91254782354987012345978.　 输出：0:1 1:2 2:3 3:2 4:3 5:3 7:3 8:3 9:3 3、输入一段文章（255个字符以内），求文章中单词的个数（相同单词只记一次，The和the认为是同一个单词，只记一次）。 4、请编写一个程序，让它能够计算两个200位以内的整数的和。
文章录入：qinjun    责任编辑：qinjun
	上一篇文章： 综合练习一 下一篇文章： 过程与函数练习
【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				没有相关文章

网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）