[pascal统计大写英文字母的个数]var ch:char;s,j,i:integer; begin read(ch); while ch<>'.' do begin if(ch>='A')and(ch<='Z')then s:=s+1; read(ch); end; readln; writeln(s); end. 话说我就是回答你另...+阅读
★
下面是f95程序
PROGRAM MAIN
implicit none
integer,parameter:: ip_max=1000
integer:: i,j,k
integer:: i_readstate,i_datanumber
integer:: i_temp
integer:: i_data(ip_max),i_same(2,ip_max)
open(1,file=＂1.txt＂)
read(1,*,iostat=i_readstate) i_data
close(1)
do i=1,ip_max-1
if ((i_data(i)/=0).and.((i_data(i+1)==0))) exit
end do
i_datanumber=i
open(2,file=＂结果.txt＂)
write(2,*) ＂1.txt中数据个数共有：＂，i_datanumber
! write(*,*) ＂1.txt中计数据个数共有：＂，i_datanumber
do i=1,i_datanumber
i_same(1,i)=1 ！个数
i_same(2,i)=1 ！有没有计过，1为没有，0为计过
end do
do i=1,i_datanumber-1
if(i_same(2,i)==1) then
do j=i+1,i_datanumber
if(i_data(i)==i_data(j)) then
i_same(1,i)=i_same(1,i)+1
i_same(2,j)=0
end if
end do
end if
end do
do i=1,i_datanumber
if(i_same(2,i)==1) then
write(2,*) i_data(i)，＂的个数有：＂， i_same(1,i)
! write(*,*) i_data(i)，＂的个数有：＂， i_same(1,i)
end if
end do
END
以下为关联文档：
编程noip2010数字统计用Pascal怎么做var ans,n,m,i:longint; function js(x:longint):longint; var x1:0..9; begin js:=0; while x>0 do begin x1:=x mod 10; if x1=2 then js:=js+1; x:=x div 10; end; end;...
请问如何用pascal编统计素数的程序下面给一个判断素数的函数，其他的自己琢磨琢磨。 function zhisu(n:dword):boolean; var j:dword; findd:boolean; begin if n=1 then zhisu:=false else if (n=2)or(n=3) th...
阶乘统计 pascal思路： ∵只需要输出k为，k不确定 ∴要用一个高精度数组 ∵最后的“0”不一定会输出，而且乘任何数都还是0 ∴可以直接用一个变量记录最后的“0”的个数 运算时可直接用一个 for i...
pascal统计单词数请大家帮忙看下问题出在哪里你的程序很奇怪。upcase只能将字符变为大写，而不是字符串（turbo pascal）。 我的程序如下： var f1,f2:text; s1,s2:string; i:array[1..100] of integer; j,k,l:integer; begin a...
Excel统计个数fan4di给你提供最直接的公式，再给提供两个挺有意思的公式供参考，如图： B1=COUNT(0/(MID(A1,ROW(1:15),1)=＂3＂)) C1=INDEX(FREQUENCY(IFERROR(--MID(A1,ROW(1:15),1),0),{2;3}),2)...
EXCEL统计数据个数操作方法如下： 1.如下图是某学校成绩表，现在想要统计出男生的人数。 2.在E2单元格输入公式=COUNTIF(C2:C11,E1)即可完成。 3.下面跟大家简单介绍一下这个函数，COUNTIF 是一个...
如何用excel统计个数的方法Excel中，可以利用count函数统计区域中包含数字单元格的个数；可以利用counta统计区域中非空单元格的个数；可以利用countblank统计区域中空单元格的个数；三个函数的用法基本一致，下...
excel如何统计选项的个数假设要统计A列单元格中出现的英文字母A到Z的个数，显示在对应的单元格中；参考工作表如图一； 1、在C2单元格输入公式：=COUNTIF($A:$A,＂*＂&C1&＂*＂) 回车 见图一 2、选中C2，横拉填充至AB...
word中的文本框字数统计你少了一个步骤 1.菜单栏→编辑→查找→突出显示所在该范围找到的项目→主文档中的文本框 关键步骤： 在查找内容中输入：^？ （英文输入法状态下输入以上字符） 单击“查找全部”按扭...
