题1117【入门】数组逆序.doc
入门经典题(字符与字符串)
题50:输出杨辉三角的前N行(N<10)。---二维数组
Input 输入只有一行,包括1个整数N。(N<10)
Output 输出只有N行.
Sample Input 5
Sample Output
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
例题:输入一行由大写与小写字母混合组成的字符,直到?号结束,要求输出一串数字—与原来比较,本来是大写的变成对应的小写,本来小写的转成大写。
program ex1;
var ch:char;
begin
read(ch);
while ch<>'?' do
begin
if (ord(ch)>=65) and (ord(ch)<=90) then write(chr(ord(ch)+32))
else write(chr(ord(ch)-32));
read(ch);
end;
end.
题1134:【入门】字符统计
Description 输入一串小写字母(以‘.’为结束标志),统计出每个字母在该字符串中出现的次数(若某字母不出现,则不要输出)。
要求:每行输出5项,每项以空格隔开。
Input 输入一行以'.'结束的字符串Output 输出相应小写字母的个数。
Sample Input aaaabbbccc. Sample Output a:4 b:3 c:3
program ex1134;
var a:array['a'..'z'] of integer;
i,ch:char; t:integer;
begin
read(ch);
fillchar(a,sizeof(a),0);{数组整体清零}
while ch<>'.' do
begin
a[ch]:=a[ch]+1;
read(ch);
end;
for i:='a' to 'z' do{输出}
if a[i]<>0 then begin
write(i,':',a[i],' ');
inc(t);
if t mod 5=0 then writeln;
end;
end.
题1583:【入门】倒置输出字符串
Description 随机输入一个长度不超过255的字符串,将其倒置后输出。
Input 只有一行。
Output 只有一行。
Sample Input asdfghjkl123456
Sample Output 654321lkjhgfdsa
题1114:【入门】数字和
Description 输入一个很大的数,求各位上的数字和。
Input 一个很大的整数(不超过200位)
Output 一个整数
Sample Input 123
Sample Output 6
program ex1114;
var st:string;
i,j,t,len:integer;
s:longint;
begin
readln(st);
len:=length(st);
t:=0;
for i:=1 to len do
begin
val(copy(st,i,1),t);
s:=s+t;
end;
write(s);
end.
题1132:【入门】词组缩写
Description 定义:一个词组中每个单词的首字母的大写组合称为该词组的缩写。
比如,C语言里常用的EOF就是end of file的缩写。
Input
测试数据占一行,有一个词组,每个词组由一个或多个单词组成;每组的单词个数不超过10个,每个单词有一个或多个大写或小写字母组成; 单词长度不超过10,由一个或多个空格分隔这些单词。
Output 输出规定的缩写
Sample Input end of file
Sample Output EOF
题1066:【入门】一年中的第几天
Description 给定一个具体的日期,请输出,这一天是当年的第几天?
Input 输入一行,为年-月-日,
Output 输出一行,只有一个整数,表示这一天为那一年的第多少天
Sample Input 2000-1-31
Sample Output 31
Hint 别忘记考虑闰年问题
program ex1066;
var st,t:strin