作业帮Free Pascal 如何求出一个数组中的有效元素个数 难道高精度计算一般要转成字符型来求数的长度?
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/10/02 17:42:12
Free Pascal 如何求出一个数组中的有效元素个数 难道高精度计算一般要转成字符型来求数的长度?
如a：（0,0,0,0,1,0,1）那么这个数是101 有效位数就是3位
如果有这么一个函数就好了……
求具体程序
如a：（0,0,0,0,1,0,1）那么这个数是101 有效位数就是3位
如果有这么一个函数就好了……
求具体程序
从前往后找第一个非0元素,从后往前找一个非0元素,其间距离就是有效位长度.（Pascal中数组最多只能开1000000（也许比这个数小）,不会超时）
program t;
var i,j,k:longint;
a:array[1..200]of longint;
begin
while not eof do
begin
i:=i+1;
read(a[i]);
end;
j:=1;k:=i;
while (a[j]=0)and(j0) do k:=k-1;
write(k-j+1);
end.
再问： 如a：（0，0，0，1，1，0，0）那么有效元素也应该是1100……
再答： 额，题目中有说吗，那就只要从右往左找第一个非0元素，其长度就是i-j+1;
program t;
var i,j,k:longint;
a:array[1..200]of longint;
begin
while not eof do
begin
i:=i+1;
read(a[i]);
end;
j:=1;k:=i;
while (a[j]=0)and(j0) do k:=k-1;
write(k-j+1);
end.
再问： 如a：（0，0，0，1，1，0，0）那么有效元素也应该是1100……
再答： 额，题目中有说吗，那就只要从右往左找第一个非0元素，其长度就是i-j+1;
Free Pascal 如何求出一个数组中的有效元素个数 难道高精度计算一般要转成字符型来求数的长度?
free pascal高精度计算问题
已知一个数组元素是数组的第几个元素,如何计算它是在数组中的第几行,第几列?
free pascal 高精度计算谁有讲解给一下
定义一个函数,计算长度为k的整型数组元素的平均值及大于平均值的元素个数.调用函数的语句为：
VFP 在一个未知个数的数组中,如何计算出数组中的个数
free pascal如何计算圆的周长与面积
matlab 如何计算cell数组 不同元素个数
free pascal高精度加法计算,求高手看看程序!追加悬赏50!
c++编写一个函数,分别求出一维整型数组a[n]中所有奇数元素的个数和所有偶数元素的个数.
matlab中如何计算一个矩阵中的元素在另一矩阵出现的个数?
c语言编程求助:数组中出现过的元素4只保留一个后计算元素个数