|
作用：在给定的范围内求出符合设定条件的记录个数。
算法基本思想：用一个条件语句判断当前记录是否符合给定条件，符合则统计个数加一。用循环实现对所有记录的操作。
举例说明：
例一、 从键盘敲进任意个（少于255个）字符，然后求出其中某一个字母的个数（如大写字母A）。
分析：用一个字符串变量来接受从键盘输入的字符，然后从第一个字符开始对每一个字符进行处理，如果是A则个数加一，最后把总的统计个数输出。
程序代码：
program jjzx(input,output);
type
str=string[255];
var
st:str;
n,i,j:integer;
begin
writeln(‘请输入一行字符: ‘);
readln(st);
j:=lenth(st); {把字符串的实际长度赋给j}
n:=0;
for i:=1 to j do
if ord(st[i])=65 then n:=n+1;
writeln(‘你输入的字符是: ‘,st);
writeln((‘其中字符A的个数和: ‘,n)
end.
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 
