文档介绍：题1134:【入门】字符统计
Description 输入一串小写字母(以‘.’为结束标志),统计出每个字母在该字符串中出现的次数(若某字母不出现,则不要输出)。
要求:每行输出5项,每项以空格隔开。
Input 输入一行以'.'结束的字符串
Output 输出相应小写字母的个数。
Sample Input .
Sample Output a:4 b:3 c:3
边读入,边统计
扫描数组,输出
x[a]
x[b]
x[c]
x[d]
x[e]
x[f]
x[g]
x[h]
…
x[z]
y
program ex;
var ch,i:char;
t:integer;
x:array['a'..'z'] of integer;
begin
read(ch);
for i:='a' to 'z' do x[i]:=0;
while ch<>'.' do
begin
x[ch]:=x[ch]+1;
read(ch);
end;
t:=0;
for i:='a' to 'z' do
if x[i]<>0 then
begin
inc(t);
if t mod 5=0 then writeln(i,':',x[i] ,' ' )
else write(i,':',x[i],' ');
end;
end.
program ex;
var n,i,x,s:integer;
a:array[0..1000] of integer;
begin
readln(n);
fillchar(a,sizeof(a),0);//数组清零
for i:=1 to n do
begin
read(x);
a[x]:=1;
end;
s:=0;
for i:=0 to 1000 do if a[i]<>0 then inc(s);
writeln(s);
for i:=0 to 1000 do
if a[i]<>0 then write(i,' ');
end.
输入
6
4 5 7 2 4 2 3
x[0]
x[1]
x[2]
x[3]
x[4]
x[5]
x[6]
x[7]
…
x[1000]
读程序写结果
题1147:【基础】去除重复数字
给你N个数(n<=100),每个数都在(0~1000)之间,其中由很多重复的数字,请将重复的数字只保留一个,并将剩下的数由小到大排序并输出。
Input 输入有2行,第1行为1个正整数,表示数的个数:N
第2行有N个用空格隔开的整数。
Output 输出也是2行,第1行为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
冰糖葫芦串
‘A’
‘AHKKGG’
字符
字符串
字符串
定义
字符:
x:char;
字符串:
y:string;
‘A’
‘Avfkfkfdkjs…’
255
y:ansistring;
4G
4G=1024*1024*1024
GB MB KB B(byte)
X:=‘AHKKGG’
X[1]
st
china
St[1]
St[2]
St[3]
St[4]
St[5]
c
h
i
n
a
St[0]
字符串的输入和输出:read(st)
write(st);
演示
题1583:【入门】倒置输出字符串
Description 随机输入一个长度不超过255的字符串,将其倒置后输出。
Input 只有一行。
Output 只有一行。
Sample Input asdfghjkl123456
Sample Output 654321lkjhgfdsa
如果定义字符,必须定义数组
x:array[1..255] of char;
x[1]
x[2]
x[3]
x[4]
x[255]
…..