《统计出每个字母在该字符串中出现的次数若某字母不出讲解材料》由会员分享，可在线阅读，更多相关《统计出每个字母在该字符串中出现的次数若某字母不出讲解材料（14页珍藏版）》请在金锄头文库上搜索。
1、题1134：【入门】字符统计 Description 输入一串小写字母(以.为结束标志)，统计出每个字母在该字符串中出现的次数(若某字母不出现，则不要输出)。 要求：每行输出5项，每项以空格隔开。 Input 输入一行以.结束的字符串 Output 输出相应小写字母的个数。 Sample Input aaaabbbccc. Sample Output a:4 b:3 c:3,边读入，边统计 扫描数组，输出,y,program ex; var ch,i:char; t:integer; x:arraya.z of integer; begin read(ch); for i:=a to z do
2、 xi:=0; while ch. do begin xch:=xch+1; read(ch); end; t:=0; for i:=a to z do if xi0 then begin inc(t); if t mod 5=0 then writeln(i,:,xi , ) else write(i,:,xi, ); end; end.,program ex; var n,i,x,s:integer; a:array0.1000 of integer; begin readln(n); fillchar(a,sizeof(a),0);/数组清零 for i:=1 to n do begin
3、 read(x); ax:=1; end; s:=0; for i:=0 to 1000 do if ai0 then inc(s); writeln(s); for i:=0 to 1000 do if ai0 then write(i, ); end.,输入 6 4 5 7 2 4 2 3,读程序写结果,题1147：【基础】去除重复数字,给你N个数（n）,每个数都在（01000）之间，其中由很多重复的数字，请将重复的数字只保留一个，并将剩下的数由小到大排序并输出。 Input 输入有2行，第1行为1个正整数，表示数的个数:N 第2行有N个用空格隔开的整数。 Output 输出也是2行，第1
4、行为1个正整数M，表示不相同数的个数。第2行为M个用空格隔开的整数，为从小到大排好序的不相同的数。 Sample Input 10 20 40 32 67 40 20 89 300 400 15 Sample Output 8 15 20 32 40 67 89 300 400 Source,字符串,定义,字 符：,x:char;,字符串：,y:string;,A,Avfkfkfdkjs,255,y:ansistring;,4G,4G=1024*1024*1024,GB MB KB B(byte),X:=AHKKGG,X1,st,china,St1,St2,St3,St4,St5,c,h,i,
5、n,a,St0,字符串的输入和输出：read(st) write(st);,演示,题1583：【入门】倒置输出字符串 Description 随机输入一个长度不超过255的字符串，将其倒置后输出。 Input 只有一行。 Output 只有一行。 Sample Input asdfghjkl123456 Sample Output 654321lkjhgfdsa,如果定义字符，必须定义数组,x:array1.255 of char;,x1,x2,x3,x4,x255,.,program ex1583; var st:string; len,i:integer; begin read(st);/
6、字符串读到回车，回车符不读入 len:=length(st); for i:=len downto 1 do write(sti); end.,调试一下,4-24 输入一串字符，字符个数大于1但不超过100，以回车结束，判断他们是否构成回文，如果构成回文，输出“yes”否则输出“no”,回文如：1991 abcdedcba,思路： 1.读入 2.测出长度（length） 3.判断回文,var st:string; i,j,len,num:integer; begin read(st); len:=length(st); j:=len; num:=len div 2; i:=1; while (
7、sti=stj) and (inum then write(yes) else write(no); end.,var s:string; i,j,len,k:integer; begin readln(s); len:=length(s); for i:=1 to len do if (ord(si)=ord(A) and (ord(si)=ord(Z) then si:=chr(ord(si)-ord(A)+ord(a); for i:=1 to len do if (ord(si)ord(x) then s:=chr(ord(si)+3) else si:=chr(ord(si)-23); write(s); write(/); for j:=1 to 3 do begin i:=1; while i=len-j do begin si:=si+j; i:=i+j; end; end; writeln(s); end. 输入：ABCDEFGuvwxyz,
