作用：在给定的范围内求出符合设定条件的记录个数。

算法基本思想：用一个条件语句判断当前记录是否符合给定条件，符合则统计个数加一。用循环实现对所有记录的操作。

程序基本设计流程图如图1所示：

开   始

读入一个记录

 

 

 

 

符合条件

                                       N

 

　

统计个数加一

                                Y      

                                       

全部读完

                   N  

                              

                                 Y

输出统计个数

 

 

结   束

                 

                图1    统计算法程序流程图

举例说明：

 例一、 从键盘敲进任意个（少于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.