入门经典题（字符与字符串）.docVIP

入门经典题（字符与字符串） 题50：输出杨辉三角的前N行(N10)。---二维数组 Input 输入只有一行，包括1个整数N。(N10) 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:string; y,m,d,i,s,w,len:integer; begin re